Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 4f78aa444f
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (15 sloc) 0.531 kB
myRange <- function(a){
# A range where the beginning and end
# both have a fractional part exactly equal to 0.5.
# So that 0 is exactly in the middle of a histogram bar.
r=range(a)+c(-0.5,+0.5)
r[1] = floor(r[1])+0.5
r[2] = ceiling(r[2])-0.5
return(r)
}
t=read.table("work/dmet.txt")
r=myRange(data.matrix(t[3]))
png("work/station-dmet.png")
hist(data.matrix(t[3]), breaks=seq(r[1], r[2]), main="Station Average Monthly DMET",
ylab="Station Count", xlab=expression("Average Monthly DMET ×10"^{-2}*"K"))
dev.off()
Jump to Line
Something went wrong with that request. Please try again.