library(evd)
> fit <- fgev(dat$Precp)
> fit

Call: fgev(x = dat$Precp)
Deviance: 2159.363

Estimates
     loc     scale     shape
151.9567  137.6544   -0.1518

Standard Errors
     loc     scale     shape
12.41071   9.24535   0.07124

Optimization Information
  Convergence: successful
  Function Evaluations: 27
  Gradient Evaluations: 15