Nothing
ADEC<-function(List,distmeasure="tanimoto",normalize=FALSE,method=NULL,t=10,r=NULL,nrclusters=NULL,clust="agnes",linkage="ward",alpha=0.625,ResampleFeatures=TRUE){
if(length(nrclusters)==1 & ResampleFeatures==TRUE){
Clustering= ADECa(List=List,distmeasure=distmeasure,normalize=normalize,method=method,t=t,r=r,nrclusters=nrclusters,clust=clust,linkage=linkage,alpha=alpha)
}
else if(length(nrclusters)>1 & ResampleFeatures==FALSE){
Clustering=ADECb(List=List,distmeasure=distmeasure,normalize=normalize,method=method,nrclusters=nrclusters,clust=clust,linkage=linkage,alpha=alpha)
}
else if(length(nrclusters)>1 & ResampleFeatures==TRUE){
Clustering=ADECc(List=List,distmeasure=distmeasure,normalize=normalize,method=method,t=t,r=t,nrclusters=nrclusters,clust=clust,linkage=linkage,alpha=alpha)
}
else{
stop("Cannot detect which version is requested. Please specify the desired number of clusters and whether ResampleFeatures is TRUE or FALSE.")
}
return(Clustering)
}
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.