Buròcrates, Administradors (Semantic MediaWiki), Curadors (Semantic MediaWiki), Editors (Semantic MediaWiki), Administradors
10.883
modificacions
R: diferència entre les revisions
Salta a la navegació
Salta a la cerca
→Un ejemplo casi-real
| Línia 1.034: | Línia 1.034: | ||
'''1-Captura y modificación de bajas.dbf''' | '''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:/ | |||
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 == | == Sistema de ayuda == | ||