| validateMergePermutationAndObservation {methylInheritance} | R Documentation |
mergePermutationAndObservation functionValidation of some parameters needed by the public
mergePermutationAndObservation function.
validateMergePermutationAndObservation(permutationResults, observationResults)
permutationResults |
a |
observationResults |
a |
0 indicating that all parameters validations have been
successful.
Astrid Deschenes
## 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)