Skip to content

Commit

Permalink
fixes #64 so plot names are now correct
Browse files Browse the repository at this point in the history
levisc8 committed Nov 30, 2022
1 parent ab44afa commit d816ea8
Showing 1 changed file with 7 additions and 4 deletions.
11 changes: 7 additions & 4 deletions R/utils-export.R
Original file line number Diff line number Diff line change
@@ -1726,17 +1726,20 @@ conv_plot.ipmr_ipm <- function(ipm, iterations = NULL,
} else {
y_nm <- expression(paste("Single Time Step ", lambda))
}
}
}
for(i in seq_len(ncol(all_lams))) {

if(!"main" %in% names(dots)) dots$main <- nms[i]
if(!"main" %in% names(dots)){
use_dots <- c(dots, list(main = nms[i]))
} else {
use_dots <- dots
}

all_args <- c(list(y = all_lams[ , i],
x = iterations,
xlab = "Transition",
ylab = y_nm),
dots)
# plot(all_lams[ , i], main = nms[i], type = type, dots)
use_dots)
do.call("plot", all_args)

if(show_stable) {

0 comments on commit d816ea8

Please sign in to comment.