aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKen Kellner <ken.kellner@gmail.com>2016-04-25 17:03:35 (GMT)
committerKen Kellner <ken.kellner@gmail.com>2016-04-25 17:03:35 (GMT)
commit6602aecfb008638fa72831b2986436e959018b0f (patch)
treecaf80876fa092ee9d30a8ac4e26d6941197f8a2f
parente26da6bdfc374b66f11fbf28b8aac41caaf4e7a1 (diff)
Incorporate Saunders and Swihart lab group comments - mainly intro reorganization and dropping the continous analysis.
-rw-r--r--figures/figure_height.R10
1 files changed, 5 insertions, 5 deletions
diff --git a/figures/figure_height.R b/figures/figure_height.R
index ee76c4b..58c24b9 100644
--- a/figures/figure_height.R
+++ b/figures/figure_height.R
@@ -54,7 +54,7 @@ plot(sample.hts.rab,prab,type='l',lwd=2,xaxt='n',yaxt='n',ylim=c(0,0.002),
xlim=c(0,max(sample.hts.rab,na.rm=T)))
text(15,0.0018,"Rabbit",cex=1.5,adj=c(0,NA))
segments(x0=mx.index[1],y0=mx,x1=mx.index[1],y1=(mx-0.20*mx))
-text(mx.index[1],(mx-0.35*mx),mx.index[1])
+text(mx.index[1],(mx-0.35*mx),round(mx.index[1]))
axis(2,at=c(0,0.001,0.002),labels=c(0,0.001,0.002))
lines(sample.hts.rab,prab.sum,lwd=2,lty=2)
legend('topright',legend=c('Oct - April','May - Sept'),lty=c(1,2),lwd=2)
@@ -79,7 +79,7 @@ plot(sample.hts.de,pdeer,type='l',lwd=2,xaxt='n',yaxt='n',lty=1,
axis(2,at=c(0,0.10,0.20),labels=c(0,0.10,0.20))
text(15,0.25,"Deer",cex=1.5,adj=c(0,NA))
segments(x0=mx.index[1],y0=mx[1],x1=mx.index[1],y1=(mx-0.05*mx))
-text(mx.index[1],(mx-0.15*mx),mx.index[1])
+text(mx.index[1],(mx-0.15*mx),round(mx.index[1]))
lines(sample.hts.de,pdeer.sum,lwd=2,lty=2)
###
@@ -122,17 +122,17 @@ plot(sample.hts,pdeer/max(pdeer),type='l',lwd=2,xlab="Seedling Height (cm)"
,ylab="Scaled Browse Probability",ylim=c(0,1))
#text(20,mx-0.15*mx,"Insect",cex=2)
segments(x0=mx.index.deer,y0=1,x1=mx.index.deer,y1=0.93)
-text(mx.index.deer,.9,mx.index.deer)
+text(mx.index.deer,.9,round(mx.index.deer))
lines(sample.hts,prab/max(prab),type='l',lwd=2,lty=2)
#text(20,mx-0.15*mx,"Insect",cex=2)
segments(x0=mx.index.rab,y0=1,x1=mx.index.rab,y1=0.87)
-text(mx.index.rab,.84,mx.index.rab)
+text(mx.index.rab,.84,round(mx.index.rab))
lines(sample.hts,pins/max(pins),type='l',lwd=2,lty=3)
#text(20,mx-0.15*mx,"Insect",cex=2)
segments(x0=mx.index.ins,y0=1,x1=mx.index.ins,y1=0.93)
-text(mx.index.ins,.9,mx.index.ins)
+#text(mx.index.ins,.9,mx.index.ins)
legend('topleft',lty=c(1,2,3),legend=c('Deer','Rabbit','Insect'),bty='n')