kopia lustrzana https://github.com/RobertGawron/IonizationChamber
boxplot to analyze results between samples
rodzic
9363431eb2
commit
5b62e11f1b
|
@ -0,0 +1,44 @@
|
|||
inputFileName ="DataNoSample.csv"
|
||||
fileNoSample <- read.delim(inputFileName, , sep=",")
|
||||
|
||||
inputFileName ="DataAmSample1.csv"
|
||||
fileAmSample1 <- read.delim(inputFileName, , sep=",")
|
||||
|
||||
inputFileName ="DataRaSample2.csv"
|
||||
fileAmSample2 <- read.delim(inputFileName, , sep=",")
|
||||
|
||||
|
||||
backgroundLevel = fileNoSample$Counter
|
||||
AmIsotope = fileAmSample1$Counter
|
||||
RaIsotope = fileAmSample2$Counter
|
||||
|
||||
|
||||
# date column should be type of date, not string, so parse it
|
||||
png(filename = paste0("results-", format(Sys.time(), "%d_%b_%Y_%H_%M"), ".png"), width = 800, height = 900, bg = "white")
|
||||
|
||||
|
||||
|
||||
verticalLabels <- c("background level\nradiation", "Am isotope\n(somke detector)", "Ra isotope\n(old compass)")
|
||||
|
||||
boxplot(backgroundLevel, AmIsotope, RaIsotope,
|
||||
col="grey",
|
||||
names=verticalLabels,
|
||||
horizontal = FALSE,
|
||||
main = "Radioactivity of different samples meassured using Ionization Chamber",
|
||||
xlab = "Measurement",
|
||||
ylab = "Sensor voltage",
|
||||
boxwex=0.2)
|
||||
|
||||
# no X grid, Y grid grid aligns with the tick marks
|
||||
grid(NA, NULL)
|
||||
|
||||
|
||||
boxplot(backgroundLevel, AmIsotope, RaIsotope,
|
||||
col="grey",
|
||||
names=verticalLabels,
|
||||
horizontal = FALSE,
|
||||
main = "Radioactivity of different samples meassured using Ionization Chamber",
|
||||
xlab = "Measurement",
|
||||
ylab = "Sensor voltage",
|
||||
boxwex=0.2,
|
||||
add=T)
|
Ładowanie…
Reference in New Issue