Buròcrates, Administradors (Semantic MediaWiki), Curadors (Semantic MediaWiki), Editors (Semantic MediaWiki), Administradors
10.883
modificacions
→Un ejemplo casi-real
| Línia 1.174: | Línia 1.174: | ||
* Capturamos, hacemos distintas comprobaciones y etiquetamos las variables y los valores | * Capturamos, hacemos distintas comprobaciones y etiquetamos las variables y los valores | ||
library(foreign) | library(foreign) | ||
plantilla<-read.dbf("C:/rutacompleta/plantilla.dbf") | plantilla<-read.dbf("C:/rutacompleta/plantilla.dbf") | ||
names(plantilla) | names(plantilla) | ||
class(plantilla$ID) | class(plantilla$ID) | ||
class(plantilla$SEXE) | class(plantilla$SEXE) | ||
levels(plantilla$SEXE) | levels(plantilla$SEXE) | ||
plantilla$SEXE<-factor(plantilla$SEXE,labels=c("Dona","Home")) | plantilla$SEXE<-factor(plantilla$SEXE,labels=c("Dona","Home")) | ||
class(plantilla$NAIX) | class(plantilla$NAIX) | ||
class(plantilla$CATEG) | class(plantilla$CATEG) | ||
levels(plantilla$CATEG) | levels(plantilla$CATEG) | ||
class(plantilla$CONTR) | class(plantilla$CONTR) | ||
levels(plantilla$CONTR) | levels(plantilla$CONTR) | ||
class(plantilla$UP) | class(plantilla$UP) | ||
levels(plantilla$UP) | levels(plantilla$UP) | ||
library(Hmisc) | library(Hmisc) | ||
label(plantilla$ID)<-"Identificació" | label(plantilla$ID)<-"Identificació" | ||
label(plantilla$SEXE)<-"Sexe" | label(plantilla$SEXE)<-"Sexe" | ||
label(plantilla$NAIX)<-"Data de naixement" | label(plantilla$NAIX)<-"Data de naixement" | ||
label(plantilla$CATEG)<-"Categoria laboral" | label(plantilla$CATEG)<-"Categoria laboral" | ||
label(plantilla$CONTR)<-"Tipus de contracte" | label(plantilla$CONTR)<-"Tipus de contracte" | ||
label(plantilla$UP)<-"Unitat productiva" | 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''' | * 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) | length(plantilla$ID) | ||
plantilla<-subset(plantilla,substr(as.character(plantilla$UP),1,2)=="BR") | plantilla<-subset(plantilla,substr(as.character(plantilla$UP),1,2)=="BR") | ||
length(plantilla$ID) | length(plantilla$ID) | ||
== Sistema de ayuda == | == Sistema de ayuda == | ||