R/RcppExports.R

In conquestr: An R Package to Extend 'ACER ConQuest'

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

#' replace a very large neagtive number with something - usually NA_REAL
#'
#' @param v A NumericVector.
#' @param r A double - the value to be replaced if it is < -1e300.
#' @param x A double - the value to repalce r with.
replaceInVector <- function(v, r, x) {
    .Call('_conquestr_replaceInVector', PACKAGE = 'conquestr', v, r, x)
}

#' iterate through a data frame and use replaceInVector
#'
#' @param d A DataFrame.
#' @param r A double - the value to be replaced if it is < -1e300.
#' @param x A double - the value to replace r with.
replaceInDataFrame <- function(d, r, x) {
    .Call('_conquestr_replaceInDataFrame', PACKAGE = 'conquestr', d, r, x)
}