Fix manuals

Author: youngahn

R/estimate_mode.R

@@ -1,7 +1,7 @@
 #' Function to estimate mode of MCMC samples
 #' 
 #' Based on codes from 'http://stackoverflow.com/questions/2547402/is-there-a-built-in-function-for-finding-the-mode'
-#' see the comment by Rasmus Bååth
+#' see the comment by Rasmus Baath
 #' 
 #' @param x MCMC samples or some numeric or array values. 
 #' @importFrom stats density

R/extract_ic.R

@@ -1,14 +1,24 @@
 #' Extract Model Comparison Estimates
 #' 
 #' @param modelData Object returned by \code{'hBayesDM'} model function
+#' @param ic Information Criterion. 'looic', 'waic', or 'both'
 #' @param core Number of cores to use for leave-one-out estimation 
 #' 
 #' @importFrom loo extract_log_lik loo waic 
 #'
-#' @return IC Leave-One-Out and Watanabe-Akaike information criterion estimates. 
+#' @return IC Leave-One-Out and/or Watanabe-Akaike information criterion estimates. 
 #'
 #' @export 
-
+#' @examples 
+#' \dontrun{
+#' library(hBayesDM)
+#' output = bandit2arm_delta("example", niter=2000, nwarmup=1000, nchain=4, ncore = 1)
+#' # To show the LOOIC model fit estimates (a detailed report; c)
+#' extract_ic(output)
+#' # To show the WAIC model fit estimates
+#' extract_ic(output, ic="waic")
+#' }
+#' 
 extract_ic <- function(modelData = NULL,  
                        ic = "looic",
                        core      = 2) {