||
120个品种,共种15个区组,每个区组有两个重复。
library(agricolae)ck<-c("先玉335","郑单958")entry<-paste("16N",001:120,sep = " ")head(entry)
然后生成试验设计,design.dau函数,有3个参数,第一个是对照,第二个是品种,第三个是区组
outdesign <-design.dau(ck,entry, r=15)book <- outdesign$bookhead(book)
plot_n_row <- 4row <- 20 #定义行号col <- 30 #定义列book$Row <- rep(1:(row/plot_n_row),each=30)book$Col <- rep(1:col,row/plot_n_row)head(book)plot(book$Row,book$Col)
[x] 在R中写下程序
[x] 在Firefox中下载Markdown here插件
[x] 记住插件的快捷方式Art+Ctrl+M
[x] 在有道云笔记的markdown下书写markdown语法
[x] 将图片上传到极简图床(http://yotuku.cn/#/))
然后将代码拷贝到微信的公众号编辑器中,按下快捷键
扫码关注公众号,分享干货不喝水
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-27 07:37
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社