# NOT RUN {
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)
# }
Run the code above in your browser using DataLab