「R」R检验中的“数据是恆量”问题 - 云+社区 - 腾讯云 (tencent.com)
可见要达到:两组中任意一组不全相等 的目的
###################################################去掉数据是恆量
data <- as.matrix(data)
#编写函数,返回一行有几个不同值
uniq.num <- function(x){
y<-length(unique(x[1:3]))+length(unique(x[4:6]))
return(y)
}
#length () 函数用于获取或设置向量 (列表)或其他对象的长度
#按行运行函数,计算每行的不同值
uniq.num.df <- data.frame(num = apply(data, 1, uniq.num))
#过滤掉uniq.num为1或2的,留下>2的
uniq.num.df.2 <- filter(uniq.num.df, num>2)
#过滤原数据
data <- data[rownames(uniq.num.df.2), ]
完美哈哈 感谢🐱
网友评论