Buenos días Tania

Una forma podía ser,

x <- rweibull(1000,2,3)           # Muestra de tamaño 1000 de una
Weibull(2,3)
(p <- length(x[x>4])/1000)      # Proporción de valores > 4
# Valor verdadero
1-pweibull(4,2,3)

-- 
Jose Luis

	[[alternative HTML version deleted]]

