R/RcppExports.R

In SC19003/SC19003: Queuing problem

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

rwMetropolisC <- function(sigma, x0, N) {
    .Call('_SC19003_rwMetropolisC', PACKAGE = 'SC19003', sigma, x0, N)
}

#' @title Use three inputs to predict response using Rcpp.
#' @description The prediction model is described in http://www.babelgraph.org/wp/?p=358.
#' @param age the first predictor (numeric)
#' @param female the second predictor (logical)
#' @param ily the third predictor (logical)
#' @return a random sample of size \code{n}
#' @examples
#' \dontrun{
#' data(data)
#' attach(data)
#' res <- vaccC(age,female,ily)
#' }
#' @export
vaccC <- function(age, female, ily) {
    .Call('_SC19003_vaccC', PACKAGE = 'SC19003', age, female, ily)
}