edevries
/
mamlr
2
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

Fixed bug in dupe_detect caused by switch from cutoff to cutoff_lower/upper

Browse Source
master
Erik de Vries 6 years ago
parent 4cd46d1a5e
commit 4adae2bbc6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
R/dupe_detect.R
Unescape View File

@ -42,7 +42,7 @@ dupe_detect <- function(row, grid, cutoff_lower, cutoff_upper = 1, es_pwd) {
text <- capture.output(stream_out(df)) text <- capture.output(stream_out(df))
write(text[-length(text)], file = paste0(getwd(),'/dupe_objects.json'), append=T) write(text[-length(text)], file = paste0(getwd(),'/dupe_objects.json'), append=T)
simil[upper.tri(simil)] <- NA simil[upper.tri(simil)] <- NA
write(unique(rownames(which(simil >= cutoff, arr.ind = TRUE))), write(unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE))),
file = paste0(getwd(),'/remove_ids.txt'), file = paste0(getwd(),'/remove_ids.txt'),
append=T) append=T)
return(list(df,unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE))))) return(list(df,unique(rownames(which(simil >= cutoff_lower & simil <= cutoff_upper, arr.ind = TRUE)))))

Write Preview
Loading…
Cancel
Save