# Example 1
# Dataset in the format time by countries with missing values:
myTB2 <- tibble::tribble(
~time, ~UK, ~DE, ~IT,
1988, 998, 1250, 332,
1989, NA, 868, NA,
1990, 1150, 978, NA,
1991, 1600, NA, 802
)
toBeProcessed <- c( "UK","DE","IT")
# Simplest Imputation using option "cut":
resImpu <- impute_dataset(myTB2, countries=toBeProcessed,
timeName = "time",
tailMiss = c("cut", "constant")[1],
headMiss = c("cut", "constant")[1])
# Imputation using option "constant":
resImpu1 <- impute_dataset(myTB2, countries=toBeProcessed,
timeName = "time",
tailMiss = c("cut", "constant")[2],
headMiss = c("cut", "constant")[2])
# Imputation using both options "cut" and "constant":
resImput <- impute_dataset(myTB2, countries=toBeProcessed,
timeName = "time",
tailMiss = c("cut", "constant")[2],
headMiss = c("cut", "constant")[1])
# Example 2
# dataset time by countries for the indicator "JQIintensity_i":
myTB <- extract_indicator_EUF(
indicator_code = "JQIintensity_i", #Code_in_database
fromTime= 1965,
toTime=2016,
gender= c("Total","Females","Males")[1],
countries= convergEU_glb()$EU27$memberStates$codeMS)
# Imputation of missing values, option "cut":
myTBinp <- impute_dataset(myTB$res, timeName = "time",
countries=convergEU_glb()$EU27$memberStates$codeMS,
tailMiss = c("cut", "constant")[1],
headMiss = c("cut", "constant")[1])
# Imputation of missing values, option "constant":
myTBinp1 <- impute_dataset(myTB$res, timeName = "time",
countries=convergEU_glb()$EU27$memberStates$codeMS,
tailMiss = c("cut", "constant")[2],
headMiss = c("cut", "constant")[2])
Run the code above in your browser using DataLab