diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/plot-cc-and-scale.R | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/scripts/plot-cc-and-scale.R b/scripts/plot-cc-and-scale.R new file mode 100644 index 00000000..75850e85 --- /dev/null +++ b/scripts/plot-cc-and-scale.R @@ -0,0 +1,23 @@ +# Example R script to plot scale factor and CC +# +# by Takanori Nakane (nakane.t@gmail.com) + +scale_cc <- read.table("scale.csv", sep=",", col.names=c("ImageName", "ScaleFactor", "CC")) + +# scatter plot +# FIXME: sometimes white lines appear on the plot. +# seems to be a bug in smoothScatter + +smoothScatter(scale_cc$ScaleFactor, scale_cc$CC, + nbin=200, xlim=c(0, 2), ylim=c(0, 1), + xlab="Scale Factor", ylab="CC", main="Scale factor & CC") + +# histogram + +par(mfrow=c(2,1)) +plot(scale_cc$ScaleFactor, type='h', ylab="Scale Factor", xlab="#Crystal") +abline(h=mean(sf[,2])+(-5:5)*sd(sf[,2]), col=2) + +hist(scale_cc$ScaleFactor, breaks=100, main="Distribution of Scale Factor", xlab="Scale Factor") +abline(v=mean(sf[,2])+(-5:5)*sd(sf[,2]), col=2) +par(mfrow=c(1,1))
\ No newline at end of file |