代码之家 › 专栏 › 技术社区 › antecessor

重复一个过程1000次并创建一个绘图

repeat bootstrapping r

antecessor · 技术社区 · 8 年前

让我们从一些数据开始:

df <- rnorm(30)

我想随机抽样1000次 df 每次不重复取5个数并计算其变异系数( cv )以下内容:

sample_df <- sample(df, 5, replace = F) 
cv <- (sd(sample_df) / mean(sample_df)) * 100

所以现在。我想在最后两行代码中重复1000次,这样就可以得到1000个系数。我该怎么做?

稍后,我想合并所有系数并绘制直方图或密度图。

1 回复 | 直到 8 年前

akrun 8 年前

我们可以把代码放在一个大括号里 replicate

n <- 1000
out <- replicate(n, {sample_df <- sample(df, 5, replace = FALSE)
               sd(sample_df)/mean(sample_df) * 100})
hist(out)

编辑:基于@ben bolker的评论

推荐文章

Deivid · 从另一个列表创建新列表,并通过重复来填充缺失的值

4 年前

Sun Wenjie · 如何获取Perl6中由重复项组成的列表?

8 年前

ebrahim babavand · 在特定日期和时间使用Alarmmanager启动服务并重复

8 年前

muni · 基于数据帧中值的重复创建计数器

8 年前

S. Avenci · 带重复排序表的有效置换

8 年前

Karajohann · 用不同的编程构造替换“goto”

8 年前

FÄ±rat Uyulur · 在python中,如何用regex替换重复的大小写字符

8 年前

Christopher Cass · 如何重复运行SQL Delete语句和收缩事务日志?

8 年前

Denise · 为什么在CSS中使用“repeat”后导航栏翻了一倍?

8 年前

ararb78 · 重复动画角度4

8 年前