1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
fi<-read.csv2("file3csv.csv", na.strings = "NA",header = TRUE)
dim(fi)
head(fi)
fi_2<-subset(fi, periode != "0month", select= c (ID, Variete, annee, periode , Traitement, field.treatment, poids_racines, taille_racines))
dim(fi_2)
head(fi_2)
str(fi_2)
fi<-fi_2
fi$poids_racines<-as.numeric(fi$poids_racines)
fi$taille_racines<-as.numeric(fi$taille_racines)
fi <- droplevels( subset( fi, periode != "0month"))
library(lme4)
> model.1<-lmer(fi$poids_racines~ (field.treatment + Traitement + Variete + periode)^2 + annee + (1 |ID), fi)
> summary(model.1) |