r语言代写如何进行两组独立样本秩和检验
原文链接 安装所需的包 wants <- c("coin") has <- wants %in% rownames(installed.packages()) if(any(!has)) install.packages(wants[!has])> 一个样本 测试 set.seed(123) medH0 <- 30 DV <- sample(0:100, 20, replace=TRUE) DV <- DV[DV != medH0] N <- length(DV) (obs <- sum(DV > medH0)) [1] 15 (pGreater <- 1-pbinom(obs-1, N, 0.5)) [1] 0 .02069 (pTwoSided <- 2 * pGreater) [1] 0 .04139 威尔科克森排检验 IQ <- c(99, 131, 118, 112, 128, 136, 120, 107, 134, 122) medH0 <- 110 wilcox.test(IQ, alternative="greater", mu=medH0, conf.int=TRUE) Wilcoxon signed rank test data: IQ V = 48, p- value = 0.01855 alternative hypothesis: true