library(AgroR)
data("laranja")
a=with(laranja, DBC(trat, bloco, resp,
mcomp = "sk",angle=45,sup = 10,family = "serif",
ylab = "Number of fruits/plants"))
barfacet(a,c("S1","S1","S1","S1","S1",
"S2","S2","S3","S3"))
Run the code above in your browser using DataLab