Displaying 1 result from an estimated 1 matches for "crn2".
Did you mean:
cr2
2013 May 15
1
x and y lengths differ
...subset(df.rwi, df.crn$samp.depth > 5)
df.ci <- data.frame(t(apply(df.rwi.trunc,1,ci.func)))
base<-cbind(df.trunc,df.ci)
op=par(no.readonly=TRUE) # save par to reset
par(mar=c(3,2,2,3)+0.1,mgp=c(1.25,0.25,0),tcl=0.25,tck=0.0125)
yr.vec=as.numeric(rownames(df.trunc))
samp.depth=df.trunc[,2]
crn2=df.trunc[,-2]
plot(yr.vec,crn2,type='n',xlab='Years',ylab='RWT',
main='Gemenele')
axis(1,at=seq(1900,2012,by=4))
polygon(c(yr.vec,rev(yr.vec)), c(df.ci$lower,rev(df.ci#upper)),
col='grey80',border=NA)...