# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
odds_no_sharing <- function(kappa, p, ndis) {
.Call('_MFM_odds_no_sharing', PACKAGE = 'MFM', kappa, p, ndis)
}
odds_sharing <- function(kappa, p, ndis) {
.Call('_MFM_odds_sharing', PACKAGE = 'MFM', kappa, p, ndis)
}
finnerK <- function(lvec, n) {
.Call('_MFM_finnerK', PACKAGE = 'MFM', lvec, n)
}
pp <- function(l, n, v) {
.Call('_MFM_pp', PACKAGE = 'MFM', l, n, v)
}
kappa2 <- function(pk, n, maxn, LP) {
.Call('_MFM_kappa2', PACKAGE = 'MFM', pk, n, maxn, LP)
}
kappa3 <- function(pk, n, maxn, LP) {
.Call('_MFM_kappa3', PACKAGE = 'MFM', pk, n, maxn, LP)
}
kappa4 <- function(pk, n, maxn, LP) {
.Call('_MFM_kappa4', PACKAGE = 'MFM', pk, n, maxn, LP)
}
stroverlap <- function(x, y) {
.Call('_MFM_stroverlap', PACKAGE = 'MFM', x, y)
}
calcQpair <- function(S1, S2, pp1, pp2, tau, kappa) {
.Call('_MFM_calcQpair', PACKAGE = 'MFM', S1, S2, pp1, pp2, tau, kappa)
}
newcalcQ2 <- function(S1, S2, pp1, pp2, tau, kappa) {
.Call('_MFM_newcalcQ2', PACKAGE = 'MFM', S1, S2, pp1, pp2, tau, kappa)
}
newcalcQ3 <- function(S1, S2, S3, pp1, pp2, pp3, tau, kappa) {
.Call('_MFM_newcalcQ3', PACKAGE = 'MFM', S1, S2, S3, pp1, pp2, pp3, tau, kappa)
}
newcalcQ4 <- function(S1, S2, S3, S4, pp1, pp2, pp3, pp4, tau, kappa) {
.Call('_MFM_newcalcQ4', PACKAGE = 'MFM', S1, S2, S3, S4, pp1, pp2, pp3, pp4, tau, kappa)
}
newcalcQ5 <- function(S1, S2, S3, S4, S5, pp1, pp2, pp3, pp4, pp5, tau, kappa) {
.Call('_MFM_newcalcQ5', PACKAGE = 'MFM', S1, S2, S3, S4, S5, pp1, pp2, pp3, pp4, pp5, tau, kappa)
}
newcalcQ6 <- function(S1, S2, S3, S4, S5, S6, pp1, pp2, pp3, pp4, pp5, pp6, tau, kappa) {
.Call('_MFM_newcalcQ6', PACKAGE = 'MFM', S1, S2, S3, S4, S5, S6, pp1, pp2, pp3, pp4, pp5, pp6, tau, kappa)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.