inst/snippet/project-matrix02.R

t(A) %*% v1 
t(A) %*% v2
x <- 1:4
coefs <- t(A) %*% x; coefs
pr <- A %*% coefs; pr
remainder <- x - pr; remainder
dot(remainder, v1)    # should be 0
dot(remainder, v2)    # should be 0
rpruim/fastR2 documentation built on Nov. 11, 2023, 7:32 a.m.