d_pois <- distionary::dst_pois(1.1)
d_norm <- distionary::dst_norm(4, 1)
d_unif <- distionary::dst_unif(0, 1)
# Shifting
shift(d_pois, 1)
d_pois + 1 # Equivalent using operator
# Scaling
multiply(d_unif, 2)
d_unif * 2 # Equivalent using operator
# Negation
flip(d_norm)
-d_norm # Equivalent using operator
# Inversion
d_positive <- distionary::dst_unif(1, 2)
invert(d_positive)
1 / d_positive # Equivalent using operator
# Combine multiple operations
4 - 2 * d_pois
multiply(flip(multiply(d_pois, 2)), -1) + 4 # Equivalent
Run the code above in your browser using DataLab