## Not run:
# # LDT estimates
# data("LDTdata")
# est <- LDTestimate(data=LDTdata)
# contrast_wald(est, t=1)
#
# # WRSE estimates
# data("WRSEdata")
# est <- WRSEestimate(data=WRSEdata)
# contrast_wald(est, t=300)
# ## End(Not run)
Run the code above in your browser using DataLab