应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 生物医药区 » 生物科学 » 综合其他 » 有偿求助，Steel-Dwass test检验方法怎么做
161/1返回列表
查看: 1800  |  回复: 15
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

水溪寒

新虫 (初入文坛)
已领完
有偿求助，Steel-Dwass test检验方法怎么做
领取红包 (小木虫手机app专属红包)

扫一扫，下载小木虫客户端

求助！审稿人让修改统计方法，Steel-Dwass test这种方法怎么做，我百度也百度不到

发自小木虫Android客户端
回复此楼

» 猜你喜欢

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2021-10-13 08:34:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

水溪寒

新虫 (初入文坛)
引用回帖:
7楼: Originally posted by 哈哈迪达啦 at 2021-10-13 09:05:41
作者用的Dunn test？

大佬，你会用steel test吗？

发自小木虫Android客户端
赞一下(1人) 回复此楼
14楼2021-10-13 10:56:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

哈哈迪达啦

铁虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
14楼: Originally posted by 水溪寒 at 2021-10-13 10:56:23
大佬，你会用steel test吗？
...

不会，在网上找到一个R语言分析:

dat      数据集

group    变量分组

# Steel-Dwass test

Steel.Dwass <- function(data,             # Steel.Dwass函数定义之数据集

                group)           # 变量分组定义

{        

   OK <- complete.cases(data, group)       # 剔除缺省值   

  data <- data[OK]   

  group <- group[OK]   

  n.i <- table(group)            # 各组变量频数   

  ng <- length(n.i)  

   t <- combn(ng, 2, function(ij) {

         i <- ij[1]      

         j <- ij[2]         

         r <- rank(c(data[group == i], data[group == j]))   

         R <- sum(r[1:n.i])        # 检验统计量         

         N <- n.i+n.i[j]      

         E <- n.i*(N+1)/2         # 检验统计量的期望值        

         V <- n.i*n.i[j]/(N*(N-1))*(sum(r^2)-N*(N+1)^2/4)  #检验统计量的方差

         return(abs(R-E)/sqrt(V))           #返回 t 値   

   })   

    p <- ptukey(t*sqrt(2), ng, Inf, lower.tail=FALSE)  # 计算 P 値   

     result <- cbind(t, p)              # 计算結果   

    rownames(result) <- combn(ng, 2, paste, collapse=":"   

    return(result)

}

发自小木虫Android客户端
赞一下(1人) 回复此楼
15楼2021-10-13 13:59:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

哈哈迪达啦

铁虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
作者用的Dunn test？

发自小木虫Android客户端
赞一下 回复此楼
7楼2021-10-13 09:05:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
xn80082楼
2021-10-13 08:35   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫IOS客户端
神———3楼
2021-10-13 08:38   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫IOS客户端
龙猫测4楼
2021-10-13 08:57   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
哈哈迪达啦5楼
2021-10-13 08:59   回复  
水溪寒(金币+2): 谢谢参与
已获得2个金币 发自小木虫Android客户端
冰山雪莲灯6楼
2021-10-13 09:04   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
秋土豆香8楼
2021-10-13 09:08   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
rushows9楼
2021-10-13 09:10   回复  
水溪寒(金币+2): 谢谢参与
已获得2个金币 发自小木虫Android客户端
tzynew10楼
2021-10-13 09:17   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
hazheng11楼
2021-10-13 09:34   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
henuocheng12楼
2021-10-13 09:40   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
Angler'13楼
2021-10-13 09:44   回复  
水溪寒(金币+2): 谢谢参与
已获得2个金币 发自小木虫Android客户端
nono200916楼
2021-10-13 21:54   回复  
水溪寒(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
相关版块跳转 我要订阅楼主 水溪寒 的主题更新
161/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭