Nothing
#' Extract Fitted Values for akmeans
#'
#' An S3 method for \code{\link{fitted}} for class \code{"akmeans"}.
#'
#' @param object An object of class \code{"akmeans"}
#' @param \dots Unimplemented
#'
#' @return An array approximating the original data
#' @seealso \code{\link{akmeans}}
#'
#' @method fitted akmeans
#' @export
fitted.akmeans <- function(object, ...) {
return(object$fitted)
}
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.