Maintenance is scheduled between 16:00 and 23:59 CEST (14:00 and 21:59 UTC) on Thursday 2021-09-30. The system may be unavailable at any time during this timeframe. Please plan accordingly.

Commit a794b05b authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

typo

parent 9ec2242f
......@@ -9,6 +9,7 @@
#' @param FUN_predict function for the prediciton
#' @param error_type chosen error type 'r','s','sr','or','sor','isor'
#' @param par parameters of the input, output, structure, and remnant errors
#' @param seed seed for reproducibility
#' @keywords aqoslogen
#' @export
#' @examples
......@@ -17,11 +18,14 @@
#' }
#
gen_error <- function(dataset,target,predictors,FUN_fit,FUN_predict,error_type=c("r","or","sor","isor"),par=list(
phi_f1 = list(mean=5.64/1.96,sd=10),
phi_g1 = list(mean=5.64/1.96,sd=10),
phi_h1 = list(mean=0.1,sd=0.1),
beta_r = list(mean=1,sd=2),
sig_r = list(df=1,scale=0.2))) {
phi_f1 = list(4.35/100/1.96),
phi_g1 = list(4.35/100/1.96),
phi_h1 = list(0.1),
beta_r = list(1),
sig_r = list(1)),
seed=NULL) {
set.seed(seed) # for reproducibility
res <- switch(error_type,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment