set.seed(1)
rx = rec("xounif")
print(rx)
p = ps(x = p_int(-5, 5), y = p_dbl(-5, 5), z = p_dbl(-5, 5))
data = data.frame(x = 0:5, y = 0:5, z = 0:5)
rx$prime(p)
rx$operate(data)
rx$param_set$values$p = 0.3
rx$operate(data)
Run the code above in your browser using DataLab