Nothing
ClusterDaviesBouldinIndex=function(Cls,Data,...){
if (!requireNamespace('clusterSim',quietly = TRUE)){
message(
'Subordinate package (clusterSim) is missing. No computations are performed.
Please install the package which is defined in "Suggests".'
)
return(
list(
DaviesBouldinIndex = NaN,
Object = "Subordinate package (clusterSim) is missing.
Please install the package which is defined in 'Suggests'."
)
)
}else{
if(missing(Cls))
stop("ClusterDaviesBouldinIndex: Cls is missing")
if(missing(Data))
stop("ClusterDaviesBouldinIndex: Data is missing")
if(length(Cls)!=nrow(Data))
stop("ClusterDaviesBouldinIndex: Number of rows in 'Data' does not equal length of 'Cls'")
if(length(unique(Cls))==1){
warning("ClusterDaviesBouldinIndex: 'Cls' has only one cluster stored.")
}
out=clusterSim::index.DB(Data,cl = Cls,...)
return(list(DaviesBouldinIndex=out$DB,Object=out))
}
}
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.