Dataframe 从由另一列中的值确定的数据帧中选择多个值

Dataframe 从由另一列中的值确定的数据帧中选择多个值,dataframe,Dataframe,我正在模拟效果大小的变化。我的输出目前是一个有3列的数据帧,但是我想计算每个效果大小的幂,例如效果大小(第3列)为0,p值的比例是多少 effect_sim <- function(mean_A = Nor_mean, mean_B = Mid_mean, sd_A = Nor_sd, sd_B = Mid_sd) { output_t <- rep(0, N) output_Wilcox <- rep(0, N)

我正在模拟效果大小的变化。我的输出目前是一个有3列的数据帧,但是我想计算每个效果大小的幂,例如效果大小(第3列)为0,p值的比例是多少
effect_sim <- function(mean_A = Nor_mean, mean_B = Mid_mean, 
                       sd_A = Nor_sd, sd_B = Mid_sd) {  
  output_t <- rep(0, N)
  output_Wilcox <- rep(0, N)
  effect_size <- c(0, 2, 4, 8, 10, 12.5)
  all_outputs_effect <- data.frame()    
  prop <- data.frame()
  
for(j in effect_size) {
    for(i in 1:N) {
      group_A <- rnorm(Nor_n, mean_A, sd_A)
      group_B <- rnorm(Mid_n, mean_B + j, sd_B)        
      output_t[i] <- t.test(group_A, group_B)$p.value
      output_Wilcox[i] <- wilcox.test(group_A, group_B)$p.value
    }
    outputs_effect <- data.frame(output_t,
                                 output_Wilcox,
                                 effect_size_change <- rep(j, N))
    all_outputs_effect <- rbind(all_outputs_effect, outputs_effect)
   }
}
prop_sig <- ifelse(all_outputs_effect$effect_size_change....rep.j..N. == j,
                length(all_outputs_effect$output_t[all_outputs_effect$output_t<0.05]) / N, 
                "invalid")