# NOT RUN {
## Data preparation
data(nondiseased)
## Example 1
# Creating imunogenicity subset, method = "Full"
NondiseasedImmunogenicitySubset <-
ImmunogenicitySubset(diseased,
nondiseased,
method = list(name = "Full",
value = "NA"))
# Number of all non-diseased subjects in the clinical trial
nondiseasedGenerationCount <- nondiseased$N
# Upsampling of non-diseased titers
GenerateNondiseased(NondiseasedImmunogenicitySubset$titers, nondiseasedGenerationCount)
# }
Run the code above in your browser using DataLab