Re: [R] weird behavior of DoubleMetaphone

2016-12-14 Thread Dimitri Liakhovitski
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

[R] weird behavior of DoubleMetaphone

2016-12-14 Thread Dimitri Liakhovitski
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){