Get miscelaneous information in a population

Usage

getMisc(x, node = NULL)

Arguments

x: Pop-class
node: character, name of the node to get from the x@misc slot; if NULL the whole x@misc slot is returned

Value

The x@misc slot or its nodes x@misc[[*]][[node]]

Examples

founderGenomes <- quickHaplo(nInd = 3, nChr = 1, segSites = 100)
SP <- SimParam$new(founderGenomes)
SP$nThreads = 1L
basePop <- newPop(founderGenomes)
#> Error in get("SP", envir = .GlobalEnv): object 'SP' not found

basePop <- setMisc(basePop, node = "info", value = 1)
#> Error in eval(expr, envir, enclos): object 'basePop' not found
basePop@misc
#> Error in eval(expr, envir, enclos): object 'basePop' not found
getMisc(x = basePop, node = "info")
#> Error in eval(expr, envir, enclos): object 'basePop' not found

basePop <- setMisc(basePop, node = "info2", value = c("A", "B", "C"))
#> Error in eval(expr, envir, enclos): object 'basePop' not found
basePop@misc
#> Error in eval(expr, envir, enclos): object 'basePop' not found
getMisc(x = basePop, node = "info2")
#> Error in eval(expr, envir, enclos): object 'basePop' not found

n <- nInd(basePop)
#> Error in eval(expr, envir, enclos): object 'basePop' not found
location <- vector(mode = "list", length = n)
#> Error in eval(expr, envir, enclos): object 'n' not found
for (ind in seq_len(n)) {
  location[[ind]] <- runif(n = 2, min = 0, max = 100)
}
#> Error in eval(expr, envir, enclos): object 'n' not found
location
#> Error in eval(expr, envir, enclos): object 'location' not found
basePop <- setMisc(basePop, node = "location", value = location)
#> Error in eval(expr, envir, enclos): object 'basePop' not found
basePop@misc
#> Error in eval(expr, envir, enclos): object 'basePop' not found
getMisc(x = basePop, node = "location")
#> Error in eval(expr, envir, enclos): object 'basePop' not found

n <- nInd(basePop)
#> Error in eval(expr, envir, enclos): object 'basePop' not found
location <- vector(mode = "list", length = n)
#> Error in eval(expr, envir, enclos): object 'n' not found
for (ind in c(1, 3)) {
  location[[ind]] <- runif(n = 2, min = 0, max = 100)
}
#> Error: object 'location' not found
location
#> Error in eval(expr, envir, enclos): object 'location' not found
basePop <- setMisc(basePop, node = "location", value = location)
#> Error in eval(expr, envir, enclos): object 'basePop' not found
basePop@misc
#> Error in eval(expr, envir, enclos): object 'basePop' not found
getMisc(x = basePop, node = "location")
#> Error in eval(expr, envir, enclos): object 'basePop' not found

getMisc(x = basePop)
#> Error in eval(expr, envir, enclos): object 'basePop' not found