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

typo

parent 9ec2242f
...@@ -9,6 +9,7 @@ ...@@ -9,6 +9,7 @@
#' @param FUN_predict function for the prediciton #' @param FUN_predict function for the prediciton
#' @param error_type chosen error type 'r','s','sr','or','sor','isor' #' @param error_type chosen error type 'r','s','sr','or','sor','isor'
#' @param par parameters of the input, output, structure, and remnant errors #' @param par parameters of the input, output, structure, and remnant errors
#' @param seed seed for reproducibility
#' @keywords aqoslogen #' @keywords aqoslogen
#' @export #' @export
#' @examples #' @examples
...@@ -17,11 +18,14 @@ ...@@ -17,11 +18,14 @@
#' } #' }
# #
gen_error <- function(dataset,target,predictors,FUN_fit,FUN_predict,error_type=c("r","or","sor","isor"),par=list( 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_f1 = list(4.35/100/1.96),
phi_g1 = list(mean=5.64/1.96,sd=10), phi_g1 = list(4.35/100/1.96),
phi_h1 = list(mean=0.1,sd=0.1), phi_h1 = list(0.1),
beta_r = list(mean=1,sd=2), beta_r = list(1),
sig_r = list(df=1,scale=0.2))) { sig_r = list(1)),
seed=NULL) {
set.seed(seed) # for reproducibility
res <- switch(error_type, res <- switch(error_type,
......
Supports Markdown
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