# NOT RUN {
ge <- Example.MWG.Exercise.15.B.6()
ge$p / ge$p[2] # (3/4)^3
#####
ge <- Example.MWG.Exercise.15.B.6(p0 = c(2, 1))
ge$p / ge$p[2] # (4/3)^3
#####
ge <- Example.MWG.Exercise.15.B.6(p0 = c(1, 1))
ge$p
# }
Run the code above in your browser using DataLab