Description Usage Arguments Value Author(s) Examples
View source: R/methylInheritanceInternalMethods.R
Validation of some parameters needed by the public
mergePermutationAndObservation
function.
1 | validateMergePermutationAndObservation(permutationResults, observationResults)
|
permutationResults |
a |
observationResults |
a |
0
indicating that all parameters validations have been
successful.
Astrid Deschenes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ## Create a observation result
observed <- list()
observed[["OBSERVATION"]] <- list()
observed[["OBSERVATION"]][["SITES"]] <- list()
observed[["OBSERVATION"]][["SITES"]][["i2"]] <- list(HYPER = list(11, 10),
HYPO = list(13, 12))
observed[["OBSERVATION"]][["SITES"]][["iAll"]] <- list(HYPER = list(1),
HYPO = list(3))
## Create a permutation result containing only 1 permutation result
## Real perumtations results would have more entries
permutated <- list()
permutated[["PERMUTATION"]] <- list()
permutated[["PERMUTATION"]][[1]] <- list()
permutated[["PERMUTATION"]][[1]][["SITES"]] <- list()
permutated[["PERMUTATION"]][[1]][["SITES"]][["i2"]] <- list(HYPER =
list(11, 12), HYPO = list(8, 11))
permutated[["PERMUTATION"]][[1]][["SITES"]][["iAll"]] <- list(HYPER =
list(0), HYPO = list(1))
## Merge permutation and observation results
methylInheritance:::validateMergePermutationAndObservation(
permutationResults = permutated, observationResults = observed)
## The function raises an error when at least one paramater is not valid
## Not run: methylInheritance:::validateMergePermutationAndObservation(
permutationResults = permutated, observationResults = NULL)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.