R/RcppExports.R

In SICSresearch/IRTpp_old: Estimating IRT parameters using the IRT Methodology

# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

irtppinterfacevalues <- function(dat, e_model, quads, init_val, to_file_flag, output_path) {
    .Call('IRTpp_irtppinterfacevalues', PACKAGE = 'IRTpp', dat, e_model, quads, init_val, to_file_flag, output_path)
}

irtppinterface <- function(dat, e_model, quads, to_file_flag, output_path) {
    .Call('IRTpp_irtppinterface', PACKAGE = 'IRTpp', dat, e_model, quads, to_file_flag, output_path)
}

irtppinterfacefilevalues <- function(dat, e_model, quads, init_val, to_file_flag, output_path) {
    .Call('IRTpp_irtppinterfacefilevalues', PACKAGE = 'IRTpp', dat, e_model, quads, init_val, to_file_flag, output_path)
}

irtppinterfacefile <- function(dat, e_model, quads, to_file_flag, output_path) {
    .Call('IRTpp_irtppinterfacefile', PACKAGE = 'IRTpp', dat, e_model, quads, to_file_flag, output_path)
}

mapinterfacefile <- function(zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix) {
    .Call('IRTpp_mapinterfacefile', PACKAGE = 'IRTpp', zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix)
}

mapinterface <- function(zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix) {
    .Call('IRTpp_mapinterface', PACKAGE = 'IRTpp', zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix)
}

eapinterfacefile <- function(zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix) {
    .Call('IRTpp_eapinterfacefile', PACKAGE = 'IRTpp', zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix)
}

eapinterface <- function(zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix) {
    .Call('IRTpp_eapinterface', PACKAGE = 'IRTpp', zita_par, dat, e_model, quads, to_file_flag, output_path, matrix_flag, prob_matrix)
}

#' irtppchol
#' @export
irtppchol <- function(A) {
    .Call('IRTpp_irtppchol', PACKAGE = 'IRTpp', A)
}

#' uirtestimate
#' @export
uirtestimate <- function(data, model_) {
    .Call('IRTpp_uirtestimate', PACKAGE = 'IRTpp', data, model_)
}

#' IRTpp multidimensional
#' @export
loglikinternal <- function(rargs, rpars) {
    .Call('IRTpp_loglikinternal', PACKAGE = 'IRTpp', rargs, rpars)
}

#' IRTpp multidimensional
#' @export
optimgrad <- function(rargs, rpars) {
    .Call('IRTpp_optimgrad', PACKAGE = 'IRTpp', rargs, rpars)
}

#' IRTpp multidimensional
#' @export
irtppmultidim <- function(ndatSet, e_model, quads, initvals, dimension, notEstimated) {
    .Call('IRTpp_irtppmultidim', PACKAGE = 'IRTpp', ndatSet, e_model, quads, initvals, dimension, notEstimated)
}