data(Waterdata)
set.seed(100)
if (FALSE) {
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