Update mcmc_fiSAN_sparsemix.R

added \dontrun to long example

R/mcmc_fiSAN_sparsemix.R

@@ -124,14 +124,15 @@
 #' }
 #'
 #' @examples 
+#' \dontrun{
 #' set.seed(123)
 #' y <- c(rnorm(170),rnorm(70,5))
 #' g <- c(rep(1,100), rep(2, 140))
 #' plot(density(y[g==1]), xlim = c(-5,10))
 #' lines(density(y[g==2]), col = 2)
 #' out <- sample_fiSAN_sparsemix(nrep = 3000, y = y, group = g, beta = 0.01)
 #' out 
-#' 
+#' }
 #' 
 #' @references Kalli, M., Griffin, J.E., and Walker, S.G. (2011). Slice Sampling Mixture Models, 
 #' \emph{Statistics and Computing}, 21, 93–105. DOI: 10.1007/s11222-009-9150-y