lib/unifqsumg.R

unifqsumg <-
  function(x){
    x <- matrix(x,ncol=2)
    c(x[1,1],sum(x[,2]),length(x[,1]),crossprod(x[,2]))
  }
taylerablake/thin-plate-splines documentation built on May 8, 2019, 11:16 p.m.