## Not run:
# x1 <- matrix(rnorm(2*200),ncol=2)
# x2 <- matrix(rnorm(2*200,2,1),ncol=2)
# data <- rbind(x1,x2)
# epsilon <- 0.5
# end <- 3
# iter_max <- 50
# trimmed_bic(data,epsilon,end,"rcm",50)
# ## End(Not run)
Run the code above in your browser using DataLab