#判断一个列表data里面的数据
#如果p<0.05, 存到positve里面,否则认为是negative
# 设置if-else 语句
positve <- list()
negative <- list()
for (i in c(1:100) ){ if (data[[i]] <0.05) { positve[[i]] <- data[[i]] } else { negative[[i]] <- data[[i]] }}
#判断一个列表data里面的数据
#如果p<0.05, 存到positve里面,否则认为是negative
# 设置if-else 语句
positve <- list()
negative <- list()
for (i in c(1:100) ){ if (data[[i]] <0.05) { positve[[i]] <- data[[i]] } else { negative[[i]] <- data[[i]] }}