R/beta.R

In Qrtsaad/CHANGEPOINT: Methods for changepoint detection

#' Best Beta
#'
#'
#' @description Best parameter for penalty
#'
#' @param data vector of data points
#'
#' @return best penalty value
#' @export
#'
#' @examples
#' best_beta(c(0,1,1,2,2,3))
best_beta <- function(data)
{
  n <- length(data)
  return (2*var(data)*log(n))
}