R/RcppExports.R

In martini: GWAS Incorporating Networks

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

#' Run evo.
#' 
#' @description Run evo.
#' 
#' @param X A matrix with the genotypes.
#' @param Y A vector with the phenptypes.
#' @param W A sparse matrix containing the adjacency matrix of the network.
#' @param opts A named list with the settings.
#' @return An object with the evo results.
evo <- function(X, Y, W, opts) {
    .Call('_martini_evo', PACKAGE = 'martini', X, Y, W, opts)
}

#' Run shake.
#' 
#' @description Run scones.
#' 
#' @param c A vector with the association of each SNP with the phenotype.
#' @param eta A numeric with the value of the eta parameter.
#' @param lambda A numeric with the value of the eta parameter.
#' @param W A sparse matrix with the connectivity.
#' @return A list with vector indicating if the feature was selected and the 
#' objective score.
run_scones <- function(c, eta, lambda, W) {
    .Call('_martini_run_scones', PACKAGE = 'martini', c, eta, lambda, W)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call('_martini_RcppExport_registerCCallable', PACKAGE = 'martini')
})