Bonjour,
je ne comprends pas pourquoi en faisant ce programme j'obtiens les même intervalles de confiance pour les jeunes et les Agés alors que pour une autre variable avec le même programme ca marche très bien!
Est ce que vous voyez une erreur?Merci
Code : Tout sélectionner
VarAge <- rep(NA, length(regroup2angio2$Age))
VarAge <- ifelse(regroup2angio2$Age<=68,”Jeunes”, VarAge)
VarAge <- ifelse(regroup2angio2$Age>68,”Agés”, VarAge)
VarAge <- as.factor(VarAge)
VarAgebis <- summary(VarAge)
VarAgebis
# Agés Jeunes
# 327 360
regroup2angio2$VarAge <- VarAge
fix(VarAge)
PersJeunes <- regroup2angio2$VarAge== "Jeunes"
PersJeunes2 <- regroup2angio2[PersJeunes,]
fix(PersJeunes2)
mean(PersJeunes2$diff2angio, na.rm=TRUE)
#409.7193
median(PersJeunes2$diff2angio, na.rm=TRUE)
# 118
median(PersJeunes2$diff2angio, na.rm=TRUE)
difflogJeunes<- log(PersJeunes2$diff2angio)
PersAgés<- regroup2angio2$VarAge== "Agés"
PersAgés2 <- regroup2angio2[PersAgés,]
fix(PersAgés2)
mean(PersAgés2$diff2angio, na.rm=TRUE)
#360.0183
median(PersAgés2$diff2angio, na.rm=TRUE)
#78
difflogAgés<- log(PersAgés2$diff2angio)
ICJeunes=predict(lm(PersJeunes2$diff2angio~PersJeunes) ,interval=”confidence”,level=0.95)
fix(ICJeunes)
ICAgés = predict(lm(regroup2angio2$diff2angio~PersAgés), interval=”confidence”, level=0.95)
fix(ICAgés)