First R package published!
#mnirs #nirs #muscleoxygenation
8
0
0
0
Hashtag
#mnirs
Advertisement · 728 × 90
I've just updated {mnirs} 0.5.2 and implemented a Shiny app for a basic no-code workflow
Check it out! Visualise your data quickly and compare effects of different processing methods
jemarnold-mnirs-app.share.connect.posit.cloud
... then tell me when something breaks 😄 #rstats #mnirs
9
4
1
1
![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)
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
TIL `Find()` returns the first match then stops searching.
10x speed and 40x memory improvement in one of my core package functions!
I wonder where else I can implement? 🤔
#rstats #mnirs
16
2
3
0
👉 Interested in brain imaging too? Our Introduction to fNIRS course takes place the next day, on March 13th.
#Artinis #mNIRS #HDEMG #muscleresearch #workshop
0
0
0
0
For anyone frustrated by processing #NIRS data, I've been working on {mnirs} an R package I think can help with standardisation
Take a look: github.com/jemarnold/mn...
Get in touch if interested. I'm looking for more users to provide feedback and break things. More info to come 🦵🔦 #mnirs #rstats
7
1
0
1
🟡🔵 Muscle oxygenation does not appear to explain exercise intolerance in fibromyalgia, pointing researchers toward alternative mechanisms.
Another strong example of how integrated muscle-brain #fNIRS #mNIRS supports clearer clinical understanding.
🔗 publications.artinis.com/pub...
0
0
0
0
🌟 Top Pick of the Year in Combined Muscle & Brain Research Pt. 2! Lehto et al. delivered a valuable publication by simultaneously measuring muscle & brain oxygenation in patients with fibromyalgia and healthy controls using combined NIRS.
#fNIRS #mNIRS
0
0
1
0
These results highlight uNIRS as a promising tool for performance monitoring & training optimization in swimming and aquatic sports 👉 publications.artinis.com/pub...
#SportsScience #PerformanceMonitoring #ExercisePhysiology #mNIRS
0
0
0
0
🎄 In the spirit of the giving season✨, we will soon kick off our Advent of NIRS!
Every day, starting Dec 1st until the 25th, we’ll share valuable tips and tricks related to #fNIRS and #mNIRS.
Stay tuned on Artinis' social media to get your daily dose of NIRS knowledge. 🎁
#ArtinisAdventCalendar
1
1
0
0
Rejoignez-nous le 25 novembre 2024, à Paris, pour notre premier cours d'introduction sur la #fNIRS et #mNIRS en France🇫🇷
Lieu : UFR STAPS, Paris
Frais : 60 € (Déjeuner non inclus)
artinis.com/events/nirs-...
#neurosciences #sciencesdusport #ufrstaps
2
0
0
0