From 0a533227b1006b4019ea9fccd0957e8be7138f8d Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 18 Sep 2014 18:10:11 +0200 Subject: Tidy up scaling/CCs a bit --- scripts/plot-cc-and-scale.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scripts/plot-cc-and-scale.R') diff --git a/scripts/plot-cc-and-scale.R b/scripts/plot-cc-and-scale.R index 75850e85..25df0a63 100644 --- a/scripts/plot-cc-and-scale.R +++ b/scripts/plot-cc-and-scale.R @@ -2,7 +2,7 @@ # # by Takanori Nakane (nakane.t@gmail.com) -scale_cc <- read.table("scale.csv", sep=",", col.names=c("ImageName", "ScaleFactor", "CC")) +scale_cc <- read.table("stats.dat", sep=" ", col.names=c("ImageName", "ScaleFactor", "CC")) # scatter plot # FIXME: sometimes white lines appear on the plot. @@ -20,4 +20,4 @@ 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 +par(mfrow=c(1,1)) -- cgit v1.2.3