#' Get names of effects
#'
#' Give the names of the (components) of the effects
#' in a breedr_modelframe. Internal function. Not exported.
#'
#' @param effects A breedr_modelframe.
get_efnames <- function(effects) {
subnames <- function(idx) {
sizes <- vapply(effects, dim, numeric(2))["size", ]
if (sizes[idx] <= 1)
return(names(effects)[idx]) else
return(names(effects[[idx]]$effects))
}
ans <- unlist(lapply(seq_along(effects), subnames))
return(ans)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.