Nothing
ClusterCreateClassification=function(Objects,Decreasing){
#
# INPUT
# Objects listed objects, for example factor
#
# OUTPUT
# Cls[1:n] Clustering of data
# ClusterNames Object of adpclust algorithm
# Decreasing if not missing, objects are sorted
# Author: MT
if(is.list(Objects)) Objects=unlist(Objects)
y=as.character(Objects)
n=length(y)
u=unique(y,fromLast = FALSE)
if(!missing(Decreasing)){
u=sort(u,decreasing = Decreasing,na.last=TRUE)
}
names(u)=1:length(u)
Cls=rep(NaN,n)
u_num=as.numeric(u)
nans=sum(!is.finite(u_num))
if(nans>0){
for(i in 1:length(u)){
Cls[y==u[i]]=i
}
}else{#special case: all levels are numeric
for(i in 1:length(u)){
Cls[y==u[i]]=u_num[i]
}
}
return(list(Cls=Cls,ClusterNames=u))
}
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.