Buròcrates, Administradors (Semantic MediaWiki), Curadors (Semantic MediaWiki), Editors (Semantic MediaWiki), Administradors
10.883
modificacions
→Un ejemplo casi-real
| Línia 1.237: | Línia 1.237: | ||
library(Hmisc) | library(Hmisc) | ||
label(plantilla$EDATC)<-"Edat categoritzada" | label(plantilla$EDATC)<-"Edat categoritzada" | ||
'''3-Unimos las dos bases, datos individuales''' | |||
* Vamos directamente al grano pero haciendo algunas comprobaciones prescindibles (''prova'') | |||
length(plantilla$ID) | |||
length(baixes$ID) | |||
individual<-merge(plantilla,baixes,all.x=T) | |||
length(individual$ID) | |||
prova<-merge(plantilla,baixes,all.x=T,all.y=T) | |||
length(prova$ID) | |||
length(prova$ID)-length(individual$ID) | |||
length(subset(plantilla,is.na(plantilla$SEXE))$SEXE) | |||
length(subset(prova,is.na(prova$SEXE))$SEXE) | |||
prova<-NULL | |||
* Ponemos ceros donde hay ''missings'' | |||
length(subset(individual,is.na(individual$numero))$numero) | |||
detach(package:Hmisc) | |||
individual$numero<-recode(individual$numero,"NA=0") | |||
length(subset(individual,is.na(individual$numero))$numero) | |||
length(subset(individual,is.na(individual$dies))$dies) | |||
individual$dies<-recode(individual$dies,"NA=0") | |||
length(subset(individual,is.na(individual$dies))$dies) | |||
'''4-Agregamos para tener los datos por ambulatorio''' | |||
== Sistema de ayuda == | == Sistema de ayuda == | ||