Jem Arnold
@jemarnold.bsky.social
667 followers 383 following 464 posts
PhD candidate & physiotherapist | 🩸Iliac artery endofibrosis / FLIA | Endurance testing & NIRS. Treat declarative statements as questions?
PhD candidate & physiotherapist | 🩸Iliac artery endofibrosis / FLIA | Endurance testing & NIRS. Treat declarative statements as questions?
![Screenshot of .ahk shortcuts:
; symbol, description, and literal execute string in quotations
:*?:/=::{U+2260} ; ≠ not equal to "/="
:*?:~=::{U+2248} ; ≈ approx equal to "~="
:*C?:p=::{U+221D} ; ∝ proportional to "p="
:o?:<=::{U+2264} ; ≤ less than or equal to "<="
:o?:>=::{U+2265} ; ≥ greater than or equal to ">="
:*?:+-::{U+00B1} ; ± plus minus "+-"
:o?:*::{U+00B7} ; · multiplication dot "*`"
:o?:%::{U+00F7} ; ÷ division sign "%`"
:*?:$$::{U+20AC} ; € euro "$$"
:o?:**::{U+00B0} ; ° degree "**`"
:oC?:alpha::{U+03B1} ; α alpha "alpha`"
:oC?:beta::{U+03B2} ; β beta "beta`"
:oC?:D::{U+0394} ; Δ delta "D`"
:oC:u::{U+03BC} ; μ mu "u`"
:oC?:tau::{U+1D70F} ; 𝜏 tau "tau`"
:*?::``::{U+2234} ; ∴ therefore ":`"
:*C?:V`*::V{U+0307} ; dot(V) "V*"
:*C?:Q`*::Q{U+0307} ; dot(Q) "Q*"
:o?:1::{U+2082} ; subscript[1] "1`"
:o?:2::{U+2082} ; subscript[2] "2`"
:o?:-1::⁻¹ ; superscript[-1]](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:lnuu36x5tm3islrvwkxgsajn/bafkreiclhrsxj56kr7bljvgewwm7pt6tzxi2yej75swrdt7ybg66hrvys4)
![library(mnirs) ## development package
library(bench) ## benchmarking
## read file to a data frame (internal fn)
data <- mnirs:::read_file(example_mnirs("train.red"))
## column name strings to match all
nirs_channels <- c("SmO2 unfiltered", "HBDiff unfiltered")
## return bench::mark results
bench::mark(
## previous code searched through all rows
which_apply = {
which(apply(data, 1L, \(.row_vec) {
all(nirs_channels %in% .row_vec)
}))
},
## TIL about `Find()` which returns the first match and stops
Find = {
Find(\(.i) {
all(nirs_channels %in% data[.i, ])
}, seq_len(nrow(data)))
},
check = TRUE,
iterations = 100
)
#> # A tibble: 2 × 6
#> expression min median `itr/sec` mem_alloc `gc/sec`
#> <bch:expr> <bch:tm> <bch:tm> <dbl> <bch:byt> <dbl>
#> 1 which_apply 31.5ms 34.89ms 27.1 2.56MB 86.0
#> 2 Find 2.73ms 3.03ms 304. 63.2KB 26.4](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:lnuu36x5tm3islrvwkxgsajn/bafkreibvshcp56usa44jslbvi3i74wjn5iteiybzurpisfd7idjqxzmt44)
