powered by
supp(dendat, epsi=0, blown=FALSE)
set.seed(1) dendat<-matrix(rnorm(20),10) supp(dendat)
Run the code above in your browser using DataLab