totalPenaltySpace.RdINTERNAL function to obtain (orthogonal) basis for the null space and range space of the penalty, and obtain actual null space dimension components are roughly rescaled to avoid any dominating.
totalPenaltySpace(S, H, off, p)A list of matrix square roots such that S[[i]]=B[[i]]%*%t(B[[i]]).