powered by
Extract matrix from scaled matrix
unscale_matrix(X)
scaled matrix created with scale_matrix()
scale_matrix()
if (has_sympy()) { V <- matrix_sym(2, 2, "v") a <- symbol("a") Ks <- scale_matrix(V, a, divide = FALSE) Ks unscale_matrix(Ks) V %*% a }
Run the code above in your browser using DataLab