R/RcppExports.R

In xiangjiexue/npfixedcomp: Non-parametric methods for estimating mixing distribution

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

dt1 <- function(x, df, ncp, lg, useintegration = FALSE) {
    .Call('_npfixedcomp_dt1', PACKAGE = 'npfixedcomp', x, df, ncp, lg, useintegration)
}

pnpt1 <- function(x, mu0, pi0, stdev, lt = TRUE) {
    .Call('_npfixedcomp_pnpt1', PACKAGE = 'npfixedcomp', x, mu0, pi0, stdev, lt)
}

dnpnorm1 <- function(x, mu0, pi0, stdev = 1, lg = FALSE) {
    .Call('_npfixedcomp_dnpnorm1', PACKAGE = 'npfixedcomp', x, mu0, pi0, stdev, lg)
}

pnpnorm1 <- function(x, mu0, pi0, stdev = 1, lt = TRUE, lg = FALSE) {
    .Call('_npfixedcomp_pnpnorm1', PACKAGE = 'npfixedcomp', x, mu0, pi0, stdev, lt, lg)
}

ddnpnorm1 <- function(x, mu0, pi0, stdev, h) {
    .Call('_npfixedcomp_ddnpnorm1', PACKAGE = 'npfixedcomp', x, mu0, pi0, stdev, h)
}

pdnpnorm1 <- function(x, mu0, pi0, stdev, h, lt = TRUE) {
    .Call('_npfixedcomp_pdnpnorm1', PACKAGE = 'npfixedcomp', x, mu0, pi0, stdev, h, lt)
}

dnpnormc1 <- function(x, mu0, pi0, n) {
    .Call('_npfixedcomp_dnpnormc1', PACKAGE = 'npfixedcomp', x, mu0, pi0, n)
}

adintegralvec <- function(z, j) {
    .Call('_npfixedcomp_adintegralvec', PACKAGE = 'npfixedcomp', z, j)
}

initnpnorm <- function(data, mu0fixed, pi0fixed, stdev = 1) {
    .Call('_npfixedcomp_initnpnorm', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev)
}

npnormad <- function(data, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormad', PACKAGE = 'npfixedcomp', data, stdev, mu0_, pi0_, maxit, tol)
}

npnormfcad <- function(data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfcad', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit, tol)
}

findnpnormad <- function(data, val, stdev, tol = 1e-6) {
    .Call('_npfixedcomp_findnpnormad', PACKAGE = 'npfixedcomp', data, val, stdev, tol)
}

npnormadweighted <- function(data, stdev, h, mu0_, pi0_, weights, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormadweighted', PACKAGE = 'npfixedcomp', data, stdev, h, mu0_, pi0_, weights, maxit, tol)
}

npnormfcadweighted <- function(data, mu0fixed, pi0fixed, stdev, h, mu0_, pi0_, weights, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfcadweighted', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev, h, mu0_, pi0_, weights, maxit, tol)
}

findnpnormadweighted <- function(data, val, stdev, h, weights, tol = 1e-6) {
    .Call('_npfixedcomp_findnpnormadweighted', PACKAGE = 'npfixedcomp', data, val, stdev, h, weights, tol)
}

#' Extract the lower triangular part of the matrix.
#'
#' This function is to extract the strict lower triangular part of a squared matrix.
#' 
#' @title Extract the lower triangular part of the matrix
#' @param A a squared matrix
#' @return a vector containing the values of the lower triangular part of the matrix.
#' @author Xiangjie Xue
#' @export
extractlower <- function(A) {
    .Call('_npfixedcomp_extractlower', PACKAGE = 'npfixedcomp', A)
}

#' Return the vector value into a symmetric matrix
#'
#' This function is to return the vector value into a symmetric matrix.
#' 
#' @title Return the vector value into a symmetric matrix
#' @param v a vector
#' @return A symmetrica matrix.
#' @author Xiangjie Xue
#' @export
returnlower <- function(v) {
    .Call('_npfixedcomp_returnlower', PACKAGE = 'npfixedcomp', v)
}

npnormcfc <- function(data, mu0fixed, pi0fixed, n, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormcfc', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, n, mu0_, pi0_, maxit, tol)
}

npnormfcll <- function(data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfcll', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit, tol)
}

findnpnormll <- function(data, val, stdev, tol = 1e-6) {
    .Call('_npfixedcomp_findnpnormll', PACKAGE = 'npfixedcomp', data, val, stdev, tol)
}

npnormfcllweighted <- function(data, weights, mu0fixed, pi0fixed, stdev, h, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfcllweighted', PACKAGE = 'npfixedcomp', data, weights, mu0fixed, pi0fixed, stdev, h, mu0_, pi0_, maxit, tol)
}

findnpnormllweighted <- function(data, weights, val, stdev, h, tol = 1e-6) {
    .Call('_npfixedcomp_findnpnormllweighted', PACKAGE = 'npfixedcomp', data, weights, val, stdev, h, tol)
}

npnormsq <- function(data, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormsq', PACKAGE = 'npfixedcomp', data, stdev, mu0_, pi0_, maxit, tol)
}

npnormfcsq <- function(data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfcsq', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit, tol)
}

npnormcvm <- function(data, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormcvm', PACKAGE = 'npfixedcomp', data, stdev, mu0_, pi0_, maxit, tol)
}

npnormfccvm <- function(data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfccvm', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit, tol)
}

findnpnormcvm <- function(data, val, stdev, tol = 1e-6) {
    .Call('_npfixedcomp_findnpnormcvm', PACKAGE = 'npfixedcomp', data, val, stdev, tol)
}

npnormcvmweighted <- function(sdata, stdev, h, mu0_, pi0_, weights, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormcvmweighted', PACKAGE = 'npfixedcomp', sdata, stdev, h, mu0_, pi0_, weights, maxit, tol)
}

npnormfccvmweighted <- function(sdata, mu0fixed, pi0fixed, stdev, h, mu0_, pi0_, weights, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_npnormfccvmweighted', PACKAGE = 'npfixedcomp', sdata, mu0fixed, pi0fixed, stdev, h, mu0_, pi0_, weights, maxit, tol)
}

findnpnormcvmweighted <- function(sdata, val, stdev, h, weights, tol = 1e-6) {
    .Call('_npfixedcomp_findnpnormcvmweighted', PACKAGE = 'npfixedcomp', sdata, val, stdev, h, weights, tol)
}

nptfcll <- function(data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit = 100L, tol = 1e-6) {
    .Call('_npfixedcomp_nptfcll', PACKAGE = 'npfixedcomp', data, mu0fixed, pi0fixed, stdev, mu0_, pi0_, maxit, tol)
}

findnptll <- function(data, val, stdev, tol = 1e-6) {
    .Call('_npfixedcomp_findnptll', PACKAGE = 'npfixedcomp', data, val, stdev, tol)
}

test <- function(A, b) {
    invisible(.Call('_npfixedcomp_test', PACKAGE = 'npfixedcomp', A, b))
}