### Name: NewLemma1
### Title: Compute the Conditional Expectation given left truncated and
###   right censored observations
### Aliases: NewLemma1
### Keywords: nonparametric survival

### ** Examples

uncensored <- c(1,5,9)
rightcensored <- c(4,7)
NPBayes(B=12, theta=0.2, u=3.2, uncen=uncensored, rightcen=rightcensored)

leftpt <- 0
rightpt <- 3
NPBayes(B=12, theta=0.2, u=3.2, uncen=uncensored, rightcen=rightcensored, 
lefts = leftpt, rights = rightpt)