R：复制样本的向量，而不仅仅是一个样本答案

【问题标题】：R: Replicate Vector of Sample Instead of Just a SampleR：复制样本的向量，而不仅仅是一个样本
【发布时间】：2021-06-18 22:23:03
【问题描述】：

我想使用R 来做我对10 的样本大小所做的事情，以对样本集做同样的事情

我有什么 我得到了下面的R 代码，用于复制 Shapiro 正态性检验here

sim = replicate(1000,shapiro.test(rnorm(10)))
## rejections go like, assuming an alpha of 0.05 :
table(sim["p.value",] < 0.05)

拒绝结果是这样的，假设 alpha 为 0.05：

FALSE	TRUE
948	52

我想要什么

我希望它不是仅对 10 的样本大小进行计数测试，而是对样本向量（例如 (10, 20,50, 100)）进行计数测试，结果如下：

.	FALSE	TRUE
10	948	52
20	970	30
50	956	44
100	944	36

【问题讨论】：

标签： r replication

【解决方案1】：

使用循环 - sapply 并在 rnorm 中传递这些值

out <- t(sapply(c(10, 20, 50, 100), function(x) 
    table(replicate(1000, shapiro.test(rnorm(x)))["p.value",] < 0.05)))
row.names(out) <- c(10, 20, 50, 100)

-输出

out
    FALSE TRUE
10    953   47
20    942   58
50    960   40
100   951   49

【讨论】：