Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
MCMC_ABC <- function(numSamples, numBurning, numThining, delta, k_val, wVec, censorVec, inputData) {
.Call(`_abcADM_MCMC_ABC`, numSamples, numBurning, numThining, delta, k_val, wVec, censorVec, inputData)
}
modifynPerTheta <- function(newnPerTheta, verbose) {
invisible(.Call(`_abcADM_modifynPerTheta`, newnPerTheta, verbose))
}
modifyTEnd <- function(newEndT, verbose) {
invisible(.Call(`_abcADM_modifyTEnd`, newEndT, verbose))
}
modifyTimeStep <- function(newdt, verbose) {
invisible(.Call(`_abcADM_modifyTimeStep`, newdt, verbose))
}
#' Display the current constants
#'
#' @description
#' Prints the constants currently associated with reliability assessment:
#'
#' * ramp load rate (k);
#'
#' * sample size of reliability simulation for each \eqn{\theta};
#'
#' * start time;
#'
#' * return period (in hours);
#'
#' * time step of ODE solver.
#'
#' @export
#'
catConstants <- function() {
invisible(.Call(`_abcADM_catConstants`))
}
modifyLoadP <- function(paramName, param, verbose) {
invisible(.Call(`_abcADM_modifyLoadP`, paramName, param, verbose))
}
#' Print the load profile parameters
#'
#' @description
#' Displays the value of parameters in the current load profile.
#'
#' @param paramName the name of the parameter in load profile
#'
#' @export
#'
print_LoadProfile <- function(paramName) {
invisible(.Call(`_abcADM_print_LoadProfile`, paramName))
}
solveODE <- function(inputTheta, phi, verbose) {
.Call(`_abcADM_solveODE`, inputTheta, phi, verbose)
}
use_CANL <- function(mat, N, w0, k, eps) {
.Call(`_abcADM_use_CANL`, mat, N, w0, k, eps)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.