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

Improved documentation

Browse source
This commit is contained in:
Waldir Leoncio 2020-02-25 13:53:11 +01:00
parent 1d446fb6d6
commit 8323d54c01
4 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
NAMESPACE
View file

@ -3,6 +3,7 @@
export(admix1) export(admix1)
export(calculatePopLogml) export(calculatePopLogml)
export(colon) export(colon)
export(computeAllFreqs2)
export(computeIndLogml) export(computeIndLogml)
export(computePersonalAllFreqs) export(computePersonalAllFreqs)
export(computeRows) export(computeRows)

4
R/computeAllFreqs2.R
View file

@ -1,6 +1,10 @@
#' @title Compute all freqs - version 2 #' @title Compute all freqs - version 2
#' @description Lisää a priori jokaista alleelia joka populaation joka lokukseen #' @description Lisää a priori jokaista alleelia joka populaation joka lokukseen
#' j 1/noalle(j) verran. #' j 1/noalle(j) verran.
#' @param noalle noalle
#' @param COUNTS counts
#' @param SUMCOUNTS sumcounts
#' @export
computeAllFreqs2 <- function (noalle, COUNTS = matrix(NA, 0, 0), computeAllFreqs2 <- function (noalle, COUNTS = matrix(NA, 0, 0),
SUMCOUNTS = sum(COUNTS)) { SUMCOUNTS = sum(COUNTS)) {

7
man/computeAllFreqs2.Rd
View file

@ -6,6 +6,13 @@
\usage{ \usage{
computeAllFreqs2(noalle, COUNTS = matrix(NA, 0, 0), SUMCOUNTS = sum(COUNTS)) computeAllFreqs2(noalle, COUNTS = matrix(NA, 0, 0), SUMCOUNTS = sum(COUNTS))
} }
\arguments{
\item{noalle}{noalle}
\item{COUNTS}{counts}
\item{SUMCOUNTS}{sumcounts}
}
\description{ \description{
Lisää a priori jokaista alleelia joka populaation joka lokukseen Lisää a priori jokaista alleelia joka populaation joka lokukseen
j 1/noalle(j) verran. j 1/noalle(j) verran.

2
tests/testthat/test-admix1.R
View file

@ -114,7 +114,7 @@ test_that("computeIndLogml works like on Matlab", {
expect_equivalent(computeIndLogml(1, 0), -Inf) expect_equivalent(computeIndLogml(1, 0), -Inf)
expect_equivalent(computeIndLogml(0, 0), -Inf) expect_equivalent(computeIndLogml(0, 0), -Inf)
expect_equivalent(computeIndLogml(-pi, -8), 3.2242, tol = .0001) expect_equivalent(computeIndLogml(-pi, -8), 3.2242, tol = .0001)
expect_equivalent(computeIndLogml(2:3, 2), 2.3026, tol = .0001) expect_equivalent(computeIndLogml(2:3, 2), 2.3026, tol = .0001)
expect_equivalent(computeIndLogml(matrix(8:5, 2), 100), 14.316, tol = .001) expect_equivalent(computeIndLogml(matrix(8:5, 2), 100), 14.316, tol = .001)
expect_equivalent( expect_equivalent(
object = computeIndLogml(matrix(8:5, 2), matrix(c(1, 3), 1)), object = computeIndLogml(matrix(8:5, 2), matrix(c(1, 3), 1)),