¹Ø¿¡ Äڵ嵹¸®´Ï±î ÀÌ·± 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)")