R: diferència entre les revisions

R (mostra el codi font)

897 bytes afegits , 2 juny 2005

10.883

modificacions

@@ Línia 1.201: / Línia 1.201: @@
   plantilla<-subset(plantilla,substr(as.character(plantilla$UP),1,2)=="BR")
   length(plantilla$ID)
+* Calculamos la edad
+ names(plantilla)
+ length(subset(plantilla,is.na(plantilla$NAIX))$NAIX)
+ plantilla$EDAT<-(as.Date("2004-7-1")-plantilla$NAIX)/365.25
+ plantilla$EDAT
+ plantilla$EDAT<-as.numeric(plantilla$EDAT)
+ plantilla$EDAT
+ length(subset(plantilla,is.na(plantilla$EDAT))$EDAT)
+ plantilla$NAIX<-NULL
+ names(plantilla)
+* Buscamos duplicados sin encontrarlos
+ duplicat<-duplicated(plantilla$ID)
+ table(duplicat)
+ duplicat<-NULL
+* Recodificamos la edad de forma diferente a como hemos hecho en baixes.dbf
+ library(car)
+ ?recode
+ detach(package:Hmisc)
+ ?recode
+ plantilla$EDATC<-recode(plantilla$EDAT,"55:hi=3;45:55=2;35:45=1;lo:35=0",T)
+ plantilla$EDATC
+ class(plantilla$EDATC)
+ levels(plantilla$EDATC)
+ plantilla$EDATC<-factor(plantilla$EDATC,labels=c("Menor de 35","35 a 45","45 a 55","Major de 55"))
+ plantilla$EDATC
+ library(Hmisc)
+ label(plantilla$EDATC)<-"Edat categoritzada"
 == Sistema de ayuda ==