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$bookhead(book)

一个小区，种植4行

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)

markdown写作过程

• [x] 在R中写下程序

• [x] 在Firefox中下载Markdown here插件

• [x] 记住插件的快捷方式Art+Ctrl+M

• [x] 在有道云笔记的markdown下书写markdown语法

• [x] 将图片上传到极简图床(http://yotuku.cn/#/))

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

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