mydf <- c(100,30,50)
myt <- c(-1,3,5)
rv <- rupsilon(500, df=mydf, t=myt)
d1 <- dupsilon(rv, df=mydf, t=myt)
plot(rv,d1)
p1 <- pupsilon(rv, df=mydf, t=myt)
# should be nearly uniform:
plot(ecdf(p1))
q1 <- qupsilon(ppoints(length(rv)),df=mydf,t=myt)
qqplot(x=rv,y=q1)
Run the code above in your browser using DataLab