Add noise / residual error to data

add_noise(x, ruv = list(proportional = 0, additive = 0, exponential = 0))

Arguments

x

data

ruv

list describing the magnitude of errors. List arguments: "proportional", "additive", "exponential".

Examples

library(dplyr)
#> 
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#> 
#>     filter, lag
#> The following objects are masked from ‘package:base’:
#> 
#>     intersect, setdiff, setequal, union
ipred <- c(10, 8, 6, 4, 2, 0) %>% add_noise(ruv = list(proportional = 0.1, additive = 0.2))