burn.df<-read.table("burn-data",header=T)
attach(burn.df)
plot(pc,fn.left,pch=2,xlab="p = fraction trees");lines(pc,fn.left,lty=2);title("Trees left after burn vs Fraction trees")
readline()
plot(pc,time,pch=2,xlab="p = fraction trees");lines(pc,time,lty=2);title("Time of burn vs Fraction trees")