#' nbSteps
#'
#' calculates the delay-steps for each level
#' @param maxL max distance (from distance distribution, dd)
#' @param speed celerity (meter per second)
#' @param Timeresinsec time resolution of the process in second (1hour: 3600s, ... etc)
#' @keywords celerity
#' @export
#' @examples
#' \dontrun{
#' nbSteps()
#' }
nbSteps <-function(maxL,speed,Timeresinsec) {
res <- trunc(maxL/(speed*Timeresinsec))+1
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.