1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| InterF5Pos <- read.table("Inter F5 Positifs.csv",sep=";",header=T)
head(InterF5Pos)
#Création boxplot
boxplot(formula=Expression.level ~ Time, data=InterF5Pos, outline=T, boxwex=0.25, at=1:5 - 0.2)
InterF5Neg<-read.table("Inter F5 Negatifs.csv",sep=";",header=T)
head(InterF5Neg)
par(xaxs="i",yaxs="r")
boxplot(Expression.level ~Time, data=InterF5Neg,outline=T, boxwex=0.25, at= 1:5+0.2, add=TRUE,col="grey",xlab="Time (H)",ylab="Expression level")
par(ann=F,new=T,xaxs="r",yaxs="r")
plot.default(ADN,axes=F,type="l",xlim=c(4,72))
# Tracage courbe
points(ADN,pch=20,lty=1, xaxt="n",yaxt="n",ylab="Quantity of DNA copies",xlim=c(4,72))
axis(4)
# Titres
title(main=paste("Main","\n",sep=""),cex.main=2)
title(main=paste("\n","Sub",sep=""),cex.main=1.5)
#Légende
legend("topleft",legend=c("Infected", "Non Infected"),fill=c("white","grey"),bty="n") |
Partager