my_beta <- as_d(dbeta, shape1 = 1, shape2 = 3)
my_beta2 <- form_recenter(my_beta, to = 2)
summ_center(my_beta2)
my_beta3 <- form_respread(my_beta2, to = 10, method = "range")
summ_spread(my_beta3, method = "range")
## Center remains unchainged
summ_center(my_beta3)
Run the code above in your browser using DataLab