Nothing
internalMDSestimate=function(Distances){
#smacof is not fast enough
if (!requireNamespace('ProjectionBasedClustering',quietly = TRUE)) {
message(
'Subordinate clustering package (ProjectionBasedClustering) is missing. No computations are performed.
Please install the package which is defined in "Suggests".'
)
return("Subordinate clustering package (ProjectionBasedClustering) is missing.
Please install the package which is defined in 'Suggests'."
)
}
s=c()
#fast mds
for(i in 1:(nrow(Distances)-1)){
s[i]= suppressWarnings(ProjectionBasedClustering::MDS(Distances,OutputDimension = i)$Stress)
if(i>2)
if(s[i]==s[i-1]& s[i]==s[i-2])
break;
}
i=which.min(s)
data=ProjectionBasedClustering::MDS(Distances,OutputDimension = i)$ProjectedPoints
return(data)
}
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.