#' Get the average stability(over all k)
#'
#' @param object An object of class "feasibilityAnalysis"
#' @return The average stability(over all k)
#' @export
#'
#' @examples
#' fa.object <- feasibilityAnalysis(classes = 2, samples = 10, features = 15)
#' average.st <- get_average_stability(fa.object)
get_average_stability <- function(object) {
UseMethod("get_average_stability")
}
#' @export
get_average_stability.feasibilityAnalysis <- function(object) {
object$avg_stability
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.