TP 5 Solutions
write.table(CO2,file="mydata.txt",sep=",")
mydata <- read.table("mydata.txt",sep=",",header=T)
pairs(CO2[,-1])
maxuptake <- function(nameplant){
max(CO2$uptake[CO2$Plant==nameplant])
}
maxvec <- sapply(levels(CO2$Plant),maxuptake)
minuptake <- function(nameplant){
min(CO2$uptake[CO2$Plant==nameplant])
}
minmaxmat <- rbind(sapply(levels(CO2$Plant),minuptake),maxvec)
barplot(minmaxmat,beside=T,col=c("red","blue"),main="minima and maxima of uptakes by plant")