johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 18:57:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Implement all methods using positions additionally

Browse source
This commit is contained in:
Elias Projahn 2021-11-05 19:49:54 +01:00
parent 9cbc127177
commit cfc5e7a6bf
5 changed files with 222 additions and 167 deletions
Download patch file Download diff file Expand all files Collapse all files

20
R/analyze.R
View file

@ -35,7 +35,19 @@ analyze <- function(preset, progress = NULL) {
"clusteriness" = clusteriness,
"correlation" = correlation,
"proximity" = proximity,
"neural" = neural
"neural" = neural,
"clusteriness_positions" = function(...) {
clusteriness(..., use_positions = TRUE)
},
"correlation_positions" = function(...) {
correlation(..., use_positions = TRUE)
},
"proximity_positions" = function(...) {
proximity(..., use_positions = TRUE)
},
"neural_positions" = function(...) {
neural(..., use_positions = TRUE)
}
)
results <- cached("analysis", preset, {
@ -50,7 +62,11 @@ analyze <- function(preset, progress = NULL) {
}
}
method_results <- methods[[method_id]](preset, method_progress)
method_results <- methods[[method_id]](
preset,
progress = method_progress
)
setnames(method_results, "score", method_id)
results <- merge(