Nothing
findOptimalSmacofSym<-function(table,critical_stress=(max(as.numeric(gsub(",",".",table[,"STRESS 1"],fixed=TRUE)))+min(as.numeric(gsub(",",".",table[,"STRESS 1"],fixed=TRUE))))/2,critical_HHI=NA){
if(is.na(critical_stress) && is.na(critical_stress)){
stop("One of the criterions critical_Stress or critical_HHI shoul be set")
}
if(is.na(critical_HHI)){
opt<-"HHI spp"
cut<-"STRESS 1"
critical=critical_stress
}
else{
opt<-"STRESS 1"
cut<-"HHI spp"
critical=critical_HHI
}
number<-(1:nrow(table))[order(as.numeric(gsub(",",".",table[,opt])))]
table<-table[order(as.numeric(gsub(",",".",table[,opt]))),]
number<-number[as.numeric(gsub(",",".",table[,cut],fixed=TRUE))<=critical]
table<-table[as.numeric(gsub(",",".",table[,cut],fixed=TRUE))<=critical,]
if(nrow(table)==0){
stop("No mds procedure for given constraints")
}
if(sum(colnames(table)=="Spline degree")!=0){
res<-list(
Nr=as.vector(number[1]),
Normalization_method=as.vector(table[1,"Normalization method"]),
MDS_model=as.vector(table[1,"MDS model"]),
Spline_degree=as.vector(table[1,"Spline degree"]),
Distance_measure=as.vector(table[1,"Distance measure"]),
STRESS_1=as.numeric(gsub(",",".",table[1,"STRESS 1"],fixed=TRUE)),HHI_spp=as.numeric(gsub(",",".",table[1,"HHI spp"],fixed=TRUE)))
}
else{
res<-list(
Nr=as.vector(number[1]),
Normalization_method=as.vector(table[1,"Normalization method"]),
MDS_model=as.vector(table[1,"MDS model"]),
Distance_measure=as.vector(table[1,"Distance measure"]),
STRESS_1=as.numeric(gsub(",",".",table[1,"STRESS 1"],fixed=TRUE)),HHI_spp=as.numeric(gsub(",",".",table[1,"HHI spp"],fixed=TRUE)))
}
return(res)
}
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.