mirror of
https://github.com/msberends/AMR.git
synced 2024-12-27 21:26:13 +01:00
85 lines
3.9 KiB
R
85 lines
3.9 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/bug_drug_combinations.R
|
|
\name{bug_drug_combinations}
|
|
\alias{bug_drug_combinations}
|
|
\alias{format.bug_drug_combinations}
|
|
\title{Determine Bug-Drug Combinations}
|
|
\usage{
|
|
bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)
|
|
|
|
\method{format}{bug_drug_combinations}(
|
|
x,
|
|
translate_ab = "name (ab, atc)",
|
|
language = get_AMR_locale(),
|
|
minimum = 30,
|
|
combine_SI = TRUE,
|
|
add_ab_group = TRUE,
|
|
remove_intrinsic_resistant = FALSE,
|
|
decimal.mark = getOption("OutDec"),
|
|
big.mark = ifelse(decimal.mark == ",", ".", ","),
|
|
...
|
|
)
|
|
}
|
|
\arguments{
|
|
\item{x}{a data set with antibiotic columns, such as \code{amox}, \code{AMX} and \code{AMC}}
|
|
|
|
\item{col_mo}{column name of the names or codes of the microorganisms (see \code{\link[=as.mo]{as.mo()}}) - the default is the first column of class \code{\link{mo}}. Values will be coerced using \code{\link[=as.mo]{as.mo()}}.}
|
|
|
|
\item{FUN}{the function to call on the \code{mo} column to transform the microorganism codes - the default is \code{\link[=mo_shortname]{mo_shortname()}}}
|
|
|
|
\item{...}{arguments passed on to \code{FUN}}
|
|
|
|
\item{translate_ab}{a \link{character} of length 1 containing column names of the \link{antibiotics} data set}
|
|
|
|
\item{language}{language of the returned text - the default is the current system language (see \code{\link[=get_AMR_locale]{get_AMR_locale()}}) and can also be set with the package option \code{\link[=AMR-options]{AMR_locale}}. Use \code{language = NULL} or \code{language = ""} to prevent translation.}
|
|
|
|
\item{minimum}{the minimum allowed number of available (tested) isolates. Any isolate count lower than \code{minimum} will return \code{NA} with a warning. The default number of \code{30} isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see \emph{Source}.}
|
|
|
|
\item{combine_SI}{a \link{logical} to indicate whether values S and I should be summed, so resistance will be based on only R - the default is \code{TRUE}}
|
|
|
|
\item{add_ab_group}{a \link{logical} to indicate where the group of the antimicrobials must be included as a first column}
|
|
|
|
\item{remove_intrinsic_resistant}{\link{logical} to indicate that rows and columns with 100\% resistance for all tested antimicrobials must be removed from the table}
|
|
|
|
\item{decimal.mark}{the character to be used to indicate the numeric
|
|
decimal point.}
|
|
|
|
\item{big.mark}{character; if not empty used as mark between every
|
|
\code{big.interval} decimals \emph{before} (hence \code{big}) the
|
|
decimal point.}
|
|
}
|
|
\value{
|
|
The function \code{\link[=bug_drug_combinations]{bug_drug_combinations()}} returns a \link{data.frame} with columns "mo", "ab", "S", "SDD", "I", "R", and "total".
|
|
}
|
|
\description{
|
|
Determine antimicrobial resistance (AMR) of all bug-drug combinations in your data set where at least 30 (default) isolates are available per species. Use \code{\link[=format]{format()}} on the result to prettify it to a publishable/printable format, see \emph{Examples}.
|
|
}
|
|
\details{
|
|
The function \code{\link[=format]{format()}} calculates the resistance per bug-drug combination and returns a table ready for reporting/publishing. Use \code{combine_SI = TRUE} (default) to test R vs. S+I and \code{combine_SI = FALSE} to test R+I vs. S. This table can also directly be used in R Markdown / Quarto without the need for e.g. \code{\link[knitr:kable]{knitr::kable()}}.
|
|
}
|
|
\examples{
|
|
# example_isolates is a data set available in the AMR package.
|
|
# run ?example_isolates for more info.
|
|
example_isolates
|
|
|
|
\donttest{
|
|
x <- bug_drug_combinations(example_isolates)
|
|
head(x)
|
|
format(x, translate_ab = "name (atc)")
|
|
|
|
# Use FUN to change to transformation of microorganism codes
|
|
bug_drug_combinations(example_isolates,
|
|
FUN = mo_gramstain
|
|
)
|
|
|
|
bug_drug_combinations(example_isolates,
|
|
FUN = function(x) {
|
|
ifelse(x == as.mo("Escherichia coli"),
|
|
"E. coli",
|
|
"Others"
|
|
)
|
|
}
|
|
)
|
|
}
|
|
}
|