Commit 0e0f62be authored by Felix Fauer's avatar Felix Fauer
Browse files

corrected a very embarrassing spelling mistake in gevdfit.R

parent 21b4dc02
...@@ -214,7 +214,7 @@ gev.d.fit<- ...@@ -214,7 +214,7 @@ gev.d.fit<-
} }
eta <- etalink$linkinv(etmat %*% (x$par[seq(npmu + npsc + npsh + npth + 1, length = npet)])) eta <- etalink$linkinv(etmat %*% (x$par[seq(npmu + npsc + npsh + npth + 1, length = npet)]))
z$nllh <- x$value z$nllh <- x$value
# normalize data to standart gumbel: # normalize data to standard Gumbel:
sc.d <- sc0/((ds+theta)^eta) sc.d <- sc0/((ds+theta)^eta)
z$data <- - log(as.vector((1 + xi * (xdat/sc.d-mut))^(-1/xi))) z$data <- - log(as.vector((1 + xi * (xdat/sc.d-mut))^(-1/xi)))
z$mle <- x$par z$mle <- x$par
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment