# NOT RUN {
# Data preparation
data(diseased)
data(nondiseased)
## Example 1
# Creating immunogenicity subset, method = "Full"
ImmunogenicitySubsetFull <-
BlindSampling(diseased,
nondiseased,
method = list(name = "Full",
value = NA))
## Example 2
# Creating of immunogenicity subset, method = "Ratio"
ImmunogenicitySubsetRatio <-
BlindSampling(diseased,
nondiseased,
method = list(name = "Ratio",
value = 4))
## Example 3
# Creating of immunogenicity subset, method = "Fixed"
ImmunogenicitySubsetFixed <-
BlindSampling(diseased,
nondiseased,
method = list(name = "Fixed",
value = 100))
# }
Run the code above in your browser using DataLab