Joo's aid toolkit for the efficient programming.
You can install the development version of jaid from GitHub with:
# install.packages("devtools")
devtools::install_github("seokhoonj/jaid")library(jaid)
# unique length
x <- c(1, 1, 2, 3, 4, 5, 5)
unilen(x)
#> [1] 5
# reverse vector directly
x <- 1:9
reverse(x) # edit x directly
x
#> [1] 9 8 7 6 5 4 3 2 1
# intersect the elements of two vectors
x <- c(1, 3, 5, 7)
y <- c(2, 4, 6, 8)
traverse(x, y)
#> [1] 1 2 3 4 5 6 7 8
# most frequent value
x <- c(1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 5)
mostfreq(x)
#> [1] 1 5
#> attr(,"freq")
#> [1] 3
library(jaid)
# create matrix
x <- matrix(c(1:9), nrow = 3)
# set row names
set_rownames(x, c("a", "a", "b"))
set_rownames(x, NULL)
# set column names
set_colnames(x, c("a", "b", "b"))
set_colnames(x, NULL)
# set dimension names
set_dimnames(x, list(c("a", "a", "b"), c("a", "b", "b")))
#> a b b
#> a 1 4 7
#> a 2 5 8
#> b 3 6 9
# rotation
rotate(x, 180)
#> b b a
#> b 9 6 3
#> a 8 5 2
#> a 7 4 1
# row max, min, sum
row_max(x)
#> [1] 7 8 9
row_min(x)
#> [1] 1 2 3
row_sum(x)
#> [1] 12 15 18
# stats by row names
max_by_rownames(x)
#> a b b
#> a 2 5 8
#> b 3 6 9
min_by_rownames(x)
#> a b b
#> a 1 4 7
#> b 3 6 9
sum_by_rownames(x)
#> a b b
#> a 3 9 15
#> b 3 6 9
# stats by column names
max_by_colnames(x)
#> a b
#> a 1 7
#> a 2 8
#> b 3 9
min_by_colnames(x)
#> a b
#> a 1 4
#> a 2 5
#> b 3 6
sum_by_colnames(x)
#> a b
#> a 1 11
#> a 2 13
#> b 3 15
# stats by dimension (row and column) names
max_by_dimnames(x)
#> a b
#> a 2 8
#> b 3 9
min_by_dimnames(x)
#> a b
#> a 1 4
#> b 3 6
sum_by_dimnames(x)
#> a b
#> a 3 24
#> b 3 15
# fill with zero except for the first positive values of a numerical matrix by rownames
x <- matrix(c(-1, 2, 0, -2, -1, 5, 2, -2, 3), nrow = 3)
set_dimnames(x, list(c(1, 1, 2), c("a", "b", "c")))
fill_zero_not_first_pos(x)
#> a b c
#> 1 0 0 2
#> 1 2 0 0
#> 2 0 5 3
set_zero_not_first_pos(x) # edit x directly
# fill with one before the first one appears in each column in a binary matrix by rownames
x <- matrix(c(0, 1, 0, 0, 0, 1, 1, 0, 1), nrow = 3)
set_dimnames(x, list(c(1, 1, 2), c("a", "b", "c")))
fill_one_before_first_one(x)
#> a b c
#> 1 1 1 1
#> 1 1 1 0
#> 2 1 1 1
set_one_before_first_one(x) # edit x directly