# \donttest{
control <- rpa_control_scenario(alpha = 0.5, beta = 0.5) +
rpa_control_preference(
ftype = "customized",
spref = "pow(outs, 2) + 1",
tpref = "pow(ins, 2) + 1"
)
# }
control <- rpa_control_scenario(alpha = 1) +
rpa_control_edgeweight(
sampler = function(n) rgamma(n, shape = 5, scale = 0.2)
)
Run the code above in your browser using DataLab