powered by
Weibull function of the form \( (1 - exp(-(x/\alpha)^\beta)\)
weibull_fun(x, p)
Vector of values of the explanatory variable.
Vector of parameters \(p = c(\alpha, \beta)\).
Probability at each x.
x
# NOT RUN { xseq <- seq(0, 4, .01) yseq <- weibull_fun(xseq, c(2, 4)) curve <- data.frame(x = xseq, y = yseq) ggplot(curve, aes(x = x, y = y)) + geom_line() # }
Run the code above in your browser using DataLab