P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 07:02:01 +02:00
Code Releases Activity

(v1.1.0.9021) 1st isolates update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-05-28 10:51:56 +02:00
parent 86d44054f0
commit d9a4b0bcaf
51 changed files with 483 additions and 1106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/resistance_predict.R
View File

@ -304,7 +304,7 @@ rsi_predict <- resistance_predict
#' @exportMethod plot.mic
#' @export
#' @importFrom graphics plot axis arrows points
#' @importFrom graphics axis arrows points
#' @rdname resistance_predict
plot.resistance_predict <- function(x, main = paste("Resistance Prediction of", x_name), ...) {
x_name <- paste0(ab_name(attributes(x)$ab), " (", attributes(x)$ab, ")")
@ -314,6 +314,12 @@ plot.resistance_predict <- function(x, main = paste("Resistance Prediction of",
} else {
ylab <- "%IR"
}
# get plot() generic; this was moved from the 'graphics' pkg to the 'base' pkg in R 4.0.0
if (as.integer(R.Version()$major) >= 4) {
plot <- get("plot", envir = asNamespace("base"))
} else {
plot <- get("plot", envir = asNamespace("graphics"))
}
plot(x = x$year,
y = x$value,
ylim = c(0, 1),