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.171: | Línia 1.171: | ||
'''2-Captura y modificación de plantilla.dbf''' | '''2-Captura y modificación de plantilla.dbf''' | ||
* Capturamos, hacemos distintas comprobaciones y etiquetamos las variables y los valores | |||
library(foreign) | |||
plantilla<-read.dbf("C:/rutacompleta/plantilla.dbf") | |||
names(plantilla) | |||
class(plantilla$ID) | |||
class(plantilla$SEXE) | |||
levels(plantilla$SEXE) | |||
plantilla$SEXE<-factor(plantilla$SEXE,labels=c("Dona","Home")) | |||
class(plantilla$NAIX) | |||
class(plantilla$CATEG) | |||
levels(plantilla$CATEG) | |||
class(plantilla$CONTR) | |||
levels(plantilla$CONTR) | |||
class(plantilla$UP) | |||
levels(plantilla$UP) | |||
library(Hmisc) | |||
label(plantilla$ID)<-"Identificació" | |||
label(plantilla$SEXE)<-"Sexe" | |||
label(plantilla$NAIX)<-"Data de naixement" | |||
label(plantilla$CATEG)<-"Categoria laboral" | |||
label(plantilla$CONTR)<-"Tipus de contracte" | |||
label(plantilla$UP)<-"Unitat productiva" | |||
* Nos quedamos sólo con los trabajadores de ambulatorio, identificables porque su código de puesto de trabajo empieza por las letras '''BR''' | |||
length(plantilla$ID) | |||
plantilla<-subset(plantilla,substr(as.character(plantilla$UP),1,2)=="BR") | |||
length(plantilla$ID) | |||
== Sistema de ayuda == | == Sistema de ayuda == | ||