# Probability density function
dWTM(rt = c(1.2, 0.6, 0.4), resp = c("upper", "lower", "lower"),
phi = c(0.3, 0.5, 1.0, 1.0, 1.5, 0.2, 0.5, -1.0, 0.0, 0.0, 1.0))
# Cumulative distribution function
pWTM(rt = c(1.2, 0.6, 0.4), resp = c("upper", "lower", "lower"),
phi = c(0.3, 0.5, 1.0, 1.0, 1.5, 0.2, 0.5, -1.0, 0.0, 0.0, 1.0))
# Random sampling
rWTM(n = 100, phi = c(0.3, 0.5, 1.0, 1.0, 1.5, 0.2, 0.5, -1.0, 0.0, 0.0, 1.0),
dt = 0.0001)
Run the code above in your browser using DataLab