{“Sheltered”, “Exposed”},

AspectRatio

Automatic]

ploteq4 = EdgeworthBowley[pars22, Factor

{1, 2}, PlotPoints

50]