library(sjPlot)
oldstring <- c("Hello", "Helo", "Hole", "Apple",
"Ape", "New", "Old", "System", "Systemic")
newstring <- group_str(oldstring)
sjt.frq(data.frame(oldstring, newstring),
removeStringVectors = FALSE,
autoGroupStrings = FALSE)
newstring <- group_str(oldstring, strict = TRUE)
sjt.frq(data.frame(oldstring, newstring),
removeStringVectors = FALSE,
autoGroupStrings = FALSE)
Run the code above in your browser using DataLab