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

adjust plot parameter in IDF.plot

parent 8d0c06a7
......@@ -145,12 +145,15 @@ IDF.plot <- function(durations,fitparams,probs=c(0.5,0.9,0.99),
if(is.element('ylim',names(list(...)))){
ylim <- list(...)[['ylim']]
}else{ylim <- range(idf.array,na.rm=TRUE)}
if(is.element('ylim',names(list(...)))){
if(is.element('xlim',names(list(...)))){
xlim <- list(...)[['xlim']]
}else{xlim <- range(durations,na.rm=TRUE)}
if(is.element('main',names(list(...)))){
main <- list(...)[['main']]
}else{main <- ''}
# empty plot
plot(NA,xlim=xlim,ylim=ylim,xlab="Duration [h]",ylab="Intensity [mm/h]",log="xy")
plot(NA,xlim=xlim,ylim=ylim,xlab="Duration [h]",ylab="Intensity [mm/h]",log="xy",main=main)
}
## plot IDF curves
......
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