The R Project SVN R-packages

Rev

Blame | Last modification | View Log | Download | RSS feed 

"bigqr.init" <-
function(p){

  rval<-list(D=numeric(p), rbar=numeric(choose(p,2)),
             thetab=numeric(p),
             ss=0, checked=FALSE,
             tol=numeric(p))
  class(rval)<-"bigqr"
  rval
}