x <- rweibull(67,4.1,5.25) # just some random Weibull data to show an example
p <- ppoints(x,.3)
q <- log(-log(1-p))
o <- order(x)
plot(q,log(x[o]))
coeffs <- lm(log(x[o])~q)$coefficients
ests <- c(1/coeffs[2],exp(coeffs[1]),quantile(x,1-exp(-1)))
names(ests) <- c("shape.line","scale.line","scale.quantile")
ests
x <- rweibull(67,4.1,5.25) # just some random Weibull data
# to show an example
p <- ppoints(x, .3)
q <- log(-log(1-p))
o <- order(x)
plot(q,log(x[o]))
coeffs <- lm(log(x[o])~q)$coefficients
ests <- c(1/coeffs[2],exp(coeffs[1]),quantile(x,1-exp(-1)))
names(ests) <- c("shape.line","scale.line","scale.quantile")
ests
qax=c(0.1,0.5,1,5,10,20,50,90,99,99.9)
plot(q,x[o],ylab="x",xaxt="n",log="y",xlim=range(log(-log(1-qax/100))),ylim=range(x))
axis(1,at=log(-log(1-qax/100)),labels=qax)
qax=c(0.1,0.5,1,5,10,20,50,90,99,99.9)
plot(q,x[o], ylab="x", xaxt="n", log="y",
xlim=range(log(-log(1-qax/100))), ylim=range(x))
axis(1, at=log(-log(1-qax/100)), labels=qax)