# NOT RUN {
N <- normdist(1, 3)
d(N, c(NA, 1, 3, 5))
C <- cauchydist()
M <- mixdist(N, C, weights = c(0.5, 0.5))
d(M, c(NA, 1, 3, 5))
CC <- compdist(N, C, weights = c(0.5, 0.5), breakpoints = 1)
CCC <- 2*C+5
d(CCC, c(NA, 1, 3, 5))
# }
Run the code above in your browser using DataLab