Displaying 1 result from an estimated 1 matches for "step_function".
Did you mean:
std_function
2006 Jun 30
2
Query : Chi Square goodness of fit test
...################ start
#########################################
No_of_Frouds<-
c(4,1,6,9,9,10,2,4,8,2,3,0,1,2,3,1,3,4,5,4,4,4,9,5,4,3,11,8,12,3,10,0,7)
N <- length(No_of_Frouds)
# Estimation of Parameter
lambda<- sum(No_of_Frouds)/N
lambda
pmf <- dpois(i, lambda, log = FALSE)
step_function <- ppois(i, lambda, lower.tail = TRUE, log.p = FALSE)
# Chi-Squared Goodness of Fit Test
# Ho: The data follow a Poisson distribution Vs H1: Not Ho
Frauds <- c(1:13)
counts<- c(2,3,3,5,7,2,1,1,2,3,2,1,1,0) # Observed frequency
Expected
<-c(0.251005528,1.224602726,2.987288468,4....