AddVariable: Neue Variable zu den Daten hinzufuegen.

In statistikat/mzR: mzR - To compute estimates and their errors for Austrian microcensus data

Neue Variable zu den Daten hinzufuegen.

Description

Funktion erzeugt neue Variable in MZ-Daten.

Usage

AddVariable(x, functionName, newVar)

Arguments

x	MZ Daten - Output von Funktion ImportData oder IndivImportData.
functionName	Character: Name der Funktion mit der die neue Variable newVar erzeugt werden soll. Siehe Details.
newVar	Character: Name der neu zu erzeugenden Variable.

Details

Um in den Daten eine neue Variable newVar zu erzeugen, z.B. durch Rekodierungen einer anderen Variable, muss man eine Funktion functionName definieren. Dieser Funktion uebergibt man als Funktionsparameter die Variablenname(n) der in den Daten vorhandenen Merkmale die man zum Erzeugen der neuen Variable braucht. Mehr dazu in den Beispielen.

Value

Output sind wieder die MZ-Daten x die um die neu erzeugte Variable newvar ergaenzt wurden.

See Also

ImportData,IndivImportData

Examples

# Daten laden (oder Daten einlesen mit ImportData() bzw. IndivImportData())
data(mzTestData)

# Zuerst wird jeweils die Funktion definiert mit der die neue Variable erzeugt werden soll.
# Dann wird mit AddVariable diese Funktion auf die Daten angewandt. 

# Beispiel 1:
xerw_fun <- function(balt, xerwstat) {
x <- ifelse(balt>=15 & balt <=24, xerwstat, -99)
return(x)
}
mzTestData <- AddVariable(x=mzTestData, functionName=xerw_fun, newVar="xerw")

# Beispiel 2:
stdrec_fun <- function(dtstd, estund){
  x <- vector()
  x[dtstd==999] <- 999
  x[dtstd==-3] <- -3
  x[dtstd!=999] <- dtstd[dtstd!=999] 
  x[estund!=-3 & dtstd!=-3 & dtstd!=999] <- 
  dtstd[estund!=-3 & dtstd!=-3 & dtstd!=999]+estund[estund!=-3 & dtstd!=-3 & dtstd!=999]
  return(x)
}
mzTestData <- AddVariable(x=mzTestData, functionName=stdrec_fun, newVar="stdrec")

## Not run: 
# Beispiel 3:
age_pub_fun <- function(balt){
  x <- balt
  x <- car::recode(x, "-3= -3; 0:14=0; 15:19=1; 20:24=2; 
  25:34=3; 35:44=4; 45:54=5; 55:59=6; 60:64=7; 65:200=8")
  return(x)
}
mzTestData <- AddVariable(x=mzTestData, functionName=age_pub_fun, newVar="age_pub")

## End(Not run)

statistikat/mzR documentation built on Aug. 25, 2023, 9:14 a.m.