### Name: NPBayesT2
### Title: Nonparametric Bayes estimate of CDF from left truncated, right
###   censored data
### Aliases: NPBayesT2
### Keywords: nonparametric survival

### ** Examples

trunc <- c(2,4,10)
xtime <- c(9,13,15)
d <- c(1,0,0) 
NPBayesT(B=8, theta=0.12, u=3.2, y=trunc, x=xtime, status=d)

ui <- seq(0.1, 20, 0.1)
fui <- ui
for(i in 1:200) 
   fui[i] <- NPBayesT(B=8, theta=0.12, u=ui[i],y=trunc, x=xtime, status=d)
#plot(ui, fui)

ypsy <- c(51, 58, 55, 28, 25, 48, 47, 25, 31, 30, 33, 43, 45, 35, 36)
xpsy <- c(52, 59, 57, 50, 57, 59, 61, 61, 62, 67, 68, 69, 69, 65, 76)
dpsy <- c(1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1 ) 
NPBayesT(B=8,theta=0.02,u=56,y=ypsy,x=xpsy,status=dpsy)