set.seed(1)
mp = mut("proxy", operation = mut("gauss", sdev = 0.1))
p = ps(x = p_int(-5, 5), y = p_dbl(-5, 5))
data = data.frame(x = rep(0, 5), y = rep(0, 5))
mp$prime(p)
mp$operate(data)
mp$param_set$values$operation = mut("null")
mp$operate(data)
Run the code above in your browser using DataLab