# NOT RUN {
##outputNL1 <- getSampleBasedOnUnmaskedData(
## meansOfNoises = list(Vx1$meanOfNoise, Vx2$meanOfNoise),
## meansOfSquaredNoises = list(Vx1$meanOfSquaredNoise,
## Vx2$meanOfSquaredNoise),
## maskedVectors = list(xstar1, xstar2),
## unmaskedVectors = list(Vx1$unmaskedVariable, Vx2$unmaskedVariable),
## verbose = 2, size = 1000)
## not a real example because ultimately in order to demonstrate this
## function the entire package functionality must be demonstrated
## this is demonstrated in the package example
# }
Run the code above in your browser using DataLab