function review

This commit is contained in:
AG Damsbo 2022-10-11 08:25:39 +02:00
parent 5324ebaa99
commit 0c0387d37c
13 changed files with 277 additions and 52 deletions

View File

@ -1,13 +1,13 @@
# Generated by roxygen2: do not edit by hand
export(age_calc)
export(ci_plot)
export(cpr_check)
export(cpr_dob)
export(cpr_female)
export(generic_stroke)
export(plot_olr)
export(quantile_cut)
import(MASS)
import(ggplot2)
import(stats)
importFrom(MASS,polr)

62
R/ci_plot.R Normal file
View File

@ -0,0 +1,62 @@
utils::globalVariables(c("vname"))
#' Confidence interval plot with point estimate
#'
#' Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
#' Title and axis labels can be added to the ggplot afterwards.
#'
#' @param ds data set
#' @param x text string of main exposure variable
#' @param y text string of outcome variable
#' @param vars variables for multivariate analysis.
#' @param dec Decimals in labels
#' @param lbls Labels for variable names
#' @param title Plot title. Can be specified later.
#'
#' @return ggplot element
#' @export
#'
#' @import ggplot2
#' @importFrom MASS polr
#'
#' @examples
#' data(talos)
#' talos[,"mrs_1"]<-factor(talos[,"mrs_1"],ordered=TRUE)
#' talos$bin <- factor(sample(1:2, size = nrow(talos), replace = TRUE))
#' ci_plot(ds = talos, x = "rtreat", y = "mrs_1", vars = c("hypertension","diabetes"))
ci_plot<- function(ds, x, y, vars, dec=3, lbls=NULL, title=NULL){
if (is.factor(ds[y])) stop("Outcome has to be factor")
if (length(levels(ds[,y])) > 2){
m <- MASS::polr(as.formula(paste0(y,"~",x,"+.")), data=ds[,unique(c(x, y, vars))], Hess=TRUE, method="logistic")
if (is.null(title)) title <- "Ordinal logistic regression"
}
if (length(levels(ds[,y])) == 2){
m <- lm(as.formula(paste0(y,"~",x,"+.")), data=ds[,unique(c(x, y, vars))])
if (is.null(title)) title <- "Binary logistic regression"
}
odds <- data.frame(cbind(exp(coef(m)), exp(confint(m))))
names(odds)<-c("or", "lo", "up")
rodds<-round(odds, digits = dec)
if (is.null(lbls)){
odds$vname<-paste0(row.names(odds)," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
} else {
odds$vname<-paste0(lbls," \n",paste0(rodds$or," [",rodds$lo,":",rodds$up,"]"))
}
odds$ord<-c(nrow(odds):1)
ggplot2::ggplot(data = odds, mapping = ggplot2::aes(y = or, x = reorder(vname,ord))) +
ggplot2::geom_point() +
ggplot2::geom_errorbar(mapping = ggplot2::aes(ymin=lo, ymax=up), width = 0.2) +
ggplot2::scale_y_log10() +
ggplot2::geom_hline(yintercept = 1, linetype=2) +
ggplot2::labs(title=title) +
ggplot2::coord_flip()
}

View File

@ -16,7 +16,9 @@ utils::globalVariables(c("or","ord","lo","up"))
#' @return gg object
#' @keywords forest plot
#'
#' @import ggplot2 stats MASS
#' @import ggplot2 stats
#'
#' @importFrom MASS polr
#'
#' @export
#'

View File

@ -2,5 +2,5 @@ pandoc: 2.19.2
pkgdown: 2.0.6
pkgdown_sha: ~
articles: {}
last_built: 2022-09-30T12:37Z
last_built: 2022-10-11T06:15Z

Binary file not shown.

After

Width:  |  Height:  |  Size: 47 KiB

117
docs/reference/ci_plot.html Normal file
View File

@ -0,0 +1,117 @@
<!DOCTYPE html>
<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content='Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
Title and axis labels can be added to the ggplot afterwards.'><title>Confidence interval plot with point estimate — ci_plot • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.1.3/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.1.3/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.rawgit.com/afeld/bootstrap-toc/v1.0.1/dist/bootstrap-toc.min.js"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Confidence interval plot with point estimate — ci_plot"><meta property="og:description" content='Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
Title and axis labels can be added to the ggplot afterwards.'><!-- 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>
<a href="#main" class="visually-hidden-focusable">Skip to contents</a>
<nav class="navbar fixed-top navbar-light navbar-expand-lg bg-light"><div class="container">
<a class="navbar-brand me-2" href="../index.html">stRoke</a>
<small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.22.9.5</small>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div id="navbar" class="collapse navbar-collapse ms-3">
<ul class="navbar-nav me-auto"><li class="active nav-item">
<a class="nav-link" href="../reference/index.html">Reference</a>
</li>
</ul><form class="form-inline my-2 my-lg-0" role="search">
<input type="search" class="form-control me-sm-2" aria-label="Toggle navigation" name="search-input" data-search-index="../search.json" id="search-input" placeholder="Search for" autocomplete="off"></form>
<ul class="navbar-nav"></ul></div>
</div>
</nav><div class="container template-reference-topic">
<div class="row">
<main id="main" class="col-md-9"><div class="page-header">
<img src="" class="logo" alt=""><h1>Confidence interval plot with point estimate</h1>
<div class="d-none name"><code>ci_plot.Rd</code></div>
</div>
<div class="ref-description section level2">
<p>Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
Title and axis labels can be added to the ggplot afterwards.</p>
</div>
<div class="section level2">
<h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
<div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">ci_plot</span><span class="op">(</span><span class="va">ds</span>, <span class="va">x</span>, <span class="va">y</span>, <span class="va">vars</span>, dec <span class="op">=</span> <span class="fl">3</span>, lbls <span class="op">=</span> <span class="cn">NULL</span>, title <span class="op">=</span> <span class="cn">NULL</span><span class="op">)</span></span></code></pre></div>
</div>
<div class="section level2">
<h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
<dl><dt>ds</dt>
<dd><p>data set</p></dd>
<dt>x</dt>
<dd><p>text string of main exposure variable</p></dd>
<dt>y</dt>
<dd><p>text string of outcome variable</p></dd>
<dt>vars</dt>
<dd><p>variables for multivariate analysis.</p></dd>
<dt>dec</dt>
<dd><p>Decimals in labels</p></dd>
<dt>lbls</dt>
<dd><p>Labels for variable names</p></dd>
<dt>title</dt>
<dd><p>Plot title. Can be specified later.</p></dd>
</dl></div>
<div class="section level2">
<h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
<p>ggplot element</p>
</div>
<div class="section level2">
<h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
<div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/utils/data.html" class="external-link">data</a></span><span class="op">(</span><span class="va">talos</span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="va">talos</span><span class="op">[</span>,<span class="st">"mrs_1"</span><span class="op">]</span><span class="op">&lt;-</span><span class="fu"><a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a></span><span class="op">(</span><span class="va">talos</span><span class="op">[</span>,<span class="st">"mrs_1"</span><span class="op">]</span>,ordered<span class="op">=</span><span class="cn">TRUE</span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="va">talos</span><span class="op">$</span><span class="va">bin</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/sample.html" class="external-link">sample</a></span><span class="op">(</span><span class="fl">1</span><span class="op">:</span><span class="fl">2</span>, size <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/nrow.html" class="external-link">nrow</a></span><span class="op">(</span><span class="va">talos</span><span class="op">)</span>, replace <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="fu">ci_plot</span><span class="op">(</span>ds <span class="op">=</span> <span class="va">talos</span>, x <span class="op">=</span> <span class="st">"rtreat"</span>, y <span class="op">=</span> <span class="st">"mrs_1"</span>, vars <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"hypertension"</span>,<span class="st">"diabetes"</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-msg co"><span class="r-pr">#&gt;</span> Waiting for profiling to be done...</span>
<span class="r-plt img"><img src="ci_plot-1.png" alt="" width="700" height="433"></span>
</code></pre></div>
</div>
</main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
</nav></aside></div>
<footer><div class="pkgdown-footer-left">
<p></p><p>Developed by Andreas Gammelgaard Damsbo.</p>
</div>
<div class="pkgdown-footer-right">
<p></p><p>Site built with <a href="https://pkgdown.r-lib.org/" class="external-link">pkgdown</a> 2.0.6.</p>
</div>
</footer></div>
</body></html>

View File

@ -86,12 +86,12 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-in"><span><span class="fu">generic_stroke</span><span class="op">(</span><span class="va">talos</span>, <span class="st">"rtreat"</span>, <span class="st">"mrs_6"</span>, variables <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"hypertension"</span>,<span class="st">"diabetes"</span>,<span class="st">"civil"</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-msg co"><span class="r-pr">#&gt;</span> Waiting for profiling to be done...</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> $`Table 1`</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;div id="iwixheptjq" style="overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;div id="bemvidzvej" style="overflow-x:auto;overflow-y:auto;width:auto;height:auto;"&gt;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;style&gt;html {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Helvetica Neue', 'Fira Sans', 'Droid Sans', Arial, sans-serif;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_table {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_table {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> display: table;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-collapse: collapse;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> margin-left: auto;</span>
@ -116,7 +116,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-left-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-align: center;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-color: #FFFFFF;</span>
@ -128,7 +128,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-right-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_title {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_title {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 125%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-weight: initial;</span>
@ -140,7 +140,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-width: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_subtitle {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_subtitle {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 85%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-weight: initial;</span>
@ -152,13 +152,13 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-width: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_bottom_border {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_bottom_border {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-style: solid;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-width: 2px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_col_headings {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_col_headings {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-style: solid;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-width: 2px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-color: #D3D3D3;</span>
@ -173,7 +173,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-right-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_col_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_col_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 100%;</span>
@ -193,7 +193,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> overflow-x: hidden;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_column_spanner_outer {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_column_spanner_outer {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 100%;</span>
@ -205,15 +205,15 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 4px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_column_spanner_outer:first-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_column_spanner_outer:first-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-left: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_column_spanner_outer:last-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_column_spanner_outer:last-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_column_spanner {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_column_spanner {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-style: solid;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-width: 2px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-color: #D3D3D3;</span>
@ -225,7 +225,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> width: 100%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_group_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_group_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-top: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-bottom: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-left: 5px;</span>
@ -250,7 +250,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> vertical-align: middle;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_empty_group_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_empty_group_heading {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding: 0.5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
@ -265,15 +265,15 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> vertical-align: middle;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_from_md &gt; :first-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_from_md &gt; :first-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> margin-top: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_from_md &gt; :last-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_from_md &gt; :last-child {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> margin-bottom: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-top: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-bottom: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-left: 5px;</span>
@ -292,7 +292,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> overflow-x: hidden;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_stub {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_stub {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 100%;</span>
@ -305,7 +305,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_stub_row_group {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_stub_row_group {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 100%;</span>
@ -319,11 +319,11 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> vertical-align: top;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_row_group_first td {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_row_group_first td {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-width: 2px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-transform: inherit;</span>
@ -333,16 +333,16 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_first_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_first_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-style: solid;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_first_summary_row.thick {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_first_summary_row.thick {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-width: 2px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_last_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_last_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-top: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-bottom: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-left: 5px;</span>
@ -352,7 +352,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_grand_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_grand_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-transform: inherit;</span>
@ -362,7 +362,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_first_grand_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_first_grand_summary_row {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-top: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-bottom: 8px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-left: 5px;</span>
@ -372,11 +372,11 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_striped {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_striped {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: rgba(128, 128, 128, 0.05);</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_table_body {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_table_body {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-style: solid;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-width: 2px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-top-color: #D3D3D3;</span>
@ -385,7 +385,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_footnotes {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_footnotes {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-style: none;</span>
@ -399,7 +399,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-right-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_footnote {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_footnote {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> margin: 0px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 90%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-left: 4px;</span>
@ -408,7 +408,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_sourcenotes {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_sourcenotes {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> color: #333333;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> background-color: #FFFFFF;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-bottom-style: none;</span>
@ -422,7 +422,7 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> border-right-color: #D3D3D3;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_sourcenote {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_sourcenote {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 90%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-top: 4px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-bottom: 4px;</span>
@ -430,64 +430,64 @@ To dos: modify grottaBar and include as own function.</p>
<span class="r-out co"><span class="r-pr">#&gt;</span> padding-right: 5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_left {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_left {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-align: left;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_center {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_center {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-align: center;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_right {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_right {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-align: right;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-variant-numeric: tabular-nums;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_font_normal {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_font_normal {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-weight: normal;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_font_bold {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_font_bold {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-weight: bold;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_font_italic {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_font_italic {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-style: italic;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_super {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_super {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 65%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_footnote_marks {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_footnote_marks {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-style: italic;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-weight: normal;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 75%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> vertical-align: 0.4em;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_asterisk {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_asterisk {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> font-size: 100%;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> vertical-align: 0;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_indent_1 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_indent_1 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-indent: 5px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_indent_2 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_indent_2 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-indent: 10px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_indent_3 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_indent_3 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-indent: 15px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_indent_4 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_indent_4 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-indent: 20px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #iwixheptjq .gt_indent_5 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> #bemvidzvej .gt_indent_5 {</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> text-indent: 25px;</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> }</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> &lt;/style&gt;</span>

View File

@ -52,6 +52,11 @@
<dd>Calculating age from date of birth</dd>
</dl><dl><dt>
<code><a href="ci_plot.html">ci_plot()</a></code>
</dt>
<dd>Confidence interval plot with point estimate</dd>
</dl><dl><dt>
<code><a href="cpr_check.html">cpr_check()</a></code>
</dt>
<dd>CPR check</dd>

Binary file not shown.

Before

Width:  |  Height:  |  Size: 91 KiB

After

Width:  |  Height:  |  Size: 85 KiB

View File

@ -101,8 +101,8 @@
<span class="r-in"><span><span class="va">x</span> <span class="op">&lt;-</span> <span class="fl">1</span><span class="op">:</span><span class="fl">450</span></span></span>
<span class="r-in"><span><span class="va">y</span> <span class="op">&lt;-</span> <span class="fl">6</span><span class="op">:</span><span class="fl">750</span></span></span>
<span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/summary.html" class="external-link">summary</a></span><span class="op">(</span><span class="fu">quantile_cut</span><span class="op">(</span><span class="va">aa</span>,groups<span class="op">=</span><span class="fl">4</span>,detail.list<span class="op">=</span><span class="cn">FALSE</span><span class="op">)</span><span class="op">)</span> <span class="co">## Cuts quartiles</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> [1,256] (256,486] (486,746] (746,1e+03] </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> 500 500 500 500 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> [1,259] (259,496] (496,747] (747,1e+03] </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> 500 501 500 499 </span>
</code></pre></div>
</div>
</main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>

File diff suppressed because one or more lines are too long

View File

@ -15,6 +15,9 @@
<url>
<loc>/reference/age_calc.html</loc>
</url>
<url>
<loc>/reference/ci_plot.html</loc>
</url>
<url>
<loc>/reference/cpr_check.html</loc>
</url>

36
man/ci_plot.Rd Normal file
View File

@ -0,0 +1,36 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/ci_plot.R
\name{ci_plot}
\alias{ci_plot}
\title{Confidence interval plot with point estimate}
\usage{
ci_plot(ds, x, y, vars, dec = 3, lbls = NULL, title = NULL)
}
\arguments{
\item{ds}{data set}
\item{x}{text string of main exposure variable}
\item{y}{text string of outcome variable}
\item{vars}{variables for multivariate analysis.}
\item{dec}{Decimals in labels}
\item{lbls}{Labels for variable names}
\item{title}{Plot title. Can be specified later.}
}
\value{
ggplot element
}
\description{
Horizontal forest plot of point estimate with confidence intervals. Includes dichotomous or olr, depending on number of levels in "x".
Title and axis labels can be added to the ggplot afterwards.
}
\examples{
data(talos)
talos[,"mrs_1"]<-factor(talos[,"mrs_1"],ordered=TRUE)
talos$bin <- factor(sample(1:2, size = nrow(talos), replace = TRUE))
ci_plot(ds = talos, x = "rtreat", y = "mrs_1", vars = c("hypertension","diabetes"))
}