R: diferència entre les revisions

R (mostra el codi font)

Revisió del 18:25, 2 juny 2005

1.396 bytes afegits , 2 juny 2005

Buròcrates, Administradors (Semantic MediaWiki), Curadors (Semantic MediaWiki), Editors (Semantic MediaWiki), Administradors

10.883

modificacions

@@ Línia 1.034: / Línia 1.034: @@
 '''1-Captura y modificación de bajas.dbf'''
-library(foreign)
+* Capturamos, hacemos distintas comprobaciones y etiquetamos las variables y los valores
-baixes<-read.dbf("C:/Documents and Settings/ffina/Escritorio/pkt/wiki/baixes.dbf")
-names(baixes)
+ library(foreign)
-class(baixes$ID)
+ baixes<-read.dbf("C:/rutacompleta/baixes.dbf")
-class(baixes$TIPUS)
+ names(baixes)
-levels(baixes$TIPUS)
+ class(baixes$ID)
-baixes$TIPUS<-factor(baixes$TIPUS,labels=c("Incapacitat transitòria","Maternal"))
+ class(baixes$TIPUS)
-class(baixes$INICI)
+ levels(baixes$TIPUS)
-class(baixes$FINAL)
+ baixes$TIPUS<-factor(baixes$TIPUS,labels=c("Incapacitat transitòria","Maternal"))
-library(Hmisc)
+ class(baixes$INICI)
-label(baixes$ID)<-"Identificació"
+ class(baixes$FINAL)
-label(baixes$TIPUS)<-"Tipus de baixa"
+ library(Hmisc)
-label(baixes$INICI)<-"Data d'inici"
+ label(baixes$ID)<-"Identificació"
-label(baixes$FINAL)<-"Data de finalització"
+ label(baixes$TIPUS)<-"Tipus de baixa"
+ label(baixes$INICI)<-"Data d'inici"
+ label(baixes$FINAL)<-"Data de finalització"
+* Seleccionamos sólo las incapacidades transitorias, eliminando las bajas maternales
+ length(baixes$ID)
+ baixes<-subset(baixes,baixes$TIPUS=="Incapacitat transitòria")
+ length(baixes$ID)
+ names(baixes)
+ baixes$TIPUS<-NULL
+ names(baixes)
+* Seleccionamos sólo las bajas que empiezan antes del 1-1-2005 y borramos el resto
+ length(subset(baixes,is.na(baixes$INICI))$INICI)
+ length(baixes$INICI)
+ summary(baixes$INICI)
+ baixes<-subset(baixes,baixes$INICI<as.Date("2005-1-1"))
+ length(baixes$INICI)
+ summary(baixes$INICI)
+* Dando un poco de vuelta para divertirnos, recodificamos los inicios anteriores a 1-1-2004 a esa fecha
+ for(i in 1:length(baixes$INICI)){
+  if(baixes$INICI[i]<as.Date("2004-1-1")){
+   baixes$INICI[i]=as.Date("2004-1-1")}}
+ length(baixes$INICI)
+ summary(baixes$INICI)
+* Dando otro paseo, recodificamos las finalizaciones ''missing'' y las posteriores a 31-12-2004 a esa fecha
+ length(subset(baixes,is.na(baixes$FINAL))$FINAL)
+ for(i in 1:length(baixes$FINAL)){
+  if(is.na(baixes$FINAL[i])){
+   baixes$FINAL[i]=as.Date("2004-12-31")}}
+ length(subset(baixes,is.na(baixes$FINAL))$FINAL)
+ length(baixes$FINAL)
+ summary(baixes$FINAL)
+ for(i in 1:length(baixes$FINAL)){
+  if(baixes$FINAL[i]>as.Date("2004-12-31")){
+   baixes$FINAL[i]=as.Date("2004-12-31")}}
+ length(baixes$FINAL)
+ summary(baixes$FINAL)
 == Sistema de ayuda ==