This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | Next revision Both sides next revision | ||
members:aguilloux:enseignements:survivalanalysis [2019/10/22 09:26] Agathe Guilloux |
members:aguilloux:enseignements:survivalanalysis [2019/10/22 09:58] Agathe Guilloux [Longitudinal and survival data analysis (M2DSSAF et ENSIIE)] |
||
---|---|---|---|
Line 27: | Line 27: | ||
* [[https://docs.google.com/forms/d/1ciOUQoNZk9h4hcm0eZLm-ykjFHGNhkJNc2mPuaUSd54/edit?usp=sharing|Questionnaire google pour déclarer les équipes et uploader votre rapport]] | * [[https://docs.google.com/forms/d/1ciOUQoNZk9h4hcm0eZLm-ykjFHGNhkJNc2mPuaUSd54/edit?usp=sharing|Questionnaire google pour déclarer les équipes et uploader votre rapport]] | ||
+ | |||
+ | wpbc = read_delim("./wpbc.data.txt",delim=",",col_names=F,na = '?') | ||
+ | |||
+ | names_cov = paste0(rep(c('radius','texture','perimeter','area','smoothness','compactness', | ||
+ | 'concavity','concave points','symmetry','fractal dimension'),3), | ||
+ | c(rep('_mean',10),rep('_SD',10),rep('_worst',10))) | ||
+ | |||
+ | names(wpbc) = c('id','recurrent','time',names_cov,c('Tumor size','Lymph node status')) | ||
+ | |||
+ | wpbc = wpbc %>% mutate(id = factor(id)) %>% | ||
+ | mutate( recurrent = recode_factor(recurrent , "N" = FALSE, 'R' = TRUE )) | ||
+ | glimpse(wpbc) | ||