mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-24 05:41:53 +01:00
cpr_female()
This commit is contained in:
AG Damsbo
parent
86e04ad78e
commit
1220391510
@ -3,3 +3,5 @@
|
|||||||
export(age_calc)
|
export(age_calc)
|
||||||
export(cpr_check)
|
export(cpr_check)
|
||||||
export(cpr_dob)
|
export(cpr_dob)
|
||||||
|
export(cpr_female)
|
||||||
|
export(quantile_cut)
|
||||||
|
|||||||
@ -35,7 +35,7 @@ cpr_check<-function(cpr){
|
|||||||
p9<-as.integer(substr(x,10,10))
|
p9<-as.integer(substr(x,10,10))
|
||||||
p10<-as.integer(substr(x,11,11))
|
p10<-as.integer(substr(x,11,11))
|
||||||
|
|
||||||
v[i] <- ifelse((p1*4+p2*3+p3*2+p4*7+p5*6+p6*5+p7*4+p8*3+p9*2+p10) %% 11 == 0,TRUE,FALSE)
|
v[i] <- if((p1*4+p2*3+p3*2+p4*7+p5*6+p6*5+p7*4+p8*3+p9*2+p10) %% 11 == 0) TRUE else FALSE
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -109,3 +109,20 @@ cpr_dob<-function(cpr){
|
|||||||
as.Date(dobs, origin = "1970-01-01")
|
as.Date(dobs, origin = "1970-01-01")
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#' Determine female sex from CPR
|
||||||
|
#'
|
||||||
|
#' Just checking if last number of a string is equal or not.
|
||||||
|
#' @param cpr cpr-numbers as ddmmyy[-.]xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.
|
||||||
|
#' @keywords cpr
|
||||||
|
#'
|
||||||
|
#' @return Logical vector
|
||||||
|
#' @export
|
||||||
|
#' @examples
|
||||||
|
#' cpr_female("231045-0637")
|
||||||
|
cpr_female<-function(cpr){
|
||||||
|
##Input as vector of DK cpr numbers, format "ddmmyy-xxxx", returns sex according to cpr
|
||||||
|
x <- nchar(as.character(cpr)) # Formats as character to avoid confusions
|
||||||
|
|
||||||
|
as.logical(as.integer(substr(cpr, start = x, stop = x)) %% 2)
|
||||||
|
}
|
||||||
|
|||||||
36
R/quantile_cut.R
Normal file
36
R/quantile_cut.R
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
#' Easy function for splitting numeric variable in quantiles
|
||||||
|
#'
|
||||||
|
#' Using base/stats functions cut() and quantile().
|
||||||
|
#' @param x Variable to cut.
|
||||||
|
#' @param groups Number of groups.
|
||||||
|
#' @param y alternative vector to draw quantile cuts from. Limits has to be within x. Default is NULL.
|
||||||
|
#' @param na.rm Remove NA's. Default is TRUE.
|
||||||
|
#' @param group.names Names of groups to split to. Default is NULL, giving intervals as names.
|
||||||
|
#' @param ordered.f Set resulting vector as ordered. Default is FALSE.
|
||||||
|
#' @param inc.outs Flag to include min(x) and max(x) as boarders in case of y!=NULL.
|
||||||
|
#' @keywords quantile
|
||||||
|
#' @export
|
||||||
|
#' @examples
|
||||||
|
#' aa <- as.numeric(sample(1:1000,2000,replace = TRUE))
|
||||||
|
#' x <- 1:450
|
||||||
|
#' y <- 6:750
|
||||||
|
#' summary(quantile_cut(aa,groups=4)) ## Cuts quartiles
|
||||||
|
|
||||||
|
quantile_cut<-function (x, groups,y=NULL, na.rm = TRUE, group.names = NULL, ordered.f = FALSE, inc.outs=FALSE,detail.lst=TRUE)
|
||||||
|
{
|
||||||
|
if (!is.null(y)){
|
||||||
|
q<-quantile(y, probs = seq(0, 1, 1/groups), na.rm = na.rm, names = TRUE, type = 7)
|
||||||
|
if (inc.outs){ # Setting cut boardes to include outliers in x compared to y.
|
||||||
|
q[1]<-min(x,na.rm = TRUE)
|
||||||
|
q[length(q)]<-max(x,na.rm = TRUE)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (is.null(y)){
|
||||||
|
q<-quantile(x, probs = seq(0, 1, 1/groups), na.rm = na.rm, names = TRUE, type = 7)
|
||||||
|
|
||||||
|
}
|
||||||
|
d<-cut(x, q, include.lowest = TRUE, labels = group.names,
|
||||||
|
ordered_result = ordered.f)
|
||||||
|
if (detail.lst){return(list(d,q))} else {return(d)}
|
||||||
|
|
||||||
|
}
|
||||||
@ -2,5 +2,5 @@ pandoc: 2.19.2
|
|||||||
pkgdown: 2.0.6
|
pkgdown: 2.0.6
|
||||||
pkgdown_sha: ~
|
pkgdown_sha: ~
|
||||||
articles: {}
|
articles: {}
|
||||||
last_built: 2022-09-22T13:21Z
|
last_built: 2022-09-22T13:44Z
|
||||||
|
|
||||||
|
|||||||
86
docs/reference/cpr_female.html
Normal file
86
docs/reference/cpr_female.html
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
<!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="Just checking if last number of a string is equal or not."><title>Determine female sex from CPR — cpr_female • 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="Determine female sex from CPR — cpr_female"><meta property="og:description" content="Just checking if last number of a string is equal or not."><!-- 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.2</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>Determine female sex from CPR</h1>
|
||||||
|
|
||||||
|
<div class="d-none name"><code>cpr_female.Rd</code></div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="ref-description section level2">
|
||||||
|
<p>Just checking if last number of a string is equal or not.</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">cpr_female</span><span class="op">(</span><span class="va">cpr</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>cpr</dt>
|
||||||
|
<dd><p>cpr-numbers as ddmmyy-.xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.</p></dd>
|
||||||
|
|
||||||
|
</dl></div>
|
||||||
|
<div class="section level2">
|
||||||
|
<h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
|
||||||
|
|
||||||
|
|
||||||
|
<p>Logical vector</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">cpr_female</span><span class="op">(</span><span class="st">"231045-0637"</span><span class="op">)</span></span></span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> [1] TRUE</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>
|
||||||
|
|
||||||
@ -60,6 +60,16 @@
|
|||||||
<code><a href="cpr_dob.html">cpr_dob()</a></code>
|
<code><a href="cpr_dob.html">cpr_dob()</a></code>
|
||||||
</dt>
|
</dt>
|
||||||
<dd>Extracting date of birth from CPR</dd>
|
<dd>Extracting date of birth from CPR</dd>
|
||||||
|
</dl><dl><dt>
|
||||||
|
|
||||||
|
<code><a href="cpr_female.html">cpr_female()</a></code>
|
||||||
|
</dt>
|
||||||
|
<dd>Determine female sex from CPR</dd>
|
||||||
|
</dl><dl><dt>
|
||||||
|
|
||||||
|
<code><a href="quantile_cut.html">quantile_cut()</a></code>
|
||||||
|
</dt>
|
||||||
|
<dd>Easy function for splitting numeric variable in quantiles</dd>
|
||||||
</dl></div>
|
</dl></div>
|
||||||
</main></div>
|
</main></div>
|
||||||
|
|
||||||
|
|||||||
118
docs/reference/quantile_cut.html
Normal file
118
docs/reference/quantile_cut.html
Normal file
@ -0,0 +1,118 @@
|
|||||||
|
<!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="Using base/stats functions cut() and quantile()."><title>Easy function for splitting numeric variable in quantiles — quantile_cut • 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="Easy function for splitting numeric variable in quantiles — quantile_cut"><meta property="og:description" content="Using base/stats functions cut() and quantile()."><!-- 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.2</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>Easy function for splitting numeric variable in quantiles</h1>
|
||||||
|
|
||||||
|
<div class="d-none name"><code>quantile_cut.Rd</code></div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="ref-description section level2">
|
||||||
|
<p>Using base/stats functions cut() and quantile().</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">quantile_cut</span><span class="op">(</span></span>
|
||||||
|
<span> <span class="va">x</span>,</span>
|
||||||
|
<span> <span class="va">groups</span>,</span>
|
||||||
|
<span> y <span class="op">=</span> <span class="cn">NULL</span>,</span>
|
||||||
|
<span> na.rm <span class="op">=</span> <span class="cn">TRUE</span>,</span>
|
||||||
|
<span> group.names <span class="op">=</span> <span class="cn">NULL</span>,</span>
|
||||||
|
<span> ordered.f <span class="op">=</span> <span class="cn">FALSE</span>,</span>
|
||||||
|
<span> inc.outs <span class="op">=</span> <span class="cn">FALSE</span>,</span>
|
||||||
|
<span> detail.lst <span class="op">=</span> <span class="cn">TRUE</span></span>
|
||||||
|
<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>x</dt>
|
||||||
|
<dd><p>Variable to cut.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>groups</dt>
|
||||||
|
<dd><p>Number of groups.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>y</dt>
|
||||||
|
<dd><p>alternative vector to draw quantile cuts from. Limits has to be within x. Default is NULL.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>na.rm</dt>
|
||||||
|
<dd><p>Remove NA's. Default is TRUE.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>group.names</dt>
|
||||||
|
<dd><p>Names of groups to split to. Default is NULL, giving intervals as names.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>ordered.f</dt>
|
||||||
|
<dd><p>Set resulting vector as ordered. Default is FALSE.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>inc.outs</dt>
|
||||||
|
<dd><p>Flag to include min(x) and max(x) as boarders in case of y!=NULL.</p></dd>
|
||||||
|
|
||||||
|
</dl></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="va">aa</span> <span class="op"><-</span> <span class="fu"><a href="https://rdrr.io/r/base/numeric.html" class="external-link">as.numeric</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">1000</span>,<span class="fl">2000</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="va">x</span> <span class="op"><-</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"><-</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><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">#></span> Length Class Mode </span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> [1,] 2000 factor numeric</span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> [2,] 5 -none- numeric</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>
|
||||||
|
|
||||||
File diff suppressed because one or more lines are too long
@ -21,9 +21,15 @@
|
|||||||
<url>
|
<url>
|
||||||
<loc>/reference/cpr_dob.html</loc>
|
<loc>/reference/cpr_dob.html</loc>
|
||||||
</url>
|
</url>
|
||||||
|
<url>
|
||||||
|
<loc>/reference/cpr_female.html</loc>
|
||||||
|
</url>
|
||||||
<url>
|
<url>
|
||||||
<loc>/reference/index.html</loc>
|
<loc>/reference/index.html</loc>
|
||||||
</url>
|
</url>
|
||||||
|
<url>
|
||||||
|
<loc>/reference/quantile_cut.html</loc>
|
||||||
|
</url>
|
||||||
<url>
|
<url>
|
||||||
<loc>/reference/stRoke-package.html</loc>
|
<loc>/reference/stRoke-package.html</loc>
|
||||||
</url>
|
</url>
|
||||||
|
|||||||
21
man/cpr_female.Rd
Normal file
21
man/cpr_female.Rd
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
% Generated by roxygen2: do not edit by hand
|
||||||
|
% Please edit documentation in R/cpr_tools.R
|
||||||
|
\name{cpr_female}
|
||||||
|
\alias{cpr_female}
|
||||||
|
\title{Determine female sex from CPR}
|
||||||
|
\usage{
|
||||||
|
cpr_female(cpr)
|
||||||
|
}
|
||||||
|
\arguments{
|
||||||
|
\item{cpr}{cpr-numbers as ddmmyy\link{-.}xxxx or ddmmyyxxxx. Also mixed formatting. Vector or data frame column.}
|
||||||
|
}
|
||||||
|
\value{
|
||||||
|
Logical vector
|
||||||
|
}
|
||||||
|
\description{
|
||||||
|
Just checking if last number of a string is equal or not.
|
||||||
|
}
|
||||||
|
\examples{
|
||||||
|
cpr_female("231045-0637")
|
||||||
|
}
|
||||||
|
\keyword{cpr}
|
||||||
42
man/quantile_cut.Rd
Normal file
42
man/quantile_cut.Rd
Normal file
@ -0,0 +1,42 @@
|
|||||||
|
% Generated by roxygen2: do not edit by hand
|
||||||
|
% Please edit documentation in R/quantile_cut.R
|
||||||
|
\name{quantile_cut}
|
||||||
|
\alias{quantile_cut}
|
||||||
|
\title{Easy function for splitting numeric variable in quantiles}
|
||||||
|
\usage{
|
||||||
|
quantile_cut(
|
||||||
|
x,
|
||||||
|
groups,
|
||||||
|
y = NULL,
|
||||||
|
na.rm = TRUE,
|
||||||
|
group.names = NULL,
|
||||||
|
ordered.f = FALSE,
|
||||||
|
inc.outs = FALSE,
|
||||||
|
detail.lst = TRUE
|
||||||
|
)
|
||||||
|
}
|
||||||
|
\arguments{
|
||||||
|
\item{x}{Variable to cut.}
|
||||||
|
|
||||||
|
\item{groups}{Number of groups.}
|
||||||
|
|
||||||
|
\item{y}{alternative vector to draw quantile cuts from. Limits has to be within x. Default is NULL.}
|
||||||
|
|
||||||
|
\item{na.rm}{Remove NA's. Default is TRUE.}
|
||||||
|
|
||||||
|
\item{group.names}{Names of groups to split to. Default is NULL, giving intervals as names.}
|
||||||
|
|
||||||
|
\item{ordered.f}{Set resulting vector as ordered. Default is FALSE.}
|
||||||
|
|
||||||
|
\item{inc.outs}{Flag to include min(x) and max(x) as boarders in case of y!=NULL.}
|
||||||
|
}
|
||||||
|
\description{
|
||||||
|
Using base/stats functions cut() and quantile().
|
||||||
|
}
|
||||||
|
\examples{
|
||||||
|
aa <- as.numeric(sample(1:1000,2000,replace = TRUE))
|
||||||
|
x <- 1:450
|
||||||
|
y <- 6:750
|
||||||
|
summary(quantile_cut(aa,groups=4)) ## Cuts quartiles
|
||||||
|
}
|
||||||
|
\keyword{quantile}
|
||||||
@ -15,3 +15,12 @@ test_that("cpr_dob() works for vectors, giving logicals", {
|
|||||||
})
|
})
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
|
||||||
|
test_that("cpr_female() works for vectors, giving logicals", {
|
||||||
|
result <- cpr_female(c("2310450637", "010115-4000", "0101896000","010189-3000","300450-1030","010150-4021"))
|
||||||
|
expect_type(result, "logical")
|
||||||
|
expect_length(result, 6)
|
||||||
|
expect_equal(result[2], FALSE)
|
||||||
|
})
|
||||||
|
|
||||||
|
################################################################################
|
||||||
Loading…
Reference in New Issue
Block a user