r - 在 R 中生成实验设计数据
问题描述
我有一个随机区组设计实验,我们想在其中测试 10 种治疗方法(8 种基因型 + 2 种对照)。
它的结构如下:
9 个站点,每个站点内有 4 个区块(重复),每个区块内有 10 个小区,每个小区内有 144 个给定处理(基因型)的个体。
我想生成如下数据集:
注意:随机分配处理到每个块内的地块。
Site <- LETTERS[1:6]
Block <- LETTERS[1:4] ## For each Site
Plot <- paste(rep("P",10),seq(1,10,1),sep="_") ## For each Block
Trt <- c(LETTERS[1:8],rep("control",2)) ## 10 Treatments within each block
id <- seq(1,144,1) ## for each Plot
observation <- runif(n=144,min=1, max=4) ## repeated for each treatment, each block,and each site.
data.frame(Site,Block,Plot,Trt,id,observation)
知道这段代码会抛出一个错误,我想对于同一个站点,所有块级别,对于同一个块,所有地块级别及其对应的处理,以及对于同一个地块,所有 id 标签及其相应的观察结果。
非常感谢
解决方案
我想你可能正在寻找expand.grid
:
Site <- LETTERS[1:6]
Block <- LETTERS[1:4] ## For each Site
Plot <- paste(rep("P",10),seq(1,10,1),sep="_") ## For each Block
data <- expand.grid(Site = Site, Block = Block, Plot = Plot)
data$Trt <- sample(c(LETTERS[1:8],paste0("control",1:2)), nrow(data), replace = TRUE)
data
推荐阅读
- javascript - redux thunk 中的 debounce 方法
- gerrit - How to find out if a Gerrit review is draft or not?
- java - How do I get Object out of HashMap?
- angular - PrimeNG 数据表内联编辑
- recursion - 过滤器最大值 N
- javascript - 三.js大网格渐进式渲染
- django - Delete header in django rest framework response
- python - 从美丽的汤中过滤掉标签
- cassandra - Querying on column which is not a part of a PK or a secondary index
- c# - iTextSharp filed names display doesn't work