data(Waterdata)
set.seed(100)
## Not run:
# a <- npEM(Waterdata[,3:10], 3, bw=4) # Assume indep but not iid
# summary(a)
#
# b <- npEM(Waterdata[,3:10], 3, bw=4, blockid=rep(1,8)) # Now assume iid
# summary(b)
# ## End(Not run)
Run the code above in your browser using DataLab