dks(P,alpha=c(0.1,10),beta=c(0.1,10),plot=TRUE,eps=1e-10)
pprob.uniform
, dks.pvalue
, pprob.dist
,cred.set
## Load data
data(dksdata)
## Perform the diagnostic tests with plots
dks1 <- dks(P)
dks1$dkspvalue
Run the code above in your browser using DataLab