Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/kklot/ktools
Trivial functions
https://github.com/kklot/ktools
Last synced: 27 days ago
JSON representation
Trivial functions
- Host: GitHub
- URL: https://github.com/kklot/ktools
- Owner: kklot
- License: other
- Created: 2020-07-15T15:37:30.000Z (over 4 years ago)
- Default Branch: master
- Last Pushed: 2024-08-09T11:15:38.000Z (5 months ago)
- Last Synced: 2024-08-10T12:19:07.836Z (5 months ago)
- Language: R
- Homepage: https://kklot.github.io/ktools/
- Size: 1.39 MB
- Stars: 1
- Watchers: 1
- Forks: 1
- Open Issues: 1
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# ktools 
[](https://lifecycle.r-lib.org/articles/stages.html#stable)
[](https://lifecycle.r-lib.org/articles/stages.html#experimental)
Miscellaneous function, color palettes, collected doing modelling, many trivial ones.
## Installation
The development version from [GitHub](https://github.com/) with:
``` r
devtools::install_github("kklot/ktools")
```
Examples of what inside:
- `more`: View a big object in a pager view similar to `bash more`, press `q` to
quit viewing
```r
more(LETTERS[rep(1:26, each=1000)])
```
- `pick`: wrapper of `grep` tp pick element with regex
- `query_label`: search variable labels on labelled data (e.g.
`haven::read_dta`)
```r
# query KAIS surveys
query_label(b1, "cmc")
# name label
# 1: qhint Date of interview (CMC)
# 2: q102 Date of birth (CMC)
# 3: q212 Date of birth for last child (CMC)
# 4: q318 Date of birth for last child (CMC)
```
- `query_name`: search name on a data (e.g. `haven::read_dta`)
```r
query_name(b2, "weight")
# name label
# 1: rawiweight
# 2: rawbweight
# 3: aiweight
# 4: abweight
```
- `facet_unwrap`: unwrap a ggplot2::facet_wrap plot to view or save separately
```r
g <- iris %>%
ggplot(aes(Sepal.Length)) +
geom_histogram() +
facet_wrap(~Species)
facet_unwrap(g)
```
- `allot`: `->` right assign with pipe (**experimental - use interactive only**)
```r
# these two are equivalent
a <- tibble(x = 1)
tibble(x = 1) %>% allot(a)
```
- `recode_if`: like `case_when` when you want to keep original data (`TRUE ~ original`)
- `rename`: rename a column in data.frame
- `take_note`: Write a note to file
- `unkount`: Uncounting data frame using a weights
- `surv_split` to split survival time for immediate death model
- `screen_to_file`: write object on screen to a file, e.g. get contents of a function
- `char`: quoting automatic
```r
char(a, b, c)
# [1] "a" "b" "c"
```
- `bracket`: put bracket around a text
- `browse`: Show data frame in browser
- `cd`: replicate some features of bash cd
```r
cd()
# Moved from: /Users/knguyen/Code/R/ktools
# to ~
cd('-')
# Moved from: /Users/knguyen
# to /Users/knguyen/Code/R/ktools
```
- Generate AR(2) precision matrix
```r
AR2_Q
```
- MakeADFun safely terminated if there is a bound error
```r
MakeADFunSafe
```
- `double_logistic`: Double logistic function
- `findInterval2`: findInterval and return factor with label
- `fractional_poly`: find best fit fractional polynomial using GLM
- `kut`: Cut but automatically include min and max data's value
- `kompile`: compile TMB with extra `ktools`'s `C++` headers
- `lsSize`: list objects with size
- `napply`: n(amed)apply: lapply but automatic add names to output
- `pfrankCopula`: Frank copulas prob
- `tmb_fixit`: TMB fix parameters
- NullSpace penalty
```r
nullspace_penalty()
```
```r
name2list(c(x = 1, abc = 2))
```
Let search engines do the work of documenting.