R/rac_len.R

In ceRtainty: Certainty Equivalent

#' Define the length of the Risk Aversion Coefficient, RAC.
#'
#' @param ini The initial value of the RAC sequence
#' @param fin The final value of the RAC sequence
#' @param data Original data, could be a vector or a matrix
#'
#' @return Two elements are generated: "r" is the RAC vector, and "length" is
#' a scalar with the number of elements on RAC vector.

rac_len <- function(ini,fin,data){

  if(length(ini) != 1L | length(fin) != 1L ){
    stop("\nInitial and Final values shoud be scalars.\n")
  }


  len <- nrow(as.matrix(data))
  x   <- rac_seq(ini , fin , len)

  return(list(r      = x,
              lenght = len)
  )
}