Commit 8ecdd320 authored by Jana Ulrich's avatar Jana Ulrich
Browse files

IDF.plot changed creation of matrix for plotting so that also one probability works

parent ff97df27
......@@ -137,7 +137,7 @@ IDF.plot <- function(durations,fitparams,probs=c(0.5,0.9,0.99),
## calculate IDF values for given probability and durations
qs <- lapply(durations,qgev.d,p=probs,mut=fitparams[1],sigma0=fitparams[2],xi=fitparams[3],
theta=fitparams[4],eta=fitparams[5])
idf.array <- simplify2array(qs) # array[probs,durs]
idf.array <- matrix(unlist(qs),length(probs),length(durations)) # array[probs,durs]
if(!add){ #new plot
## initialize plot window
# check if limits were passed
......
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