Load the ETG-4000 data
load_ETG4000_header(x)
| x | Raw csv file. |
|---|
A vector.
file_path <- system.file("extdata", "Hitachi_ETG4000_24Ch_Total.csv", package = "fnirsr") load_ETG4000_header(file_path)#> [[1]] #> [1] "File Version,1.08" #> #> [[2]] #> [1] "Patient Information" #> #> [[3]] #> [1] "ID,KikuchiWF" #> #> [[4]] #> [1] "Name,Kikuchi" #> #> [[5]] #> [1] "Comment,IOWA fukawa-late,," #> #> [[6]] #> [1] "Age, 44y" #> #> [[7]] #> [1] "Sex,Male" #> #> [[8]] #> [1] "Analyze Information" #> #> [[9]] #> [1] "AnalyzeMode,Continuous" #> #> [[10]] #> [1] "Pre Time[s],20.0" #> #> [[11]] #> [1] "Post Time[s],20.0" #> #> [[12]] #> [1] "Recovery Time[s],40.0" #> #> [[13]] #> [1] "Base Time[s],20" #> #> [[14]] #> [1] "Fitting Degree,1" #> #> [[15]] #> [1] "HPF[Hz],No Filter" #> #> [[16]] #> [1] "LPF[Hz],No Filter" #> #> [[17]] #> [1] "Moving Average[s],5.0" #> #> [[18]] #> [1] "Measure Information" #> #> [[19]] #> [1] "Date,2009/08/19 15:27" #> #> [[20]] #> [1] "Mode,3x3" #> #> [[21]] #> [1] "Wave[nm],695,830" #> #> [[22]] #> [1] "Wave Length,CH1(699.2),CH1(828.2),CH2(697.2),CH2(826.7),CH3(699.2),CH3(828.2),CH4(697.5),CH4(827.8),CH5(697.2),CH5(826.7),CH6(697.5),CH6(827.8),CH7(697.5),CH7(827.8),CH8(698.8),CH8(828.7),CH9(697.5),CH9(827.8),CH10(698.7),CH10(830.2),CH11(698.8),CH11(828.7),CH12(698.7),CH12(830.2),CH13(698.3),CH13(825.7),CH14(697.5),CH14(826.6),CH15(698.3),CH15(825.7),CH16(699.1),CH16(825.9),CH17(697.5),CH17(826.6),CH18(699.1),CH18(825.9),CH19(699.1),CH19(825.9),CH20(698.7),CH20(825.2),CH21(699.1),CH21(825.9),CH22(697.7),CH22(825.7),CH23(698.7),CH23(825.2),CH24(697.7),CH24(825.7)" #> #> [[23]] #> [1] "Analog Gain,6.98039200,6.98039200,6.98039200,6.98039200,24.23529400,24.23529400,6.98039200,6.98039200,18.74509800,18.74509800,24.23529400,24.23529400,18.74509800,18.74509800,24.23529400,24.23529400,531.76470600,531.76470600,18.74509800,18.74509800,531.76470600,531.76470600,531.76470600,531.76470600,42.82352900,42.82352900,42.82352900,42.82352900,34.35294100,34.35294100,42.82352900,42.82352900,8.54902000,8.54902000,34.35294100,34.35294100,8.54902000,8.54902000,34.35294100,34.35294100,6.03921600,6.03921600,8.54902000,8.54902000,6.03921600,6.03921600,6.03921600,6.03921600" #> #> [[24]] #> [1] "Digital Gain,7.67000000,4.19000000,7.00000000,4.41000000,7.48000000,3.02000000,9.94000000,5.87000000,5.05000000,2.62000000,8.09000000,3.83000000,9.90000000,5.47000000,55.48000000,19.09000000,9.47000000,3.27000000,46.93000000,19.65000000,18.88000000,5.08000000,41.32000000,10.19000000,1.54000000,0.57000000,0.39000000,0.16000000,1.46000000,0.37000000,0.11000000,0.06000000,1.20000000,0.52000000,0.24000000,0.08000000,0.26000000,0.18000000,0.27000000,0.07000000,0.11000000,0.06000000,0.08000000,0.07000000,1.17000000,0.44000000,0.27000000,0.21000000" #> #> [[25]] #> [1] "Sampling Period[s],0.1" #> #> [[26]] #> [1] "StimType,STIM" #> #> [[27]] #> [1] "Stim Time[s]" #> #> [[28]] #> [1] "A,45,B,100,C,15,D,15,E,15,F,15,G,15,H,15,I,15,J,15" #> #> [[29]] #> [1] "Repeat Count,1" #> #> [[30]] #> [1] "Exception Ch,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0" #> #> [[31]] #> [1] "" #>