inst/Examples/perpOperator.R

set.seed(779)
`%perp%` <- function(y,x)
      lsfit(x,y, intercept  = FALSE)$residuals
x <- 1:10
y <- x + .25 * rnorm(10)
y %perp% x

Try the SoDA package in your browser

Any scripts or data that you put into this service are public.

SoDA documentation built on Oct. 28, 2020, 9:07 a.m.