sink("exam_andon.sink")
survie.donnees=read.table("exam_donnees.txt",col.names=c("survie","type"))
attach(survie.donnees)
cat("\n La moyenne de la variable survie \n")

print(mean(survie))
type=factor(type)
####M1 est le modele en utilisant la fonction aov ###
cat("\n Modele M1 en utilisant aov \n")
M1=aov(survie~type)
print(summary(M1))
print(model.tables(M1))
##### M2 est le modele en utilisant lm  ####
M2=lm(survie~type)
cat("\n Modele M2 en utilisant lm \n")
print(summary(M2))
sink()