No real need to answer. I found that function 'metaphone' from package
"phonics" doesn't misbehave this way!
library(phonics)
mymetaphone = function(x){
temp <- strsplit(x, split=" ")[[1]]
for(word in 1:length(temp)){
temp[word]<-metaphone(temp[word])
}
return(paste(temp, coll
I was wondering if anyone can answer this question.
library(PGRdup)
Both lines below return "NTFL".
DoubleMetaphone("netflix")$primary
DoubleMetaphone("net flex")$primary
Now, I modify the function a bit - I first split the string on
"space", then merge back together:
mymetaphone = function(x){
2 matches
Mail list logo