/1)
runApp('Encyklopedia/Fitter/Hypergeometric')
CHI(81)
K <- 81
((c(f,rep(0,min(n,K)-minimum_n))-N*X(n,NN,K))^2)
(which.min(rev(X(n,NN,K)))+1):length(X(n,NN,K))
(which.min(rev(X(n,NN,K)))+1)
(which.min(X(n,NN,K))+1)
(which.min(X(n,NN,K)))
(which.min(X(n,NN,K)==0))
runApp('Encyklopedia/Fitter/Hypergeometric')
CHI(81)
CHI(25)
CHI(13)
CHI(12)
CHI(14)
CHI(82)
runApp('Encyklopedia/Fitter/Hypergeometric')
sapply(13:81, CHI)
which.min(sapply(13:81, CHI))
which.min(sapply(minimum_n:(NN-minimum_bad), CHI))+minimum_n+1
which.min(sapply(minimum_n:(NN-minimum_bad), CHI))+minimum_n-1
runApp('Encyklopedia/Fitter/Hypergeometric')
R2(15)
runApp('Encyklopedia/Fitter/Hypergeometric')
R2(15)
R2(20)
R2(25)
R2(26)
R2(24)
R2(81)
runApp('Encyklopedia/Fitter/Hypergeometric')
81
R2(81)
R2(80)
K <- 81
numerator <- sum((c(f,rep(0,min(n,K)-minimum_n))-N*X(n,NN,K))^2)
numerator
denominator <- sum ((c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n)))[(which.min(X(n,NN,K)==0)):length(X(n,NN,K))])^2)
denominator
c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n)))[(which.min(X(n,NN,K)==0)):length(X(n,NN,K))])
(c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n)))[(which.min(X(n,NN,K)==0)):length(X(n,NN,K))])
c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n)))
(c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n)))[(which.min(X(n,NN,K)==0)):length(X(n,NN,K))])
denominator <- sum ((c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n))[(which.min(X(n,NN,K)==0)):length(X(n,NN,K))]))^2)
denominator
(c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n))[(which.min(X(n,NN,K)==0)):length(X(n,NN,K))]))
(c(f,rep(0,min(n,K)-minimum_n))-mean(c(f,rep(0,min(n,K)-minimum_n))
runApp('Encyklopedia/Fitter/Hypergeometric')
R2(81)
R2(80)
R2(79)
R2(78)
R2(50)
R2(30)
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
CHI(150)
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
shiny::runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
rawdate
rawdata
minimum_n
CHI(7)
X(265,40000,7)
X
X <- rep(0,n+1)
X
supmax <- min(n,K)
K <- minimum_n
supmax <- min(n,K)
supmax
choose(K,0)*choose(NN-K,n+1)/choose(NN,n)
choose(K,0)
choose(NN-K,n+1)
runApp('Encyklopedia/Fitter/Hypergeometric')
X(10,20,20)
X <- function(n,N,K)
{
X <- rep(0,n+1)
#supmin <- max(0,n+K-N)
supmax <- min(n,K)
for (i in 1:(n+1)) X[i] <- choose(K,i-1)*choose(N-K,n-i+1)/choose(N,n)
X[1:(supmax+1)]
}
X(10,20,10)
dhyper(10,20,10)
dhyper(0:10,10,20,10)
dhyper(0:10,10,10,10)
X <- function(n,N,K)
{
#supmin <- max(0,n+K-N)
#supmax <- min(n,K)
#X <- rep(0,supmax+1)
#for (i in 1:(supmax+1)) X[i] <- choose(K,i-1)*choose(N-K,n-i+1)/choose(N,n)
#X[1:(supmax+1)]
dhyper(0:max(n,K),n,N-n,K)
}
X(10,20,10)
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
currentFileName
inFile$name
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
minimum_n
CHI(7)
Est[2,1]
Est[1,1]
Est[3,1]
Est[4,1]
Chi(49)
CHI(49)
CHI(31)
CHI(18)
CHI(25)
NN
minimum_bad
minimum_n
CHI(6)
CHI(minimum_n)
CHI(NN-minimum_bad)
sapply(minimum_n:(NN-minimum_bad), CHI)
NP
sum(NP)
NP>0
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
K_hat
runApp('Encyklopedia/Fitter/Hypergeometric')
View(f)
c(f,rep(0,min(n,K_hat)-minimum_n))
as.character(0:min(n,K_hat))
length(as.character(0:min(n,K_hat)))
length(c(f,rep(0,min(n,K_hat)-minimum_n)))
runApp('Encyklopedia/Fitter/Hypergeometric')
NP
length(NP)
K_hat
K <- 31
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
NP
NP>0
c(f,rep(0,min(n,K_hat)-minimum_n))
as.character(0:min(n,K_hat))
CHI(K_hat)
length(f)
minimum_n
(c(f,rep(0,min(n,K)-minimum_n)
)
)
K <- 20
c(f,rep(0,min(n,K)-minimum_n))
length(c(f,rep(0,min(n,K)-minimum_n)))
X(n,NN,K)
length(X(n,NN,K))
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est[2,1]
25
CHI(25)
X(n,NN,25)
X(n,NN,25)==0
sum(X(n,NN,25)==0)
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
shiny::runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
NN
current_NN
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
Est
d
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
shiny::runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
paste0("%.", 0, "f")
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
current_K
current_K
current_K
min_supp
minimum_bad
minimum_NN
minimum_n
current_NN
current_n
current_K
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
X(n,NN,Est[i,1])
sum(X(n,NN,Est[i,1]))
current_n
0:min(n,Est[i,1]
)
sample(0:min(n,Est[i,1]),N,replace=TRUE,prob=X(n,NN,Est[i,1]))
resChi[1]
N*X(n,NN,Est[i,1]))
N*X(n,NN,Est[i,1])
a <- c(TRUE,TRUE,FALSE)
a
c(4,5,6)[a]
c(4,5,6)[-a]
c(4,5,6)[1-a]
1-a
c(4,5,6)[!a]
!a
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
Est_print
i <- 4
j <- 3
sprintf(paste0("%.", dig, "f"),Est[i,j])
Est_print <- Est
for(i in 1:4) for(j in 3:7) Est_print[i,j] <- sprintf(paste0("%.", dig, "f"),Est[i,j])
Est_print
for(i in 1:4) for(j in 1:2) Est_print[i,j] <- sprintf(paste0("%.", 0, "f"),Est[i,j])
for(i in 1:4) for(j in 6:7) if(Est[i,j] < (1/10)^dig) Est_print[i,j] <- paste("<",sprintf(paste0("%.", dig, "f"),(1/10)^dig), sep="")
Est_print
dig
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
rep(0,0)
c(1:5,numeric(0))
runApp('Encyklopedia/Fitter/Hypergeometric')
min(n,K_hat)
K_hat
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
NN
minimum_NN
current_K
minimum_NN
minimum_n
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
minimum_n
minimum_n
minimum_bad
minimum_NN
first_est
current_NN
current_n
current_K
current_NN
NN
minimum_bad
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
current_K
round(first_est$par[2])
runApp('Encyklopedia/Fitter/Hypergeometric')
current_NN
current_n
current_K
minimum_NN
current_NN
max(current_K,as.numeric(minimum_n)
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
current_K
current_N
current_NN
current_n
minimum_n
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
runApp('Encyklopedia/Fitter/Hypergeometric')
Est
CHI(182)
K <- 182
sum(X(n,NN,K)==0)==0
X(n,NN,K)
Est
X <- function(n,N,K)
{
#supmin <- max(0,n+K-N)
#supmax <- min(n,K)
#X <- rep(0,supmax+1)
#for (i in 1:(supmax+1)) X[i] <- choose(K,i-1)*choose(N-K,n-i+1)/choose(N,n)
#X[1:(supmax+1)]
res <- dhyper(0:min(n,K),n,N-n,K)
res
}
X(182,10000,182)
4.3e-200
4.3e-6
4.3e-5
4.3e-5*100
4.3e-5*100
1e-300
X <- function(n,N,K)
{
#supmin <- max(0,n+K-N)
#supmax <- min(n,K)
#X <- rep(0,supmax+1)
#for (i in 1:(supmax+1)) X[i] <- choose(K,i-1)*choose(N-K,n-i+1)/choose(N,n)
#X[1:(supmax+1)]
res <- dhyper(0:min(n,K),n,N-n,K)
res[res < 1e-320] <- 0
res
}
X(182,10000,182)
X(182,10000,182)==0
X <- function(n,N,K)
{
#supmin <- max(0,n+K-N)
#supmax <- min(n,K)
#X <- rep(0,supmax+1)
#for (i in 1:(supmax+1)) X[i] <- choose(K,i-1)*choose(N-K,n-i+1)/choose(N,n)
#X[1:(supmax+1)]
res <- dhyper(0:min(n,K),n,N-n,K)
res[res > 1e-320]
}
X(182,10000,182)==0
X(182,10000,182)
runApp('Encyklopedia/Fitter/Hypergeometric')
X <- function(n,N,K)
{
#supmin <- max(0,n+K-N)
#supmax <- min(n,K)
#X <- rep(0,supmax+1)
#for (i in 1:(supmax+1)) X[i] <- choose(K,i-1)*choose(N-K,n-i+1)/choose(N,n)
#X[1:(supmax+1)]
res <- dhyper(0:min(n,K),n,N-n,K)
res[res < 1e-320] <- 1e-320
res
}
runApp('Encyklopedia/Fitter/Hypergeometric')
TRUE || TRUE
TRUE || FALSE
TRUE || FALSE
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
minimum_bad
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
minimum_n
current_n
automatic_n
minimum_n
minimum_bad
first_est
current_NN
current_n
round(first_est$par[3])
current_n
runApp('Encyklopedia/Fitter/Hypergeometric')
current)n
current_n
current_n <<- round(first_est$par[3])
current_n
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
runApp('Encyklopedia/Fitter/Hypergeometric')
shiny::runApp('Cvicenia/1718/SpojiteRozdelenia')
runif
shiny::runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
shiny::runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
runApp('Cvicenia/1718/SpojiteRozdelenia')
shiny::runApp('C:/Users/JozefKovac/Desktop/Seminar/App4')
shiny::runApp('C:/Users/JozefKovac/Desktop/Seminar/App4', display.mode = "showcase")
runApp('C:/Users/JozefKovac/Desktop/Seminar/App4')
