Ну, в соответствии с этот третий параметр является просто сдвигом
Итак, вдоль линий
dweibull3 <- function(x, shape, scale = 1, shift = 0, log = FALSE) {
dweibull(x - shift, shape, scale, log)
}
pweibull3 <- function(q, shape, scale = 1, shift = 0, lower.tail = TRUE, log.p = FALSE) {
pweibull(q - shift, shape, scale, lower.tail, log.p)
}