# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
calibPop_work <- function(inp, totals, weights, hh_info, params) {
.Call('_simPop_calibPop_work', PACKAGE = 'simPop', inp, totals, weights, hh_info, params)
}
binary_representation <- function(levels, values) {
.Call('_simPop_binary_representation', PACKAGE = 'simPop', levels, values)
}
ipu_work <- function(inp, con, w, eps, verbose) {
.Call('_simPop_ipu_work', PACKAGE = 'simPop', inp, con, w, eps, verbose)
}
updateMatC <- function(M, add_row, add_col, remove_row, remove_col, hhsize, hhid) {
.Call('_simPop_updateMatC', PACKAGE = 'simPop', M, add_row, add_col, remove_row, remove_col, hhsize, hhid)
}
updateVecC <- function(init_weight, add_index, remove_index, hhsize, hhid, sizefactor) {
.Call('_simPop_updateVecC', PACKAGE = 'simPop', init_weight, add_index, remove_index, hhsize, hhid, sizefactor)
}
sumVec <- function(init_weight, sizefactor) {
.Call('_simPop_sumVec', PACKAGE = 'simPop', init_weight, sizefactor)
}
splitVector <- function(x) {
.Call('_simPop_splitVector', PACKAGE = 'simPop', x)
}
calcCase <- function(x) {
.Call('_simPop_calcCase', PACKAGE = 'simPop', x)
}
calcCase2 <- function(x) {
.Call('_simPop_calcCase2', PACKAGE = 'simPop', x)
}
calcProbabilities <- function(indexMat, x, Npop, indexData, initWeight, indexAdd, indexRemove, n_add, n_remove) {
.Call('_simPop_calcProbabilities', PACKAGE = 'simPop', indexMat, x, Npop, indexData, initWeight, indexAdd, indexRemove, n_add, n_remove)
}
updateObjectiveC <- function(init_weight, add_index, remove_index, hhsize, hhid, sizefactor, indexMat, indexData, diff, householdMargin) {
.Call('_simPop_updateObjectiveC', PACKAGE = 'simPop', init_weight, add_index, remove_index, hhsize, hhid, sizefactor, indexMat, indexData, diff, householdMargin)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.