Displaying 1 result from an estimated 1 matches for "lvis".
Did you mean:
luis
2006 Apr 11
1
error in which(): recursive default argument reference
...d.letters <- sapply(word.split, function(x) which(letters==x))
pos <- c(1,rep(2,(length(word.split)-2)),3)
letters.freq.word <- unlist(letters.freq[cbind(used.letters, pos)])
letters.vis.word <- letters.vis[paste("X", pos, sep=""),]
#computations
Mean.Lvis <- mean(letters.vis.word)
Prod.Lvis <- prod(letters.vis.word)
PosRel <- sum((word.freq/letters.freq.word)*(letters.vis.word))
output <- list(Mean.Lvis, Prod.Lvis, PosRel)
names(output) <- c("Mean.Lvis", "Prod.Lvis", "PosRel")
return(output)
}...