banana/opus-data
2
Fork 0
Code Releases Activity

extracting data / creating dummy file

Browse Source
This commit is contained in:
Ruben Hartenstein (PEA4-Fe) 2021-01-15 15:39:19 +01:00
parent 18b0d38317
commit eb15b2ef9a
4 changed files with 12 additions and 3494 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
OpusData.R
View File

@ -1,13 +1,19 @@
#!/usr/bin/env Rscript #!/usr/bin/env Rscript
#if (!require("remotes")) install.packages("remotes") #if (!require("remotes")) install.packages("remotes")
#remotes::install_github("philipp-baumann/simplerspec") #remotes::install_github("philipp-baumann/simplerspec")
source('D:/OpusData/OpusData.R')
file_path <- "D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\"
file_name <- "Rng02_Rng2630_01.0"
file_path <- "D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\Rng02_Rng2630_01.0" data <- read_opus_univ(paste(file_path, file_name, sep = ""), extract = "spc",
data <- read_opus_univ(file_path, extract = "AB",
atm_comp_minus4offset = FALSE) atm_comp_minus4offset = FALSE)
print(data[1]) data_x_values <- data$`D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\Rng02_Rng2630_01.0`$wavenumbers
data_y_values <- data$`D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\Rng02_Rng2630_01.0`$spc
setwd(paste(file_path, "..\\DPT", sep = ""))
file.create(paste(substr(file_name, 0, nchar(file_name)-1), "DPT", sep = ""))
print(ls())

1744
Spektrometer Anbindung/Test Daten/DPT/Rng02_Rng2630_01.0.dpt
View File

File diff suppressed because it is too large Load Diff

0
Spektrometer Anbindung/Test Daten/DPT/Rng02_Rng2630_01.DPT Normal file
View File

1744
Spektrometer Anbindung/Test Daten/DPT/Rng02_Rng2630_01_0.DPT
View File

File diff suppressed because it is too large Load Diff