### Example
data("eusilc")
set.seed(1)
eusilc1 <- eusilc
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[, t_pov:=trunc(runif(nrow(data), 0, 2))]
data[, t_dep:=trunc(runif(nrow(data), 0, 2))]
data[, t_lwi:=trunc(runif(nrow(data), 0, 2))]
data[, exp:= 1]
data[, exp2:= 1 * (age < 60)]
# At-risk-of-poverty (AROP)
data[, pov:= ifelse (t_pov == 1, 1, 0)]
# Severe material deprivation (DEP)
data[, dep:= ifelse (t_dep == 1, 1, 0)]
# Low work intensity (LWI)
data[, lwi:= ifelse (t_lwi == 1 & exp2 == 1, 1, 0)]
# At-risk-of-poverty or social exclusion (AROPE)
data[, arope:= ifelse (pov == 1 | dep == 1 | lwi == 1, 1, 0)]
result <- vardchangannual(Y="pov", 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 = FALSE,
use.estVar = FALSE,
confidence=0.95)Run the code above in your browser using DataLab