Commit dc65bf7c authored by Laura Mack's avatar Laura Mack
Browse files

check length(xdat) == length(ds) in gevdfit

parent 5a1b0e3a
......@@ -77,7 +77,9 @@ gev.d.fit<-
init.vals = NULL, theta_zero = FALSE,
show = TRUE, method = "Nelder-Mead", maxit = 10000, ...)
{
if (length(xdat) != length(ds)) {
stop(paste0('The length of xdat is ',length(xdat),', but the length of ds is ',length(ds),'.'))
}
z <- list()
# number of parameters (betas) to estimate for each parameter:
npmu <- length(mul) + 1
......
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