mvtn(100,15,80,"left")
mvtn(100,15,80,"right")
#simulation check on the answer
## Not run:
# #Simulate truncated left truncated normal and compute
# # empirical means and variances and their sds
#
# ## End(Not run)
Run the code above in your browser using DataLab