x <- c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0)
dtpexp(x,theta=0,beta=1)
dtpexp(x,theta=0,beta=1,log=TRUE)
q <- c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0)
ptpexp(q,theta = 0, beta = 1)
ptpexp(q,theta=0, beta = 1, lower.tail = FALSE)
q <- c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0)
p<- ptpexp(q,theta = 0, beta = 1); p
qtpexp(p,theta=0, beta = 1)
rtpexp(5, theta=0, beta=1)
rtpexp(10, theta=1, beta=1.5)
Run the code above in your browser using DataLab