https://github.com/cran/scModels
Raw File
Tip revision: ba14d424c697de7a21f22f10407afbab9c5aaf7d authored by Lisa Amrhein on 24 January 2023, 07:20:02 UTC
version 1.0.4
Tip revision: ba14d42
RcppExports.R
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

cpp_gmRNA_basic <- function(n, r_on, r_degr) {
    .Call('_scModels_cpp_gmRNA_basic', PACKAGE = 'scModels', n, r_on, r_degr)
}

cpp_gmRNA_switch <- function(n, r_act, r_deact, r_on, r_degr) {
    .Call('_scModels_cpp_gmRNA_switch', PACKAGE = 'scModels', n, r_act, r_deact, r_on, r_degr)
}

cpp_gmRNA_burst <- function(n, r_burst, s_burst, r_degr) {
    .Call('_scModels_cpp_gmRNA_burst', PACKAGE = 'scModels', n, r_burst, s_burst, r_degr)
}

cpp_gmRNA_basic_burst <- function(n, r_on, r_burst, s_burst, r_degr) {
    .Call('_scModels_cpp_gmRNA_basic_burst', PACKAGE = 'scModels', n, r_on, r_burst, s_burst, r_degr)
}

cpp_rInvGaus <- function(n, mu, lambda) {
    .Call('_scModels_cpp_rInvGaus', PACKAGE = 'scModels', n, mu, lambda)
}

#' Kummer's (confluent hypergeometric) function in log-scale
#'
#' Kummer's function (also: confluent hypergeometric function of the first kind)
#' for numeric (non-complex) values and input parameters in log-scale.
#' @param x numeric value or vector
#' @param a,b numeric parameters of the Kummer function
#' @name chf_1F1
#' @rdname chf_1F1
#' @export
#' @details Note that the output is in log-scale. So the evaluated function is:
#' \deqn{\log \left[\sum_{n=0}^\infty \frac{a^{(n)} x^n}{ b^(n) n!}\right]}{log [ \sum from n to \infty (a^(n) x^n)/ (b^(n) n!)]}
#' where \eqn{a^{(n)}}{a^(n)} and \eqn{b^{(n)}}{b^(n)} describe the rising factorial.
#' @examples
#' x <- chf_1F1(-100:100, 5, 7)
#' plot(-100:100, x, type='l')
chf_1F1 <- function(x, a, b) {
    .Call('_scModels_chf_1F1', PACKAGE = 'scModels', x, a, b)
}

cpp_dpb <- function(x, alpha, beta, c, log_p = FALSE) {
    .Call('_scModels_cpp_dpb', PACKAGE = 'scModels', x, alpha, beta, c, log_p)
}

cpp_ppb <- function(q, alpha, beta, c, lower_tail, log_p) {
    .Call('_scModels_cpp_ppb', PACKAGE = 'scModels', q, alpha, beta, c, lower_tail, log_p)
}

cpp_rpb <- function(n, alpha, beta, c) {
    .Call('_scModels_cpp_rpb', PACKAGE = 'scModels', n, alpha, beta, c)
}

cpp_qpb <- function(p, alpha, beta, c, lower_tail, log_p) {
    .Call('_scModels_cpp_qpb', PACKAGE = 'scModels', p, alpha, beta, c, lower_tail, log_p)
}

back to top