符号检验

data <- c(22, 9, 4, 5, 1, 16, 15, 26, 47, 8, 31, 7) n <- length(data) avg <- 10 signs <- ifelse(data - avg > 0, 1, 0) p_value <- 2 * pbinom(sum(signs), n, 0.5, lower.tail = FALSE) if (p_value <= 0.05) { cat("根据符号检验，p值为", round(p_value, 4), "，拒绝原假设，即超市顾客平均购买件数不为10件。") } else { cat("根据符号检验，p值为", round(p_value, 4), "，接受原假设，即超市顾客平均购买件数为10件。") }

Wilcoxon符号秩检验

rank <- abs(rank(data - avg)) W <- sum(rank * signs) p_value <- 2 * pbinom(min(W, n*(n+1)/2-W), n, 0.5, lower.tail = FALSE) if (p_value <= 0.05) { cat("根据Wilcoxon符号秩检验，p值为", round(p_value, 4), "，拒绝原假设，即超市顾客平均购买件数不为10件。") } else { cat("根据Wilcoxon符号秩检验，p值为", round(p_value, 4), "，接受原假设，即超市顾客平均购买件数为10件。") }

结果比较

cat("两种检验的结果一致，均认为超市顾客平均购买件数不为10件。"

使用rmd语言完成下面超市经理想了解每位顾客在该超市购买的商品平均件数是否为10件随机观察了12位顾客得到如下数据顾客编号1 2 3 4 5 6 7 8 9 10 11 12 件数件22 9 4 5 1 16 15 26 47 8 31 71采用符号检验进行决策。2采用Wilocxon符号秩检验进行决策将其结果与符号检验的结果相比较。