diff --git a/data-raw/plowing.R b/data-raw/plowing.R new file mode 100644 index 0000000000000000000000000000000000000000..fcb683f53cd4c02f459cda4309881929179a2910 --- /dev/null +++ b/data-raw/plowing.R @@ -0,0 +1,26 @@ +##---------------------------------------------------------------------- +## Data generation. + +plowing <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_aradura.txt", + header=TRUE, sep="\t") +names(plowing) <- c("plow", "block", "yield") +levels(plowing$plow) <- c("normal", "deep") +str(plowing) + +plowing <- plowing[with(plowing, order(block, plow)),] + +save(plowing, file="../data/plowing.RData") + +##---------------------------------------------------------------------- +## Examples. + +require(lattice) + +xyplot(yield~plow|block, data=plowing, type=c("p", "a"), + ylab=expression(Yield~(t~ha^{-1})), + xlab="Plowing level") + +rm(list=ls()) +load("../data/plowing.RData") +ls() +str(plowing) diff --git a/data/plowing.RData b/data/plowing.RData new file mode 100644 index 0000000000000000000000000000000000000000..2b2f402942ed05c5af6f034048dc665fcc13283e Binary files /dev/null and b/data/plowing.RData differ