R/RcppExports.R

In adpss: Design and Analysis of Locally or Globally Efficient Adaptive Designs

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

#' @useDynLib adpss, .registration = TRUE
#' @importFrom Rcpp sourceCpp
NULL

work_test_norm_c <- function(overall_sig_level = 0.025, work_beta = 0.05, cond_alpha = 0.025, cost_type_1_err = 0, cost_type_2_err = 0, prev_cost = 0, min_effect_size = 1, effect_size = 0, basic_schedule_num = 50L, basic_schedule_power = 2L, basic_schedule = as.numeric( c(0)), prior_dist = as.numeric( c(0)), prev_time = 0, time = 0, next_time = 0, stat = 0, input_check = TRUE, out_process = FALSE, simpson_div = 6L, tol_boundary = 1e-8, tol_cost = 1e-8) {
    .Call(`_adpss_work_test_norm_c`, overall_sig_level, work_beta, cond_alpha, cost_type_1_err, cost_type_2_err, prev_cost, min_effect_size, effect_size, basic_schedule_num, basic_schedule_power, basic_schedule, prior_dist, prev_time, time, next_time, stat, input_check, out_process, simpson_div, tol_boundary, tol_cost)
}

sample_size_norm_c <- function(initial_test = 0L, sample_size = TRUE, effect_size = 0, time = 0, target_power = 0.8, final_time = 0, tol_sample_size = 1e-5, input_check = TRUE) {
    .Call(`_adpss_sample_size_norm_c`, initial_test, sample_size, effect_size, time, target_power, final_time, tol_sample_size, input_check)
}

exact_est_norm_c <- function(initial_test = 0L, times = 0L, stats = 0L, costs = 0L, final_analysis = TRUE, estimate = TRUE, ci_coef = 0.95, tol_est = 1e-8, input_check = TRUE) {
    .Call(`_adpss_exact_est_norm_c`, initial_test, times, stats, costs, final_analysis, estimate, ci_coef, tol_est, input_check)
}

exp_sample_size_norm_c <- function(initial_test = 0L, effect_size = 0, time = 0, final_time = 0, input_check = TRUE) {
    .Call(`_adpss_exp_sample_size_norm_c`, initial_test, effect_size, time, final_time, input_check)
}