Nothing
#' Print Validation Index
#' @description Print Validation Index for fuzzy clustering
#' @param x validation object
#' @param ... another parameter
#' @import knitr
#' @export
print.validation<-function(x,...){
cat("Validation Index result:")
valid<-as.data.frame(c(PC(x),
MPC(x),
CE(x),
XB(x),
S(x),
Kwon(x),
Tang(x)))
colnames(valid)<-"Value"
rownames(valid)<-c("Partition Coefficient",
"Modified Partition Coefficient",
"Classification Entropy",
"Xie Beni",
"Separation",
"Kwon",
"Tang" )
print(kable(valid,digits = 3))
}
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.