Nothing
#' @export
#'
'mixedAn<-.bcea' <- function(he,
value = NULL) {
Ubar <- OL.star <- evi.star <- NULL
value <- value %||% rep(1, he$n_comparators)/he$n_comparators
Ubar <- compute_Ubar(he, value)
OL.star <- he$Ustar - Ubar
evi.star <- compute_EVI(OL.star)
structure(
modifyList(
he,
list(
Ubar = Ubar,
OL.star = OL.star,
evi.star = evi.star,
mkt.shares = value)),
class = c("mixedAn", class(he)))
}
#' @export
#'
'mixedAn<-.default' <- function(he,
value) {
stop("No method available", call. = FALSE)
}
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.