if (FALSE) {
#A full profile plot for Soybean data
data(Soybean,package = "qrNLMM")
attach(Soybean)
group.plot(x = Time,y = weight,groups = Plot,type="b",
main="Soybean profiles",xlab="time (days)",
ylab="mean leaf weight (gr)")
#Profile plot by genotype
group.plot(x = Time[Variety=="P"],y = weight[Variety=="P"],
groups = Plot[Variety=="P"],type="l",col="blue",
main="Soybean profiles by genotype",xlab="time (days)",
ylab="mean leaf weight (gr)")
group.lines(x = Time[Variety=="F"],y = weight[Variety=="F"],
groups = Plot[Variety=="F"],col="black")
}
Run the code above in your browser using DataLab