#To get information (variance-covariance) matrix of beta1 and beta2 where
#beta1 and 2 are regression coefficients from a multiple regression model.
dat=dat2
omat=cor(dat)[1:3,1:3]
#omat
#1.0000000 0.1497007 0.136431
#0.1497007 1.0000000 0.622790
#0.1364310 0.6227900 1.000000
nv=length(dat$V1)
output=olkin_beta_ratio(omat,nv)
output
#r2redux output
#output$ratio_var (Variance of ratio)
#0.08042288
Run the code above in your browser using DataLab