max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Translated initializeGammaln

Browse source
This commit is contained in:
Waldir Leoncio 2020-11-19 08:44:38 +01:00
parent f3c7e8092b
commit dc9b4f7f9c
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
R/initializeGammaln.R Normal file
View file

@ -0,0 +1,9 @@
initializeGammaln <- function(ninds, rowsFromInd, maxAlleles) {
#Alustaa GAMMALN muuttujan s.e. GAMMALN(i, j)=gammaln((i - 1) + 1/j)
GAMMA_LN <- zeros((1 + ninds) * rowsFromInd, maxAlleles)
for (i in 1:(ninds + 1) * rowsFromInd) {
for (j in 1:maxAlleles) {
GAMMA_LN[i, j] <- log_gamma((i - 1) + 1/j)
}
}
}