nasher <- read.csv("nasher.hist.03.csv")
bmer <- read.csv("bmhist.02.csv")
bester <- read.csv("bestfoot.02.csv")
rnash <- read.csv("repnash.01.csv")
nnew <- read.csv("new.01.csv")
nash_error <- nasher$err
jpeg(file = "nash.jpg")
hist(nash_error, freq = FALSE,breaks=c(0,.05,.1,.15,.2,.25,.3, .35, .4), ylim = c(0,14), col="grey")
dev.off()
#hist(nash_error, breaks=c(0,.05,.1,.15,.2,.25,.3, .35, .4), freq = FALSE, ylim = c(0,14), col="grey")
BMD_error <- bmer$err
jpeg(file = "bmd.jpg")
hist(BMD_error,freq = FALSE,breaks=c(0,.05,.1,.15,.2,.25,.3, .35, .4), ylim = c(0,14), col="grey")
dev.off()
best_foot_error <- bester$err
jpeg(file = "best.jpg")
hist(best_foot_error,freq = FALSE,breaks=c(0,.05,.1,.15,.2,.25,.3, .35, .4), ylim = c(0,14), col="grey")
dev.off()
nash_error <- rnash$nash_error
jpeg(file = "rnash.jpg")
hist(nash_error,freq = FALSE,breaks=c(0,.05,.1,.15,.2,.25,.3, .35, .4), ylim = c(0,14), col="grey")
dev.off()

BMD_error <- abs(nnew$BMD_error)
jpeg(file = "rnew.jpg")
hist(BMD_error,freq = FALSE,breaks=c(0,.05,.1,.15,.2,.25,.3, .35, .4), ylim = c(0,14), col="grey")
dev.off()


