# First example: ratio of independent variables
beta1 <- 0.15
rho1 <- 5.75
delta1 <- 0.22
pnormratio(0, bet = beta1, rho = rho1, delta = delta1)
pnormratio(0.5, bet = beta1, rho = rho1, delta = delta1)
curve(pnormratio(x, bet = beta1, rho = rho1, delta = delta1), from = -0.1, to = 0.7)
# Second example: ratio of correlated variables
beta2 <- 2
rho2 <- 2
delta2 <- 2
r2 <- 0.8
pnormratio(0, bet = beta2, rho = rho2, delta = delta2, r = r2)
pnormratio(1, bet = beta2, rho = rho2, delta = delta2, r = r2)
curve(pnormratio(x, bet = beta2, rho = rho2, delta = delta2, r = r2),
from = -1.5, to = 2.5)
Run the code above in your browser using DataLab