require(devtools)
install_github("disentangle", "ivanhanigan")
# functions
require(devtools)
install_github("disentangle", "ivanhanigan")
require(disentangle)
require(xtable)
# load
fpath <- system.file("extdata/civst_gend_sector.csv", package = "disentangle")
fpath
civst_gend_sector <- read.csv(fpath)
civst_gend_sector$datevar <- as.Date(round(rnorm(nrow(civst_gend_sector), Sys.Date(),10)), origin = "1970-01-01")
civst_gend_sector$missing_blahblah_variable <- NA
# check
str(civst_gend_sector)
#do
data_dict(civst_gend_sector, "civil_status")
data_dict(civst_gend_sector, "datevar")
data_dict(civst_gend_sector, "number_of_cases")
data_dict(civst_gend_sector, "missing_blahblah_variable")
dataDictionary <- data_dictionary(civst_gend_sector,
show_levels = -1)
print(xtable(dataDictionary), type = "html", include.rownames = F)