Je peux envoyer les données en privée par mail ci-besoin.
Cordialement
Code : Tout sélectionner
```{r}
Données = "C:/Users/yss78/Desktop/MASTER 2/Projet Statistiques de l'assurance/assurance_complete.R"
source(Données)
attach(dat)
dat2 <- dat
p=0.97
n= nrow(dat2)[1]
ntrain = floor(n*p)
ntest = n-ntrain
ind = sample(1:n,n);
ind_train = ind [1:ntrain]
ind_test = ind [(ntrain+1):n]
Dtrain = dat2[ind_train,]
Dtest = dat2[ind_test,]
Dtrain$Durée
CXmodel = coxph(Surv(Durée,censure)~Acompm+cs+agecat+region+reves+Ahabi+pcs+RUC, data = Dtrain)
summary(CXmodel)
cx.pred = predict( CXmodel , newdata = Dtest )
```
Cordialement.