### Example
data("eusilc")
set.seed(1)
eusilc1 <- eusilc[1:100,]
set.seed(1)
data <- data.table(rbind(eusilc1, eusilc1),
year=c(rep(2010, nrow(eusilc1)),
rep(2011, nrow(eusilc1))),
country=c(rep("AT", nrow(eusilc1)),
rep("AT", nrow(eusilc1))))
data[, quarter:=.I - 4 * trunc((.I - 1)/4)]
data[age<0, age:=0]
PSU <- data[,.N, keyby="db030"]
PSU[, N:=NULL]
PSU[, PSU:=trunc(runif(nrow(PSU), 0, 5))]
setkeyv(PSU, "db030")
setkeyv(data, "db030")
data <- merge(data, PSU, all=TRUE)
PSU <- eusilc <- NULL
data[, strata:=c("XXXX")]
data[, strata:=as.character(strata)]
data[, employed:=trunc(runif(nrow(data), 0, 2))]
data[, unemployed:=trunc(runif(nrow(data), 0, 2))]
data[, labour_force:=employed + unemployed]
result <- vardchangannual(Y="employed", H="strata",
PSU="PSU", w_final="rb050",
id="db030", Dom=NULL, Z=NULL,
country="country", years="year",
subperiods="quarter",
dataset=data,
year1=2010, year2=2011,
percentratio = 100,
confidence=0.95)
result <- vardchangannual(Y="unemployed", H="strata",
PSU="PSU", w_final="rb050",
id="db030", Dom=NULL, Z="labour_force",
country="country", years="year",
subperiods="quarter",
dataset=data,
year1=2010, year2=2011,
percentratio = 100,
confidence=0.95)
Run the code above in your browser using DataLab