Nothing
#' Create a grid of values for tuning tskrr
#'
#' This function creates a grid of values for
#' tuning a \code{\link{tskrr}} model. The grid is equally spaced on
#' a logarithmic scale. Normally it's not needed to call this method
#' directly, it's usually called from \code{\link{tune}}.
#'
#' The \code{lim} argument sets the boundaries of the domain in which
#' the lambdas are sought. The lambda values at which the function is
#' evaluated, are calculated as:
#'
#' \code{exp(seq(log(1e-4), log(1e4), length.out = ngrid))}
#'
#' @param lim a numeric vector with 2 values giving the lower and upper limit
#' for the grid.
#' @param ngrid the number of values that have to be produced. If this
#' number is not integer, it is truncated. The value should be 2 or
#' larger.
#'
#' @return a numeric vector with values evenly spaced on a
#' logarithmic scale.
#'
#' @seealso \code{\link{tune}} for tuning a tskrr model.
#'
#' @examples
#' create_grid(lim = c(1e-4, 1), ngrid = 5)
#'
#' @export
create_grid <- function(lim = c(1e-4, 1e4),
ngrid = 10){
if(!length(lim) == 2 || !is.numeric(lim))
stop("The argument lim needs 2 numeric values.")
if(!length(ngrid) == 1 || !is.numeric(ngrid))
stop("The argument ngrid should be a single numeric value.")
#Optimized for speed
llim <- log(lim)
by <- (llim[2] - llim[1])/(ngrid - 1L)
exp(c(llim[1], llim[1] + seq_len(ngrid - 2L) * by, llim[2]))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.