2018-12-23 21:26:21 +01:00
<!-- Generated by pkgdown: do not edit by hand -->
<!DOCTYPE html>
< html lang = "en" >
< head >
< meta charset = "utf-8" >
< meta http-equiv = "X-UA-Compatible" content = "IE=edge" >
< meta name = "viewport" content = "width=device-width, initial-scale=1.0" >
2018-12-29 22:24:19 +01:00
< title > Calculate resistance of isolates — portion • AMR (for R)< / title >
<!-- favicons -->
< link rel = "icon" type = "image/png" sizes = "16x16" href = "../favicon-16x16.png" >
< link rel = "icon" type = "image/png" sizes = "32x32" href = "../favicon-32x32.png" >
< link rel = "apple-touch-icon" type = "image/png" sizes = "180x180" href = "../apple-touch-icon.png" / >
< link rel = "apple-touch-icon" type = "image/png" sizes = "120x120" href = "../apple-touch-icon-120x120.png" / >
< link rel = "apple-touch-icon" type = "image/png" sizes = "76x76" href = "../apple-touch-icon-76x76.png" / >
< link rel = "apple-touch-icon" type = "image/png" sizes = "60x60" href = "../apple-touch-icon-60x60.png" / >
2018-12-23 21:26:21 +01:00
<!-- jquery -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/jquery/3.3.1/jquery.min.js" integrity = "sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin = "anonymous" > < / script >
<!-- Bootstrap -->
2018-12-29 22:24:19 +01:00
< link href = "https://cdnjs.cloudflare.com/ajax/libs/bootswatch/3.3.7/flatly/bootstrap.min.css" rel = "stylesheet" crossorigin = "anonymous" / >
2018-12-23 21:26:21 +01:00
< script src = "https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.3.7/js/bootstrap.min.js" integrity = "sha256-U5ZEeKfGNOja007MMD3YBI0A3OSZOQbeG6z2f2Y0hu8=" crossorigin = "anonymous" > < / script >
<!-- Font Awesome icons -->
< link rel = "stylesheet" href = "https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css" integrity = "sha256-eZrrJcwDc/3uDhsdt61sL2oOBY362qM3lon1gyExkL0=" crossorigin = "anonymous" / >
<!-- clipboard.js -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.4/clipboard.min.js" integrity = "sha256-FiZwavyI2V6+EXO1U+xzLG3IKldpiTFf3153ea9zikQ=" crossorigin = "anonymous" > < / script >
<!-- sticky kit -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/sticky-kit/1.1.3/sticky-kit.min.js" integrity = "sha256-c4Rlo1ZozqTPE2RLuvbusY3+SU1pQaJC0TjuhygMipw=" crossorigin = "anonymous" > < / script >
<!-- pkgdown -->
< link href = "../pkgdown.css" rel = "stylesheet" >
< script src = "../pkgdown.js" > < / script >
2018-12-29 22:24:19 +01:00
<!-- docsearch -->
< script src = "../docsearch.js" > < / script >
< link rel = "stylesheet" href = "https://cdnjs.cloudflare.com/ajax/libs/docsearch.js/2.6.1/docsearch.min.css" integrity = "sha256-QOSRU/ra9ActyXkIBbiIB144aDBdtvXBcNc3OTNuX/Q=" crossorigin = "anonymous" / >
< link href = "../docsearch.css" rel = "stylesheet" >
< script src = "https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/jquery.mark.min.js" integrity = "sha256-4HLtjeVgH0eIB3aZ9mLYF6E8oU5chNdjU6p6rrXpl9U=" crossorigin = "anonymous" > < / script >
2018-12-23 21:26:21 +01:00
2018-12-29 22:24:19 +01:00
< link href = "../extra.css" rel = "stylesheet" >
< script src = "../extra.js" > < / script >
2018-12-23 21:26:21 +01:00
< meta property = "og:title" content = "Calculate resistance of isolates — portion" / >
2019-03-26 14:24:03 +01:00
< meta property = "og:description" content = "These functions can be used to calculate the ( co- ) resistance of microbial isolates ( i . e . percentage of S , SI , I , IR or R ) . All functions support quasiquotation with pipes , can be used in dplyrs summarise and support grouped variables , see Examples .
2018-12-23 21:26:21 +01:00
portion_R and portion_IR can be used to calculate resistance, portion_S and portion_SI can be used to calculate susceptibility." />
2018-12-29 22:24:19 +01:00
2019-01-02 23:24:07 +01:00
< meta property = "og:image" content = "https://msberends.gitlab.io/AMR/logo.png" / >
2018-12-23 21:26:21 +01:00
< meta name = "twitter:card" content = "summary" / >
<!-- mathjax -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity = "sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin = "anonymous" > < / script >
< script src = "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity = "sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin = "anonymous" > < / script >
<!-- [if lt IE 9]>
< script src = "https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js" > < / script >
< script src = "https://oss.maxcdn.com/respond/1.4.2/respond.min.js" > < / script >
<![endif]-->
< / head >
< body >
< div class = "container template-reference-topic" >
< header >
< div class = "navbar navbar-default navbar-fixed-top" role = "navigation" >
< div class = "container" >
< div class = "navbar-header" >
< button type = "button" class = "navbar-toggle collapsed" data-toggle = "collapse" data-target = "#navbar" aria-expanded = "false" >
< span class = "sr-only" > Toggle navigation< / span >
< span class = "icon-bar" > < / span >
< span class = "icon-bar" > < / span >
< span class = "icon-bar" > < / span >
< / button >
< span class = "navbar-brand" >
2018-12-29 22:24:19 +01:00
< a class = "navbar-link" href = "../index.html" > AMR (for R)< / a >
2019-04-05 18:47:39 +02:00
< span class = "version label label-default" data-toggle = "tooltip" data-placement = "bottom" title = "Released version" > 0.6.1.9002< / span >
2018-12-23 21:26:21 +01:00
< / span >
< / div >
< div id = "navbar" class = "navbar-collapse collapse" >
< ul class = "nav navbar-nav" >
< li >
< a href = "../index.html" >
2018-12-29 22:24:19 +01:00
< span class = "fa fa-home" > < / span >
2018-12-23 21:26:21 +01:00
2018-12-29 22:24:19 +01:00
Home
2018-12-23 21:26:21 +01:00
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< li class = "dropdown" >
< a href = "#" class = "dropdown-toggle" data-toggle = "dropdown" role = "button" aria-expanded = "false" >
< span class = "fa fa-question-circle" > < / span >
How to
2018-12-29 22:24:19 +01:00
2019-01-02 23:24:07 +01:00
< span class = "caret" > < / span >
2018-12-29 22:24:19 +01:00
< / a >
2019-01-02 23:24:07 +01:00
< ul class = "dropdown-menu" role = "menu" >
< li >
< a href = "../articles/AMR.html" >
< span class = "fa fa-directions" > < / span >
Conduct AMR analysis
< / a >
< / li >
< li >
2019-02-14 10:23:51 +01:00
< a href = "../articles/resistance_predict.html" >
2019-01-02 23:24:07 +01:00
< span class = "fa fa-dice" > < / span >
Predict antimicrobial resistance
< / a >
< / li >
2019-01-29 00:06:50 +01:00
< li >
< a href = "../articles/WHONET.html" >
< span class = "fa fa-globe-americas" > < / span >
Work with WHONET data
< / a >
< / li >
2019-02-14 15:18:17 +01:00
< li >
< a href = "../articles/SPSS.html" >
< span class = "fa fa-file-upload" > < / span >
Import data from SPSS/SAS/Stata
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< li >
< a href = "../articles/EUCAST.html" >
< span class = "fa fa-exchange-alt" > < / span >
Apply EUCAST rules
< / a >
< / li >
< li >
2019-02-14 10:23:51 +01:00
< a href = "../reference/mo_property.html" >
2019-01-02 23:24:07 +01:00
< span class = "fa fa-bug" > < / span >
Get properties of a microorganism
< / a >
< / li >
< li >
2019-02-14 10:23:51 +01:00
< a href = "../reference/atc_property.html" >
2019-01-02 23:24:07 +01:00
< span class = "fa fa-capsules" > < / span >
Get properties of an antibiotic
< / a >
< / li >
< li >
< a href = "../articles/freq.html" >
< span class = "fa fa-sort-amount-down" > < / span >
Create frequency tables
< / a >
< / li >
< li >
< a href = "../articles/G_test.html" >
< span class = "fa fa-clipboard-check" > < / span >
Use the G-test
< / a >
< / li >
2019-01-11 20:37:23 +01:00
< li >
< a href = "../articles/benchmarks.html" >
< span class = "fa fa-shipping-fast" > < / span >
Other: benchmarks
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< / ul >
2018-12-29 22:24:19 +01:00
< / li >
< li >
< a href = "../reference/" >
< span class = "fa fa-book-open" > < / span >
Manual
< / a >
2018-12-23 21:26:21 +01:00
< / li >
< li >
2018-12-29 22:24:19 +01:00
< a href = "../authors.html" >
< span class = "fa fa-users" > < / span >
Authors
< / a >
2018-12-23 21:26:21 +01:00
< / li >
2018-12-29 22:24:19 +01:00
< li >
< a href = "../news/" >
< span class = "far fa far fa-newspaper" > < / span >
2018-12-23 21:26:21 +01:00
2018-12-29 22:24:19 +01:00
Changelog
2018-12-23 21:26:21 +01:00
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< / ul >
< ul class = "nav navbar-nav navbar-right" >
< li >
2018-12-29 22:24:19 +01:00
< a href = "https://gitlab.com/msberends/AMR" >
< span class = "fab fa fab fa-gitlab" > < / span >
Source Code
< / a >
2018-12-23 21:26:21 +01:00
< / li >
2019-01-02 23:24:07 +01:00
< li >
2018-12-29 22:24:19 +01:00
< a href = "../LICENSE-text.html" >
< span class = "fa fa-book" > < / span >
Licence
< / a >
< / li >
2018-12-23 21:26:21 +01:00
< / ul >
2018-12-29 22:24:19 +01:00
< form class = "navbar-form navbar-right" role = "search" >
< div class = "form-group" >
< input type = "search" class = "form-control" name = "search-input" id = "search-input" placeholder = "Search..." aria-label = "Search for..." autocomplete = "off" >
< / div >
< / form >
2018-12-23 21:26:21 +01:00
< / div > <!-- /.nav - collapse -->
< / div > <!-- /.container -->
< / div > <!-- /.navbar -->
< / header >
< div class = "row" >
< div class = "col-md-9 contents" >
< div class = "page-header" >
< h1 > Calculate resistance of isolates< / h1 >
< div class = "hidden name" > < code > portion.Rd< / code > < / div >
< / div >
< div class = "ref-description" >
2019-03-26 14:24:03 +01:00
< p > These functions can be used to calculate the (co-)resistance of microbial isolates (i.e. percentage of S, SI, I, IR or R). All functions support quasiquotation with pipes, can be used in < code > dplyr< / code > s < code > < a href = 'https://dplyr.tidyverse.org/reference/summarise.html' > summarise< / a > < / code > and support grouped variables, see < em > Examples< / em > .< / p >
2018-12-23 21:26:21 +01:00
< p > < code > portion_R< / code > and < code > portion_IR< / code > can be used to calculate resistance, < code > portion_S< / code > and < code > portion_SI< / code > can be used to calculate susceptibility.< br / > < / p >
< / div >
< pre class = "usage" > < span class = 'fu' > portion_R< / span > (< span class = 'no' > ...< / span > , < span class = 'kw' > minimum< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 30< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > ,
< span class = 'kw' > also_single_tested< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
< span class = 'fu' > portion_IR< / span > (< span class = 'no' > ...< / span > , < span class = 'kw' > minimum< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 30< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > ,
< span class = 'kw' > also_single_tested< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
< span class = 'fu' > portion_I< / span > (< span class = 'no' > ...< / span > , < span class = 'kw' > minimum< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 30< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > ,
< span class = 'kw' > also_single_tested< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
< span class = 'fu' > portion_SI< / span > (< span class = 'no' > ...< / span > , < span class = 'kw' > minimum< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 30< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > ,
< span class = 'kw' > also_single_tested< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
< span class = 'fu' > portion_S< / span > (< span class = 'no' > ...< / span > , < span class = 'kw' > minimum< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 30< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > ,
< span class = 'kw' > also_single_tested< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
< span class = 'fu' > portion_df< / span > (< span class = 'no' > data< / span > , < span class = 'kw' > translate_ab< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/options' > getOption< / a > < / span > (< span class = 'st' > "get_antibiotic_names"< / span > ,
< span class = 'st' > "official"< / span > ), < span class = 'kw' > minimum< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 30< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > , < span class = 'kw' > combine_IR< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )< / pre >
< h2 class = "hasAnchor" id = "arguments" > < a class = "anchor" href = "#arguments" > < / a > Arguments< / h2 >
< table class = "ref-arguments" >
< colgroup > < col class = "name" / > < col class = "desc" / > < / colgroup >
< tr >
< th > ...< / th >
2018-12-31 01:48:53 +01:00
< td > < p > one or more vectors (or columns) with antibiotic interpretations. They will be transformed internally with < code > < a href = 'as.rsi.html' > as.rsi< / a > < / code > if needed. Use multiple columns to calculate (the lack of) co-resistance: the probability where one of two drugs have a resistant or susceptible result. See Examples.< / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > minimum< / th >
2019-03-26 14:24:03 +01:00
< td > < p > the minimum allowed number of available (tested) isolates. Any isolate count lower than < code > minimum< / code > will return < code > NA< / code > with a warning. The default number of < code > 30< / code > isolates is advised by the Clinical and Laboratory Standards Institute (CLSI) as best practice, see Source.< / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > as_percent< / th >
< td > < p > a logical to indicate whether the output must be returned as a hundred fold with % sign (a character). A value of < code > 0.123456< / code > will then be returned as < code > "12.3%"< / code > .< / p > < / td >
< / tr >
< tr >
< th > also_single_tested< / th >
< td > < p > a logical to indicate whether (in combination therapies) also observations should be included where not all antibiotics were tested, but at least one of the tested antibiotics contains a target interpretation (e.g. S in case of < code > portion_S< / code > and R in case of < code > portion_R< / code > ). < strong > This would lead to selection bias in almost all cases.< / strong > < / p > < / td >
< / tr >
< tr >
< th > data< / th >
2018-12-31 01:48:53 +01:00
< td > < p > a < code > data.frame< / code > containing columns with class < code > rsi< / code > (see < code > < a href = 'as.rsi.html' > as.rsi< / a > < / code > )< / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > translate_ab< / th >
2018-12-31 01:48:53 +01:00
< td > < p > a column name of the < code > < a href = 'antibiotics.html' > antibiotics< / a > < / code > data set to translate the antibiotic abbreviations to, using < code > < a href = 'abname.html' > abname< / a > < / code > . This can be set with < code > < a href = 'https://www.rdocumentation.org/packages/base/topics/options' > getOption< / a > ("get_antibiotic_names")< / code > .< / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > combine_IR< / th >
< td > < p > a logical to indicate whether all values of I and R must be merged into one, so the output only consists of S vs. IR (susceptible vs. non-susceptible)< / p > < / td >
< / tr >
< / table >
< h2 class = "hasAnchor" id = "source" > < a class = "anchor" href = "#source" > < / a > Source< / h2 >
< p > < strong > M39 Analysis and Presentation of Cumulative Antimicrobial Susceptibility Test Data, 4th Edition< / strong > , 2014, < em > Clinical and Laboratory Standards Institute (CLSI)< / em > . < a href = 'https://clsi.org/standards/products/microbiology/documents/m39/' > https://clsi.org/standards/products/microbiology/documents/m39/< / a > .< / p >
< p > Wickham H. < strong > Tidy Data.< / strong > The Journal of Statistical Software, vol. 59, 2014. < a href = 'http://vita.had.co.nz/papers/tidy-data.html' > http://vita.had.co.nz/papers/tidy-data.html< / a > < / p >
< h2 class = "hasAnchor" id = "value" > < a class = "anchor" href = "#value" > < / a > Value< / h2 >
< p > Double or, when < code > as_percent = TRUE< / code > , a character.< / p >
< h2 class = "hasAnchor" id = "details" > < a class = "anchor" href = "#details" > < / a > Details< / h2 >
2018-12-31 01:48:53 +01:00
< p > < strong > Remember that you should filter your table to let it contain only first isolates!< / strong > Use < code > < a href = 'first_isolate.html' > first_isolate< / a > < / code > to determine them in your data set.< / p >
< p > These functions are not meant to count isolates, but to calculate the portion of resistance/susceptibility. Use the < code > < a href = 'count.html' > count< / a > < / code > functions to count isolates. < em > Low counts can infuence the outcome - these < code > portion< / code > functions may camouflage this, since they only return the portion albeit being dependent on the < code > minimum< / code > parameter.< / em > < / p >
< p > < code > portion_df< / code > takes any variable from < code > data< / code > that has an < code > "rsi"< / code > class (created with < code > < a href = 'as.rsi.html' > as.rsi< / a > < / code > ) and calculates the portions R, I and S. The resulting < em > tidy data< / em > (see Source) < code > data.frame< / code > will have three rows (S/I/R) and a column for each variable with class < code > "rsi"< / code > .< / p >
< p > The old < code > < a href = 'rsi.html' > rsi< / a > < / code > function is still available for backwards compatibility but is deprecated.
2018-12-23 21:26:21 +01:00
< br / > < br / >
To calculate the probability (< em > p< / em > ) of susceptibility of one antibiotic, we use this formula:
2019-03-26 14:24:03 +01:00
< div style = "text-align: center;" > < img src = 'figures/combi_therapy_2.png' alt = '' / > < / div >
2018-12-23 21:26:21 +01:00
To calculate the probability (< em > p< / em > ) of susceptibility of more antibiotics (i.e. combination therapy), we need to check whether one of them has a susceptible result (as numerator) and count all cases where all antibiotics were tested (as denominator). < br / >
< br / >
For two antibiotics:
2019-03-26 14:24:03 +01:00
< div style = "text-align: center;" > < img src = 'figures/combi_therapy_2.png' alt = '' / > < / div >
2018-12-23 21:26:21 +01:00
< br / >
For three antibiotics:
2019-03-26 14:24:03 +01:00
< div style = "text-align: center;" > < img src = 'figures/combi_therapy_2.png' alt = '' / > < / div >
2018-12-23 21:26:21 +01:00
< br / >
And so on.< / p >
2019-01-02 23:24:07 +01:00
< h2 class = "hasAnchor" id = "read-more-on-our-website-" > < a class = "anchor" href = "#read-more-on-our-website-" > < / a > Read more on our website!< / h2 >
2019-02-21 18:55:52 +01:00
< p > On our website < a href = 'https://msberends.gitlab.io/AMR' > https://msberends.gitlab.io/AMR< / a > you can find < a href = 'https://msberends.gitlab.io/AMR/articles/AMR.html' > a comprehensive tutorial< / a > about how to conduct AMR analysis, the < a href = 'https://msberends.gitlab.io/AMR/reference' > complete documentation of all functions< / a > (which reads a lot easier than here in R) and < a href = 'https://msberends.gitlab.io/AMR/articles/WHONET.html' > an example analysis using WHONET data< / a > .< / p >
2019-01-02 23:24:07 +01:00
2018-12-23 21:26:21 +01:00
< h2 class = "hasAnchor" id = "see-also" > < a class = "anchor" href = "#see-also" > < / a > See also< / h2 >
2018-12-31 01:48:53 +01:00
< div class = 'dont-index' > < p > < code > < a href = 'count.html' > count< / a > _*< / code > to count resistant and susceptible isolates.< / p > < / div >
2018-12-23 21:26:21 +01:00
< h2 class = "hasAnchor" id = "examples" > < a class = "anchor" href = "#examples" > < / a > Examples< / h2 >
2019-01-02 23:24:07 +01:00
< pre class = "examples" > < span class = 'co' > # NOT RUN {< / span >
< span class = 'co' > # septic_patients is a data set available in the AMR package. It is true, genuine data.< / span >
?< span class = 'no' > septic_patients< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # Calculate resistance< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > portion_R< / span > (< span class = 'no' > septic_patients< / span > $< span class = 'no' > amox< / span > )
< span class = 'fu' > portion_IR< / span > (< span class = 'no' > septic_patients< / span > $< span class = 'no' > amox< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'co' > # Or susceptibility< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > portion_S< / span > (< span class = 'no' > septic_patients< / span > $< span class = 'no' > amox< / span > )
< span class = 'fu' > portion_SI< / span > (< span class = 'no' > septic_patients< / span > $< span class = 'no' > amox< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'co' > # Do the above with pipes:< / span >
< span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/library' > library< / a > < / span > (< span class = 'no' > dplyr< / span > )
2019-01-02 23:24:07 +01:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_R< / span > (< span class = 'no' > amox< / span > )
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_IR< / span > (< span class = 'no' > amox< / span > )
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > amox< / span > )
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_SI< / span > (< span class = 'no' > amox< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'no' > hospital_id< / span > ) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/summarise.html' > summarise< / a > < / span > (< span class = 'kw' > p< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > cipr< / span > ),
2019-01-02 23:24:07 +01:00
< span class = 'kw' > n< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > n_rsi< / a > < / span > (< span class = 'no' > cipr< / span > )) < span class = 'co' > # n_rsi works like n_distinct in dplyr< / span >
2018-12-23 21:26:21 +01:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'no' > hospital_id< / span > ) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/summarise.html' > summarise< / a > < / span > (< span class = 'kw' > R< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_R< / span > (< span class = 'no' > cipr< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > ),
2018-12-23 21:26:21 +01:00
< span class = 'kw' > I< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_I< / span > (< span class = 'no' > cipr< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > ),
< span class = 'kw' > S< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > cipr< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > ),
2019-03-26 14:24:03 +01:00
< span class = 'kw' > n1< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > cipr< / span > ), < span class = 'co' > # the actual total; sum of all three< / span >
< span class = 'kw' > n2< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > n_rsi< / a > < / span > (< span class = 'no' > cipr< / span > ), < span class = 'co' > # same - analogous to n_distinct< / span >
< span class = 'kw' > total< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/n.html' > n< / a > < / span > ()) < span class = 'co' > # NOT the number of tested isolates!< / span >
2019-01-02 23:24:07 +01:00
2018-12-23 21:26:21 +01:00
< span class = 'co' > # Calculate co-resistance between amoxicillin/clav acid and gentamicin,< / span >
< span class = 'co' > # so we can see that combination therapy does a lot more than mono therapy:< / span >
2019-04-05 18:47:39 +02:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > amcl< / span > ) < span class = 'co' > # S = 71.4%< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > amcl< / span > ) < span class = 'co' > # n = 1879< / span >
2019-01-02 23:24:07 +01:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > gent< / span > ) < span class = 'co' > # S = 74.0%< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > gent< / span > ) < span class = 'co' > # n = 1855< / span >
2019-04-05 18:47:39 +02:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > amcl< / span > , < span class = 'no' > gent< / span > ) < span class = 'co' > # S = 92.3%< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > amcl< / span > , < span class = 'no' > gent< / span > ) < span class = 'co' > # n = 1798< / span >
2019-01-02 23:24:07 +01:00
2018-12-23 21:26:21 +01:00
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'no' > hospital_id< / span > ) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/summarise.html' > summarise< / a > < / span > (< span class = 'kw' > cipro_p< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > cipr< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > ),
2018-12-31 01:48:53 +01:00
< span class = 'kw' > cipro_n< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > cipr< / span > ),
2018-12-23 21:26:21 +01:00
< span class = 'kw' > genta_p< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > gent< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > ),
2018-12-31 01:48:53 +01:00
< span class = 'kw' > genta_n< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > gent< / span > ),
2018-12-23 21:26:21 +01:00
< span class = 'kw' > combination_p< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > cipr< / span > , < span class = 'no' > gent< / span > , < span class = 'kw' > as_percent< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > ),
2019-01-02 23:24:07 +01:00
< span class = 'kw' > combination_n< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > cipr< / span > , < span class = 'no' > gent< / span > ))
2018-12-23 21:26:21 +01:00
< span class = 'co' > # Get portions S/I/R immediately of all rsi columns< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > portion_df< / span > (< span class = 'kw' > translate< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'co' > # It also supports grouping variables< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > hospital_id< / span > , < span class = 'no' > amox< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'no' > hospital_id< / span > ) < span class = 'kw' > %> %< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > portion_df< / span > (< span class = 'kw' > translate< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > )
< span class = 'co' > # }< / span > < span class = 'co' > # NOT RUN {< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # calculate current empiric combination therapy of Helicobacter gastritis:< / span >
< span class = 'no' > my_table< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/filter.html' > filter< / a > < / span > (< span class = 'no' > first_isolate< / span > < span class = 'kw' > ==< / span > < span class = 'fl' > TRUE< / span > ,
2018-12-23 21:26:21 +01:00
< span class = 'no' > genus< / span > < span class = 'kw' > ==< / span > < span class = 'st' > "Helicobacter"< / span > ) < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/summarise.html' > summarise< / a > < / span > (< span class = 'kw' > p< / span > < span class = 'kw' > =< / span > < span class = 'fu' > portion_S< / span > (< span class = 'no' > amox< / span > , < span class = 'no' > metr< / span > ), < span class = 'co' > # amoxicillin with metronidazole< / span >
2018-12-31 01:48:53 +01:00
< span class = 'kw' > n< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'count.html' > count_all< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > metr< / span > ))
2018-12-23 21:26:21 +01:00
< span class = 'co' > # }< / span > < / pre >
< / div >
< div class = "col-md-3 hidden-xs hidden-sm" id = "sidebar" >
< h2 > Contents< / h2 >
< ul class = "nav nav-pills nav-stacked" >
< li > < a href = "#arguments" > Arguments< / a > < / li >
< li > < a href = "#source" > Source< / a > < / li >
< li > < a href = "#value" > Value< / a > < / li >
< li > < a href = "#details" > Details< / a > < / li >
2019-01-02 23:24:07 +01:00
< li > < a href = "#read-more-on-our-website-" > Read more on our website!< / a > < / li >
2018-12-23 21:26:21 +01:00
< li > < a href = "#see-also" > See also< / a > < / li >
< li > < a href = "#examples" > Examples< / a > < / li >
< / ul >
< / div >
< / div >
< footer >
< div class = "copyright" >
2018-12-29 22:24:19 +01:00
< p > Developed by < a href = 'https://www.rug.nl/staff/m.s.berends/' > Matthijs S. Berends< / a > , < a href = 'https://www.rug.nl/staff/c.f.luz/' > Christian F. Luz< / a > , < a href = 'https://www.rug.nl/staff/c.glasner/' > Corinna Glasner< / a > , < a href = 'https://www.rug.nl/staff/a.w.friedrich/' > Alex W. Friedrich< / a > , < a href = 'https://www.rug.nl/staff/b.sinha/' > Bhanu N. M. Sinha< / a > .< / p >
2018-12-23 21:26:21 +01:00
< / div >
< div class = "pkgdown" >
< p > Site built with < a href = "https://pkgdown.r-lib.org/" > pkgdown< / a > 1.3.0.< / p >
< / div >
< / footer >
< / div >
2018-12-29 22:24:19 +01:00
< script src = "https://cdnjs.cloudflare.com/ajax/libs/docsearch.js/2.6.1/docsearch.min.js" integrity = "sha256-GKvGqXDznoRYHCwKXGnuchvKSwmx9SRMrZOTh2g4Sb0=" crossorigin = "anonymous" > < / script >
< script >
docsearch({
apiKey: 'f737050abfd4d726c63938e18f8c496e',
indexName: 'amr',
inputSelector: 'input#search-input.form-control',
transformData: function(hits) {
return hits.map(function (hit) {
hit.url = updateHitURL(hit);
return hit;
});
}
});
< / script >
2018-12-23 21:26:21 +01:00
< / body >
< / html >
