# example as in Chauveau and Hoang (2015) with 6 coordinates
## Not run:
# m=2; r=6; blockid <-c(1,1,2,2,3,3) # 3 bivariate blocks
# # generate some data x ...
# a <- mvnpEM(x, mu0=2, blockid, samebw=F) # adaptive bandwidth
# plot(a) # this S3 method produces 6 plots of univariate marginals
# summary(a)## End(Not run)
Run the code above in your browser using DataLab