#' Get the optimal parameter used
#'
#' @param object An object of class "optimalClustering"
#' @return The optimal parameter used
#' @export
#'
#' @examples
#' oc.object <- optimalClustering(toy_genes, 4, "spectral")
#' get_optimal_parameter_used(oc.object)
get_optimal_parameter_used <- function(object) {
UseMethod("get_optimal_parameter_used")
}
#' @export
get_optimal_parameter_used.optimalClustering <- function(object) {
object$optimal.parameter.used
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.