R/get_sim_tracks.R

In jmlondon/crawlr: utilities and visualization functions in support of crawl

#' 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)
}