add fct to calc Moore-Penrose pseudo-inverse in utils_quantgen.R