¹Ø¿¡ Äڵ嵹¸®´Ï±î ÀÌ·± error °¡¶ß³×¿ä µµ¿òÁֽǺÐÀÕ³ª¿ä? NÀÇ ¼ö£¨ ½ÃÇàȽ¼ö£©¸¦ ´Ã·Á°¡¸é¼ ¾ó¸¶³ª PI °ª¿¡ °¡±î¿öÁö´ÂÁö¸¦
n_sample¿¡´ëÇÑ 4*n_cir/n_sqr ·Î ³ªÅ¸³»·ÁÇØ¿ä n_cirÀº xyÃàÀÇ ¿ø ¾È¿¡ Á¡ÀÌ»ý±æ¶§À̰í n_sqrÀº xy ¾È¿¡ Á¡ÀÌ»ý±æ‹šÀÓ
Warning message:
In while £¨n_sample < N£© { :
the condition has length > 1 and only the first element will be used
==================
n_sample =0
n_sqr = 0
n_cir = 0
N=c£¨0,10,by=1£©
while£¨n_sample < N£©{
x = runif£¨1£©
y = runif£¨1£©
d= x^2+y^2
n_sqr = n_sqr +1
n_sample=n_sample +1
if£¨d<=1£©{
n_cir= n_cir +1
}
}
z = 4*n_cir/n_sqr
plot£¨N,z,type="o",col="black",pch=1,xlab="k",ylab="Pr£¨X=k£©"£©