Ok, that strange APNG error? Make sure the source file looks like this:
1.png; 1000; none; source
2.png; 1500; none; source
The final “source” appears to hold some magic ….
Ok, that strange APNG error? Make sure the source file looks like this:
1.png; 1000; none; source
2.png; 1500; none; source
The final “source” appears to hold some magic ….
What are error envelopes: http://www.sr.bham.ac.uk/~ajrs/R/r-gallery.html?
#--Plot error envelopes for mean profiles, using "conf.reg" function # from "errorbar.R" script sourced above: conf.reg(CC,xtype="r.r500",ytype="sckT",fill_col="grey80") conf.reg(nCC,xtype="r.r500",ytype="sckT",fill_col="grey30")
Cracked the generate a polygon — now just need to work out how to get it behind the main plot …
n <- length(hi.x)
for (i in 1:n) {
x1 <- c(lo.x[i],hi.x[i], lo.x[i+1],hi.x[i+1] )
y1 <- c(hi.y[i], lo.y[i],lo.y[i+1], hi.y[i+1])
polygon(x1 ,y1, col = “grey”, border = NA)
}
Ok, so banding has something to do with polygon — now just need to sort out the vectors of the shading:
n <- length(lo.x)
for (i in 1:n) {
x1<- c(hi.x[i], lo.x[i], hi.x[i+1], lo.x[i+1])
y1<- c(hi.y[i], lo.y[i], hi.y[i+1], lo.y[i+1])
polygon(x1,y1, col = “red”)
}
lowess(d.test$result)$y and lines(lowess(d.test$result), col = 2) are my new best friends …
Plan forwards:
… and I am slowly realising where my life will be going over the next week …
It is evidently quite time consuming to work through the graphs, calculating the relevant pieces from each one. Sigh. Will crunch through them though, hopefully learning more en route !!
Some functions to play with: