Code : Tout sélectionner
ptm=read.table("p_tjuin.txt")
y<-tp[1:175,2]
x<-RIm[94:268]
lin<-lm(x~y)
plot(y,x,xlim=c(0,1),main="Ratio juin (precipitation / température) /croissance des cernes")
summary(lin)
abline(lin)
r2 <- summary(lin)$r.squared
mtext(bquote( R^2 == .(r2)))
J'ai cherché comment la commande lm appelle les p-value pour pouvoir sortir les données de summary(lm) mais je n'est pas réussi .
Si quelqu'un à la solution ou une autre astuce je suis preneur.
Merci