R/RcppExports.R

In GxEScanR: Run GWAS/GWEIS Scans Using Binary Dosage Files

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

initlslinreg <- function(y, x) {
    .Call(`_GxEScanR_initlslinreg`, y, x)
}

lslinreg <- function(y, x, xr, ql, rtl, k, q, skipped, skipoffset, maxn, minsum, maxsum, loglike, beta) {
    .Call(`_GxEScanR_lslinreg`, y, x, xr, ql, rtl, k, q, skipped, skipoffset, maxn, minsum, maxsum, loglike, beta)
}

initlslogreg <- function(y, xl, beta) {
    .Call(`_GxEScanR_initlslogreg`, y, xl, beta)
}

lslogreg <- function(y, xl, xr, beta0, yp0, ql, rtl, k0, w, winv, q, skipped, skipoffset, maxn, minsum, maxsum, loglike, beta) {
    .Call(`_GxEScanR_lslogreg`, y, xl, xr, beta0, yp0, ql, rtl, k0, w, winv, q, skipped, skipoffset, maxn, minsum, maxsum, loglike, beta)
}

readblock <- function(filename, blkloc, blkbytes, blkbuffer) {
    invisible(.Call(`_GxEScanR_readblock`, filename, blkloc, blkbytes, blkbuffer))
}

getdosages <- function(dosages, blkbuffer, fileloc, indices, firstsnp, lastsnp, base) {
    invisible(.Call(`_GxEScanR_getdosages`, dosages, blkbuffer, fileloc, indices, firstsnp, lastsnp, base))
}

stdmat <- function(m1, m2, means, stddevs) {
    invisible(.Call(`_GxEScanR_stdmat`, m1, m2, means, stddevs))
}

makegxr <- function(dest, src, idx) {
    invisible(.Call(`_GxEScanR_makegxr`, dest, src, idx))
}

xrgweis2 <- function(xr1, xr2, xr3, xr4, xr5, idx, src1, src2) {
    invisible(.Call(`_GxEScanR_xrgweis2`, xr1, xr2, xr3, xr4, xr5, idx, src1, src2))
}

lrtgweis2 <- function(lrtg, lrtgxe, lrt2df, lrteg, lrt3df, lrtcase, lrtctrl, loglike0, loglhg, loglhgxe, loglheg, loglhcase, loglhctrl, offset) {
    invisible(.Call(`_GxEScanR_lrtgweis2`, lrtg, lrtgxe, lrt2df, lrteg, lrt3df, lrtcase, lrtctrl, loglike0, loglhg, loglhgxe, loglheg, loglhcase, loglhctrl, offset))
}

betagweis2 <- function(betag, betagxe, betaeg, betacase, betactrl, tmpbetag, tmpbetagxe, tmpbetaeg, tmpbetacase, tmpbetactrl, estddev, offset) {
    invisible(.Call(`_GxEScanR_betagweis2`, betag, betagxe, betaeg, betacase, betactrl, tmpbetag, tmpbetagxe, tmpbetaeg, tmpbetacase, tmpbetactrl, estddev, offset))
}

makegxexr <- function(dest, src1, src2) {
    invisible(.Call(`_GxEScanR_makegxexr`, dest, src1, src2))
}

copybeta <- function(dest, src, colnum, startrow, numrows) {
    invisible(.Call(`_GxEScanR_copybeta`, dest, src, colnum, startrow, numrows))
}

calculatelrt <- function(lrt, idx1, idx2, loglike, loglike0) {
    invisible(.Call(`_GxEScanR_calculatelrt`, lrt, idx1, idx2, loglike, loglike0))
}

calculatelrtgxe <- function(lrtg, lrtgxe, lrt2df, idx1, idx2, loglikeg, loglikegxe, loglike0) {
    invisible(.Call(`_GxEScanR_calculatelrtgxe`, lrtg, lrtgxe, lrt2df, idx1, idx2, loglikeg, loglikegxe, loglike0))
}