# install fnirsr | |
devtools::install_github("erzk/fnirsr") | |
library(dplyr) | |
library(fnirsr) | |
# file path | |
p01_path <- "/media/.../p01_fnirs_data_MES_Probe1.csv" # MES file | |
# load the header | |
header <- load_ETG4000_header(p01_path) | |
# load the file | |
df <- load_ETG4000_data(p01_path, header) | |
# trim down to facilitate the demo | |
df <- df[1:2500,] | |
# overview | |
str(df) | |
# block borders | |
all_borders <- which(df$Mark != 0) | |
# plot the signal | |
plot(df$CH1.703.6., type = "l", ylab = "Intensity") | |
abline(v = all_borders, col = "red") | |
# overview of Marks | |
df %>% dplyr::filter(Mark != 0) %>% select(Mark) %>% table() |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment