Displaying 1 result from an estimated 1 matches for "pianim".
Did you mean:
piani
2011 Mar 18
1
points() rendering points outside of input
...<- pi.ratio(n)
stor.rat[i]<- sample.out$est
sum.pi[i]<- sum(stor.rat[1:i])/i
base.plot()
points(sample.out$loc[sample.out$ind,],col=2,pch=20,cex=0.8)
points(sample.out$loc[!sample.out$ind,],col=4,pch=20,cex=0.8)
}
}
saveMovie(pi.est(50,20),interval = 0.03, movie.name =
"pianim.gif",outdir = getwd(), width = 600, height = 600);
If you don't have animation installed and don't need to see a .gif you
can just pull base.plot() out of pi.est() and render successive loops
on top of each other. ?After a few dozen iterations you will see a
point plotted well outside...