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

Improved docs, formatting and handling of globals

Browse source
This commit is contained in:
Waldir Leoncio 2020-01-14 17:36:14 +01:00
parent 93872f2597
commit ff8bc8cce6
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/computeIndLogml.R
View file

@ -1,8 +1,8 @@
#' @title computeIndLogml #' @title computeIndLogml
#' @description Palauttaa yksilön logml:n, kun oletetaan yksilön alkuperät #' @description Palauttaa yksilön logml:n, kun oletetaan yksilön alkuperät
#' määritellyiksi kuten osuusTaulu:ssa. #' määritellyiksi kuten osuusTaulu:ssa.
#' @param omaFreqs omaFreqs #' @param omaFreqs own Freqs?
#' @param osuusTaulu osuusTaulu #' @param osuusTaulu Percentage table?
#' @export #' @export
computeIndLogml <- function (omaFreqs, osuusTaulu) { computeIndLogml <- function (omaFreqs, osuusTaulu) {
@ -14,7 +14,7 @@ computeIndLogml <- function (omaFreqs, osuusTaulu) {
apu <- sum(apu) apu <- sum(apu)
} }
apu = log(apu) apu <- log(apu)
loggis <- sum(apu) loggis <- sum(apu)
return (loggis) return (loggis)

12
R/laskeMuutokset4.R
View file

@ -3,15 +3,15 @@
#' muutos logml:ss? mikäli populaatiosta i siirretään osuuden verran #' muutos logml:ss? mikäli populaatiosta i siirretään osuuden verran
#' todennäköisyysmassaa populaatioon j. Mikäli populaatiossa i ei ole mitään #' todennäköisyysmassaa populaatioon j. Mikäli populaatiossa i ei ole mitään
#' siirrettävää, on vastaavassa kohdassa rivi nollia. #' siirrettävää, on vastaavassa kohdassa rivi nollia.
#' @param osuus osuus #' @param osuus Percentages?
#' @param osuusTaulu osuusTaulu #' @param omaFreqs own Freqs?
#' @param omaFreqs omaFreqs #' @param osuusTaulu Percentage table?
#' @param logml logml #' @param logml log maximum likelihood
#' @param COUNTS COUNTS #' @param COUNTS COUNTS
#' #' @export
laskeMuutokset4 <- function (osuus, osuusTaulu, omaFreqs, logml, laskeMuutokset4 <- function (osuus, osuusTaulu, omaFreqs, logml,
COUNTS = matrix(0)) { COUNTS = matrix(0)) {
npops <- dim(COUNTS)[3] npops <- ifelse(is.na(dim(COUNTS)[3]), 1, dim(COUNTS)[3])
notEmpty <- osuusTaulu > 0.005 notEmpty <- osuusTaulu > 0.005
muutokset <- zeros(npops) muutokset <- zeros(npops)
empties <- !notEmpty empties <- !notEmpty