R/make.v.R

'make.v'<-function(n,r,sig2){
     out<-matrix(r,n,n)
     for (i in 1:n){
          out[i,i]<-1
     }
    out<-sig2*out
    return(out)
}

Try the hbim package in your browser

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

hbim documentation built on Aug. 24, 2023, 5:10 p.m.