#' Get All the Simulated Tracks You Want
#'
#' @param crw_obj a crwFit object
#' @param iter the number of simulated tracks to return
#'
#' @return a list of length iter containing crwIS objects
#' @export
#'
get_sim_tracks <- function(crw_obj, iter, pt) {
simObj <- crawl::crwSimulator(crw_obj,
predTime = pt,
method = "IS",
parIS = 100)
sim_tracks = list()
for (i in 1:iter) {
sim_tracks[[i]] <- crawl::crwPostIS(simObj, fullPost = FALSE)
}
return(sim_tracks)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.