That’s a great time!!!

试验描述

120个品种，共种15个区组，每个区组有两个重复。

library(agricolae)
ck<-c("先玉335","郑单958")
entry<-paste("16N",001:120,sep = " ")
head(entry)

design.dau 函数介绍

然后生成试验设计，design.dau函数，有3个参数，第一个是对照，第二个是品种，第三个是区组

outdesign <-design.dau(ck,entry, r=15)
book <- outdesign$book
head(book)

一个小区，种植4行

plot_n_row <- 4
row <- 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)

markdown写作过程

• [x] 在R中写下程序
• [x] 在Firefox中下载Markdown here插件
• [x] 记住插件的快捷方式Art+Ctrl+M
• [x] 在有道云笔记的markdown下书写markdown语法
• [x] 将图片上传到极简图床(http://yotuku.cn/#/)

然后将代码拷贝到微信的公众号编辑器中，按下快捷键

扫码关注公众号，分享干货不喝水