# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
Matcher <- function(Ncontrols, Tcontrols, Ncases, endFollowUp, caseIndex, controls, cases, Ndateterms, datescases, datescontrols, Ndurationterms, durationcases, durationcontrols, durationMin) {
.Call('_heaven_Matcher', PACKAGE = 'heaven', Ncontrols, Tcontrols, Ncases, endFollowUp, caseIndex, controls, cases, Ndateterms, datescases, datescontrols, Ndurationterms, durationcases, durationcontrols, durationMin)
}
countDrugs <- function(mix, db) {
.Call('_heaven_countDrugs', PACKAGE = 'heaven', mix, db)
}
daysnonhosp <- function(id, pdate, iddates, inddto, uddto) {
.Call('_heaven_daysnonhosp', PACKAGE = 'heaven', id, pdate, iddates, inddto, uddto)
}
#' @description Inner process of medicin macro
#' @title The heart of the medicin macro
#' @param dat data set
#' @param admdat admission data
#' @param doses doses
#' @param idunique unique subject ids
#' @param index start and end index of subjects in dat and admdat
#' @param prescriptionwindow prescription window
#' @param maxdepot see medicine macro
#' @param verbose feed back for debugging
#' @author Helene Charlotte Rytgaard and Thomas Alexander Gerds
#' @export
innerMedicinMacro <- function(dat, admdat, doses, idunique, index, prescriptionwindow, maxdepot, verbose) {
.Call('_heaven_innerMedicinMacro', PACKAGE = 'heaven', dat, admdat, doses, idunique, index, prescriptionwindow, maxdepot, verbose)
}
na_locf <- function(x) {
.Call('_heaven_na_locf', PACKAGE = 'heaven', x)
}
split2 <- function(pnrnum, inn, out, event, mergevar, split, numcov) {
.Call('_heaven_split2', PACKAGE = 'heaven', pnrnum, inn, out, event, mergevar, split, numcov)
}
#' @export
splitDate <- function(inn, out, event, mergevar, seq, varname) {
.Call('_heaven_splitDate', PACKAGE = 'heaven', inn, out, event, mergevar, seq, varname)
}
splitFT <- function(pnrnum, inn, out, event, mergevar, Spnrnum, val, start, end, num, numcov, default_) {
.Call('_heaven_splitFT', PACKAGE = 'heaven', pnrnum, inn, out, event, mergevar, Spnrnum, val, start, end, num, numcov, default_)
}
vectorSearch <- function(pnrnum, searchCols, conditions, exclusions, condnames, exclnames, ni, ilength, ne, elength, datarows, match) {
.Call('_heaven_vectorSearch', PACKAGE = 'heaven', pnrnum, searchCols, conditions, exclusions, condnames, exclnames, ni, ilength, ne, elength, datarows, match)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.