R/RcppExports.R

Defines functions trappingtelemetry trappingsignal trappingtransectX trappingpolygonX trappingtransect trappingpolygon trappingcount trappingproximity trappingcapped trappingmulti trappingsingle simdetectsignalcpp simdetectpolycpp simdetectpointcpp expectedmucpp sightingchatcpp Tsightinglikcpp simplehistoriesfxicpp simplehistoriescpp gethr signalhistoriescpp polygonfxicpp polygonhistoriescpp fasthistoriescpp alongtransectcpp ontransectcpp hdotpolycpp pdotpointcpp makelookupcpp makegkPolygoncpp cappedgkhkcpp makegkPointcpp gethcpp getdenomcpp naivecap3cpp naivedcpp insidecpp nearestcpp xydist2cpp edist2cpp

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

edist2cpp <- function(A1, A2) {
    .Call('_secr_edist2cpp', PACKAGE = 'secr', A1, A2)
}

xydist2cpp <- function(A1, A2) {
    .Call('_secr_xydist2cpp', PACKAGE = 'secr', A1, A2)
}

nearestcpp <- function(xy, traps) {
    .Call('_secr_nearestcpp', PACKAGE = 'secr', xy, traps)
}

insidecpp <- function(xy, n1, n2, poly) {
    .Call('_secr_insidecpp', PACKAGE = 'secr', xy, n1, n2, poly)
}

naivedcpp <- function(sigma, wt, traps, animals, fn) {
    .Call('_secr_naivedcpp', PACKAGE = 'secr', sigma, wt, traps, animals, fn)
}

naivecap3cpp <- function(detect, lambda0, sigma, Tsk, traps, mask, fn) {
    .Call('_secr_naivecap3cpp', PACKAGE = 'secr', detect, lambda0, sigma, Tsk, traps, mask, fn)
}

getdenomcpp <- function(fn, miscparm, mask, mm, sigma, z) {
    .Call('_secr_getdenomcpp', PACKAGE = 'secr', fn, miscparm, mask, mm, sigma, z)
}

gethcpp <- function(nc1, cc, nmix, nk, ss, mm, PIA, Tsk, hk) {
    .Call('_secr_gethcpp', PACKAGE = 'secr', nc1, cc, nmix, nk, ss, mm, PIA, Tsk, hk)
}

makegkPointcpp <- function(detectfn, grain, ncores, gsbval, dist2, miscparm) {
    .Call('_secr_makegkPointcpp', PACKAGE = 'secr', detectfn, grain, ncores, gsbval, dist2, miscparm)
}

cappedgkhkcpp <- function(cc, nk, area, D, gk, hk) {
    .Call('_secr_cappedgkhkcpp', PACKAGE = 'secr', cc, nk, area, D, gk, hk)
}

makegkPolygoncpp <- function(detectfn, dim, convex, grain, ncores, gsbval, cumk, traps, mask) {
    .Call('_secr_makegkPolygoncpp', PACKAGE = 'secr', detectfn, dim, convex, grain, ncores, gsbval, cumk, traps, mask)
}

makelookupcpp <- function(x) {
    .Call('_secr_makelookupcpp', PACKAGE = 'secr', x)
}

pdotpointcpp <- function(xy, traps, dist2, detect, Tsk, markocc, fn, gsb, miscparm, w2, binomN, grain, ncores) {
    .Call('_secr_pdotpointcpp', PACKAGE = 'secr', xy, traps, dist2, detect, Tsk, markocc, fn, gsb, miscparm, w2, binomN, grain, ncores)
}

hdotpolycpp <- function(xy, traps, Tsk, markocc, cumk, detectfn, gsb, convex, dim, grain, ncores) {
    .Call('_secr_hdotpolycpp', PACKAGE = 'secr', xy, traps, Tsk, markocc, cumk, detectfn, gsb, convex, dim, grain, ncores)
}

ontransectcpp <- function(xy, transect, n1, n2, tol) {
    .Call('_secr_ontransectcpp', PACKAGE = 'secr', xy, transect, n1, n2, tol)
}

alongtransectcpp <- function(xy, transect, n1, n2, tol) {
    .Call('_secr_alongtransectcpp', PACKAGE = 'secr', xy, transect, n1, n2, tol)
}

fasthistoriescpp <- function(mm, nc, cc, grain, ncores, binomN, indiv, w, ki, gk, hk, density, PIA, Tsk, mbool) {
    .Call('_secr_fasthistoriescpp', PACKAGE = 'secr', mm, nc, cc, grain, ncores, binomN, indiv, w, ki, gk, hk, density, PIA, Tsk, mbool)
}

polygonhistoriescpp <- function(nc, detectfn, grain, ncores, minp, binomN, w, xy, start, group, hk, H, gsbval, pID, mask, density, PIA, Tsk, h, hindex, mbool) {
    .Call('_secr_polygonhistoriescpp', PACKAGE = 'secr', nc, detectfn, grain, ncores, minp, binomN, w, xy, start, group, hk, H, gsbval, pID, mask, density, PIA, Tsk, h, hindex, mbool)
}

polygonfxicpp <- function(nc, detectfn, grain, ncores, minp, binomN, w, xy, start, group, hk, H, gsbval, pID, mask, density, PIA, Tsk, h, hindex, mbool) {
    .Call('_secr_polygonfxicpp', PACKAGE = 'secr', nc, detectfn, grain, ncores, minp, binomN, w, xy, start, group, hk, H, gsbval, pID, mask, density, PIA, Tsk, h, hindex, mbool)
}

signalhistoriescpp <- function(mm, nc, detectfn, grain, ncores, binomN, w, signal, group, gk, gsbval, dist2, density, PIA, miscparm, mbool) {
    .Call('_secr_signalhistoriescpp', PACKAGE = 'secr', mm, nc, detectfn, grain, ncores, binomN, w, signal, group, gk, gsbval, dist2, density, PIA, miscparm, mbool)
}

gethr <- function(nc, fn, start, xy, mask, gsbval, telemscale) {
    .Call('_secr_gethr', PACKAGE = 'secr', nc, fn, start, xy, mask, gsbval, telemscale)
}

simplehistoriescpp <- function(mm, nc, cc, grain, ncores, binomN, markocc, firstocc, pID, w, group, gk, hk, density, PIA, Tsk, h, hindex, mbool, telemhr, telemstart) {
    .Call('_secr_simplehistoriescpp', PACKAGE = 'secr', mm, nc, cc, grain, ncores, binomN, markocc, firstocc, pID, w, group, gk, hk, density, PIA, Tsk, h, hindex, mbool, telemhr, telemstart)
}

simplehistoriesfxicpp <- function(x, mm, nc, cc, grain, ncores, binomN, w, group, gk, hk, density, PIA, Tsk, h, hindex) {
    .Call('_secr_simplehistoriesfxicpp', PACKAGE = 'secr', x, mm, nc, cc, grain, ncores, binomN, w, group, gk, hk, density, PIA, Tsk, h, hindex)
}

Tsightinglikcpp <- function(T, markocc, binomN, Tsk, musk, debug) {
    .Call('_secr_Tsightinglikcpp', PACKAGE = 'secr', T, markocc, binomN, Tsk, musk, debug)
}

sightingchatcpp <- function(mm, nc, cc0, grain, ncores, nsim, sightmodel, sumD, area, distrib, binomN, markocc, pID, group, gk0, hk0, density, PIA0, Tsk, pmix) {
    .Call('_secr_sightingchatcpp', PACKAGE = 'secr', mm, nc, cc0, grain, ncores, nsim, sightmodel, sumD, area, distrib, binomN, markocc, pID, group, gk0, hk0, density, PIA0, Tsk, pmix)
}

expectedmucpp <- function(nc, cc, Tu, Tm, sightmodel, binomN, markocc, pID, group, gk, hk, pi_density, Nm, PIA, Tsk, h, hindex, a0) {
    .Call('_secr_expectedmucpp', PACKAGE = 'secr', nc, cc, Tu, Tm, sightmodel, binomN, markocc, pID, group, gk, hk, pi_density, Nm, PIA, Tsk, h, hindex, a0)
}

simdetectpointcpp <- function(detect, N, cc, gk0, gk, hk0, hk, PIA0, PIA1, nmix, knownclass, pmix, Tsk, btype, Markov, binomN) {
    .Call('_secr_simdetectpointcpp', PACKAGE = 'secr', detect, N, cc, gk0, gk, hk0, hk, PIA0, PIA1, nmix, knownclass, pmix, Tsk, btype, Markov, binomN)
}

simdetectpolycpp <- function(detect, fn, nmix, btype, Markov, kk, animals, traps, gsb0val, gsb1val, PIA0, PIA1, knownclass, pmix, Tsk, binomN, maxperpoly) {
    .Call('_secr_simdetectpolycpp', PACKAGE = 'secr', detect, fn, nmix, btype, Markov, kk, animals, traps, gsb0val, gsb1val, PIA0, PIA1, knownclass, pmix, Tsk, binomN, maxperpoly)
}

simdetectsignalcpp <- function(detect, nmix, fn, cut, gsb0val, PIA0, pmix, knownclass, animals, traps, dist2, Tsk, miscparm) {
    .Call('_secr_simdetectsignalcpp', PACKAGE = 'secr', detect, nmix, fn, cut, gsb0val, PIA0, pmix, knownclass, animals, traps, dist2, Tsk, miscparm)
}

trappingsingle <- function(g0, sigma, z, dist2, Tsk, fn, w2, binomN) {
    .Call('_secr_trappingsingle', PACKAGE = 'secr', g0, sigma, z, dist2, Tsk, fn, w2, binomN)
}

trappingmulti <- function(g0, sigma, z, dist2, Tsk, fn, w2, binomN) {
    .Call('_secr_trappingmulti', PACKAGE = 'secr', g0, sigma, z, dist2, Tsk, fn, w2, binomN)
}

trappingcapped <- function(g0, sigma, z, dist2, Tsk, fn, w2, binomN) {
    .Call('_secr_trappingcapped', PACKAGE = 'secr', g0, sigma, z, dist2, Tsk, fn, w2, binomN)
}

trappingproximity <- function(g0, sigma, z, dist2, Tsk, fn, w2, binomN) {
    .Call('_secr_trappingproximity', PACKAGE = 'secr', g0, sigma, z, dist2, Tsk, fn, w2, binomN)
}

trappingcount <- function(g0, sigma, z, dist2, Tsk, fn, w2, binomN) {
    .Call('_secr_trappingcount', PACKAGE = 'secr', g0, sigma, z, dist2, Tsk, fn, w2, binomN)
}

trappingpolygon <- function(lambda, sigma, z, npoly, kk, animals, traps, Tsk, fn, w2, binomN, maxperpoly) {
    .Call('_secr_trappingpolygon', PACKAGE = 'secr', lambda, sigma, z, npoly, kk, animals, traps, Tsk, fn, w2, binomN, maxperpoly)
}

trappingtransect <- function(lambda, sigma, z, ntransect, kk, animals, traps, Tsk, fn, w2, binomN, maxperpoly) {
    .Call('_secr_trappingtransect', PACKAGE = 'secr', lambda, sigma, z, ntransect, kk, animals, traps, Tsk, fn, w2, binomN, maxperpoly)
}

trappingpolygonX <- function(g0, sigma, z, npoly, kk, animals, traps, Tsk, fn, w2, binomN) {
    .Call('_secr_trappingpolygonX', PACKAGE = 'secr', g0, sigma, z, npoly, kk, animals, traps, Tsk, fn, w2, binomN)
}

trappingtransectX <- function(lambda, sigma, z, ntransect, kk, animals, traps, Tsk, fn, w2) {
    .Call('_secr_trappingtransectX', PACKAGE = 'secr', lambda, sigma, z, ntransect, kk, animals, traps, Tsk, fn, w2)
}

trappingsignal <- function(beta0, beta1, sdS, cut, muN, sdN, sdM, animals, traps, dist2, Tsk, fn) {
    .Call('_secr_trappingsignal', PACKAGE = 'secr', beta0, beta1, sdS, cut, muN, sdN, sdM, animals, traps, dist2, Tsk, fn)
}

trappingtelemetry <- function(lambda, sigma, z, animals, ss, fn, w2, binomN, exactn, maxperpoly) {
    .Call('_secr_trappingtelemetry', PACKAGE = 'secr', lambda, sigma, z, animals, ss, fn, w2, binomN, exactn, maxperpoly)
}

Try the secr package in your browser

Any scripts or data that you put into this service are public.

secr documentation built on Oct. 18, 2021, 9:06 a.m.