load inversematric.R