Nothing
## setup registry for conceptual scaling
#' Scaling Registry
#'
#' @details
#' This is a registry that stores the implemented scales that can be
#' applied using the \code{scale()} method in an
#' \code{FormalContext}.
#'
#' One can obtain the list of available equivalence operators by:
#' \code{scalingRegistry$get_entry_names()}
#'
#' @export
#' @import registry
scalingRegistry <- registry::registry(registry_class = "scaling_registry",
entry_class = "scale")
scalingRegistry$set_field("method",
type = "character",
is_key = TRUE,
index_FUN = registry::match_partial_ignorecase)
scalingRegistry$set_field("fun",
type = "function",
is_key = FALSE)
scalingRegistry$set_field("description",
type = "character",
is_key = FALSE)
##%######################################################%##
# #
#### Scales ####
# #
##%######################################################%##
scalingRegistry$set_entry(method = "Nominal",
fun = nominal_scaling,
description = "Nominal scaling")
scalingRegistry$set_entry(method = "Ordinal",
fun = ordinal_scaling,
description = "Ordinal scaling")
scalingRegistry$set_entry(method = "Interordinal",
fun = interordinal_scaling,
description = "Interordinal scaling")
scalingRegistry$set_entry(method = "Biordinal",
fun = biordinal_scaling,
description = "Biordinal scaling")
scalingRegistry$set_entry(method = "Interval",
fun = interval_scaling,
description = "Interval scaling")
scalingRegistry$set_entry(method = "Implication",
fun = implication_scaling,
description = "Implication scaling")
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.