R/zinv.R

"zinv"<-function(y){
    y<-as.matrix(y)
    n<-nrow(y)
    yi<-y
    abc1<-.Fortran("inv1",as.double(y),as.integer(n),yi=as.double(yi))
    yi<-matrix(abc1$yi,nrow=n,byrow=T)
    list(yi=yi)
}

Try the WLreg package in your browser

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

WLreg documentation built on Aug. 9, 2023, 9:08 a.m.