2nd example changed

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)