# Probability density function
dWDSTP(rt = c(1.2, 0.6, 0.4), resp = c("upper", "lower", "lower"),
phi = c(0.3, 0.5, 1.0, 1.0, -1.0, -0.5, 8.0, 1.0, 1.0, 1.0, 2.0, 1.3, 0.0, 0.0, 1.0))
# Cumulative distribution function
pWDSTP(rt = c(1.2, 0.6, 0.4), resp = c("upper", "lower", "lower"),
phi = c(0.3, 0.5, 1.0, 1.0, -1.0, -0.5, 8.0, 1.0, 1.0, 1.0, 2.0, 1.3, 0.0, 0.0, 1.0))
# Random sampling
rWDSTP(n = 100, phi = c(0.3, 0.5, 1.0, 1.0, -1.0, -0.5, 8.0, 1.0, 1.0, 1.0, 2.0, 1.3,
0.0, 0.0, 1.0))
Run the code above in your browser using DataLab