2017-07-25 60 views
0

平均功能怪怪相同的結果,更是不斷生產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 
+2

您正在使用C(FD $ DV1_C,FD $ DV2_C,FD $ DV3_C的FD $ DV4_C),它走的是全面的數據。只要使用c(DV1_C,DV2_C,DV3_C,DV4_C)來保持行方向操作就位,假設您想要得到這四個值的行平均值... – Dason

回答

2

你應該做的僅僅是:

H10$t10dv <- rowMeans(H10[c("DV1_C", "DV2_C", "DV3_C", "DV4_C")]) 
0

在這裏,您發生變異電話計算你四列(c(fd$DV1_C, fd$DV2_C, fd$DV3_C, fd$DV4_C)

如果串聯的平均值你需要計算每列的均值,你需要做4個電話。

mutate(x = mean(fd$DV1_C), 
     y = mean(fd$DV2_C), ... etc. 

最佳

科林

+0

抱歉科林,我正在計算一個刻度的平均值。 – Lowpar