Analyze GQ GMC-500 Plus / GMC-320 Plus Geiger Counter Export with R

gmc-analyze.R

library(dplyr)

gmc<-read.csv("20240915_14_05_13.csv", skip=1)
gmc$lt<-as.POSIXlt(gmc$Date.Time,format = "%Y-%m-%d %H:%M")
gmc<-gmc[order(gmc$lt),]

starttime <- "2024-09-14 00:00:00"
endtime   <- "2024-09-16 23:59:59"
gmc.range<-filter(gmc, lt>=as.POSIXlt(starttime) & lt<=as.POSIXlt(endtime))

startlt.range<-min(gmc.range$lt)
endlt.range<-max(gmc.range$lt)
sub.range<-paste(strftime(startlt.range, "%Y-%m-%d %H:%M:%S"),strftime(endlt.range, "%Y-%m-%d %H:%M:%S"),sep=" - ")

plot(gmc.range$lt, gmc.range$uSv.h, type="l", main="Radioactivity", sub=sub.range, xlab="Time", ylab="Equivalent Dose Rate (µSv/h)")