Displaying 1 result from an estimated 1 matches for "vfrequ".
Did you mean:
vfreq
2011 Apr 27
3
Kolmogorov-Smirnov test
...1206 721 520 315
# Poisson parameter
param <- fitdistr(vectorSentence, "poisson")
# Expected density
density.exp <- dpois(1:9, lambda=param[[1]][1])
# Expected frequ.
frequ.exp <- dpois(1:9, lambda=param[[1]][1])*vectorLength
# Construct numeric vector of data values (y = vFrequ for Kolmogorov-Smirnov
Tests)
vFrequ <- c()
for(i in 1:length(frequ.exp)) {
vFrequ <- append(vFrequ, rep(i, times=frequ.exp[i]))
}
# Check transformation plot(density.exp, ylim=c(0,0.20)) ==
plot(table(vFrequ)/vectorLength, ylim=c(0,0.20))
plot(table(vectorSentence)/vectorLength)
plot(dens...