library(SemiParSampleSel)
# Generating normal response with n = 2000
ys <- rnorm(2000, mean=3, sd=1)
resp.check(ys, margin = "N")
## Not run: ------------------------------------
#
# # Generating gamma response with n = 2000
# ys <- rgamma(2000, shape=2, rate=3)
# resp.check(ys, margin = "G")
#
# # Generating Poisson response with n = 2000
# ys <- rPO(2000, mu=3)
# resp.check(ys, margin = "P")
#
# # Generating negative binomial response with n = 2000
# ys <- rNBI(2000, mu=3, sigma=1)
# resp.check(ys, margin = "NB")
#
## ---------------------------------------------
Run the code above in your browser using DataLab