typo

R/gen_error.R

@@ -18,11 +18,11 @@
 #' }
 #
 gen_error <- function(dataset,target,predictors,FUN_fit,FUN_predict,error_type=c("r","or","sor","isor"),par=list(
-      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)),
+      phi_f1 = 4.35/100/1.96,
+      phi_g1 = 4.35/100/1.96,
+      phi_h1 = 0.1,
+      beta_r  = 1,
+      sig_r  = 1),
       seed=NULL) {
 
   set.seed(seed) # for reproducibility

man/gen_error.Rd

@@ -7,9 +7,8 @@ gen_error}
 \usage{
 gen_error(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)))
+  4.35/100/1.96, phi_g1 = 4.35/100/1.96, phi_h1 = 0.1, beta_r = 1, sig_r =
+  1), seed = NULL)
 }
 \arguments{
 \item{dataset}{data.frame}
@@ -25,6 +24,8 @@ gen_error(dataset, target, predictors, FUN_fit, FUN_predict,
 \item{error_type}{chosen error type 'r','s','sr','or','sor','isor'}
 
 \item{par}{parameters of the input, output, structure, and remnant errors}
+
+\item{seed}{seed for reproducibility}
 }
 \description{
 gen_error