commit aced2701f7e6b60e6f8beaf0c0d2722d415c5738
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Feb 19 19:09:29 2021 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Fri Feb 19 19:09:54 2021 +0100
tree 634f0623a8395ac66c4bd667cead0a2dbf0e0656
parent 7049c74fbd0f44a268042de70b658c6e373c0a6e

Fix syfeatures -> syfeaturenames

Change-Id: Icbc1f6deee51ce7d071e81a9c55897b480ef3f18

R/idiomclassification_mk_pf.R

diff --git a/R/idiomclassification_mk_pf.R b/R/idiomclassification_mk_pf.R
index 82516a3..09aee79 100644
--- a/R/idiomclassification_mk_pf.R
+++ b/R/idiomclassification_mk_pf.R
@@ -25,7 +25,7 @@
   select(-matches("CO_TOKEN.*")) %>% # keep tokens for interpretability
   mutate(across(matches(".rank.*"), ~ replace_na(.x, 1000))) %>%
   mutate(across(c("dice", "lfmd", "llr", "ld", "pmi"), ~ replace_na(.x, min(.x) - 1))) %>%
-  rename_at(syfeatures$innames, ~ syfeatures[syfeatures$innames==.x,]$synames ) %>%
+  rename_at(syfeaturenames$innames, ~ syfeaturenames[syfeaturenames$innames==.x,]$synames ) %>%
   mutate(across(everything(), ~ replace_na(.x, 0))) %>%
   mutate(CO_IDIOM = as.factor(if_else(CO_IDIOM !=1, "0", "1")))