# A discontinuous conditional probability distribution a <- 5 n <- 3 t <- 3 x <- (0:(1000*a))/1000 F <- function(x) ifelse(x