平均功能怪怪相同的結果,更是不斷生產0.3880952意味着功能產生
H10 <- H10 %>%
rowwise() %>%
mutate(t10dv = mean(c(fd$DV1_C, fd$DV2_C,
fd$DV3_C, fd$DV4_C),
na.rm = TRUE))
head(H10)
DV1_C DV2_C DV3_C DV4_C t10dv
<int> <int> <int> <int> <dbl>
1 1 0 0 1 0.3880952
2 -1 0 2 -1 0.3880952
3 0 0 0 0 0.3880952
4 0 2 1 1 0.3880952
5 -1 -1 -1 -2 0.3880952
6 -2 0 0 0 0.3880952
您正在使用C(FD $ DV1_C,FD $ DV2_C,FD $ DV3_C的FD $ DV4_C),它走的是全面的數據。只要使用c(DV1_C,DV2_C,DV3_C,DV4_C)來保持行方向操作就位,假設您想要得到這四個值的行平均值... – Dason