added function {phaget4} to plot nested matrices in R-working