t(x) %*% x should be akin to var(x) * nrow(x).  Need to scale by nrow before taking glasso
export design matrices helper functions