diff --git a/R/dnormratio.R b/R/dnormratio.R index 1743da46b62245bfd62793dd34b54433c0db86ec..b5c5aa0736aebdbc6e363f9cf8c91bf38b9dfe12 100644 --- a/R/dnormratio.R +++ b/R/dnormratio.R @@ -46,9 +46,9 @@ dnormratio <- function (z, bet, rho, delta) { #' curve(dnormratio(x, bet = beta1, rho = rho1, delta = delta1), from = -0.1, to = 0.7) #' #' # Second example - #' beta2 <- 0.24 - #' rho2 <- 4.21 - #' delta2 <- 0.25 + #' beta2 <- 2 + #' rho2 <- 2 + #' delta2 <- 2 #' dnormratio(0, bet = beta2, rho = rho2, delta = delta2) #' dnormratio(0.5, bet = beta2, rho = rho2, delta = delta2) #' curve(dnormratio(x, bet = beta2, rho = rho2, delta = delta2), from = -0.1, to = 0.7)