knitr::opts_chunk$set( collapse = TRUE, comment = "#>", eval = FALSE )
library(koboquest) library(hypegrammaR) library(composr) library(kobostandards) library(dplyr) library(xlsformfill)
mydata <- read.csv("./input/data.csv", stringsAsFactors = F) ...
mydata <- xlsform_fill(questions,choices,1000)
load_questionnaire(mydata, questions, choices)
samplingframe_tidy<- samplingframe_tidy %>% mutate(stratum_id = paste0(district.pcode,"_",population_group)) data <- data %>% mutate(data_stratum_id = paste0("YE", a3_metadata, "_", data_stratum_id))
results <- from_analysisplan_map_to_output(response, analysisplan = analysisplan[1:20,], weighting = strata_weight_fun, cluster_variable_name = NULL, questionnaire)
map_to_hierarchical_template(results, questionnaire = questionnaire, by_analysisplan_columns =c("dependent.var" # ,"repeat.var" # ,"repeat.var.value" # ,"independent.var", # ,"independent.var.value" ), filename = "./output/test.html") browseURL("./output/test.html") map_to_master_table(results,"test.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.