powered by
original leapp function only added the resOpt.scale(beta.t) return
leapp( data, pred.prim, pred.covar = NULL, O = NULL, num.fac = "buja", method = "hard", sparse = TRUE, centered = FALSE, verbose = FALSE, perm.num = 50, TOL = 1e-04, length.out = 50 )