R/myGS.R

In Tex4exams: Generating 'Sweave' Code for 'R/exams' Questions in Mathematics

Defines functions myGS

Documented in myGS

# Orthogonal projection of y onto x
myGS <- function(x,y){
  out <-  ((t(x)%*%y)[1,1])/((t(x)%*%x)[1,1])*x
  return(out)
}

Try the Tex4exams package in your browser