r 프래그램 관련 질문

게시물 수정 , 삭제는 로그인 필요

1. 확률분포에서 n명의 학생이 0.7의 확률로 2단점프, 0.2의 확률로 1단점프, 0.1의 확률로 움직이지않을때, 30명, 300명, 1000명일때의 확률분포

*참고 주사위 확률분포를 이렇게 작성했습니다.

dicetoss<-function(n){

dice<- c()

for(i in 1:n){

x<-runif(1)

if(x<=1/6){dice<-c(dice,1)}

else if (x<=2/6){dice<-c(dice,2)}

else if (x<=3/6){dice<-c(dice,3)}

else if (x<=4/6){dice<-c(dice,4)}

else if (x<=5/6){dice<-c(dice,5)}

else{dice<-c(dice,6)}

}

return(dice)

}

2.iha<-function(p,r){

success<-c()

s<-r

for(i in 0:r){

x<-choose(r,s)*(p^s)*((1-p)^(r-s))

success<-c(success,x)

s<-s-1

}

return(success)

}

n1<-iha(0.5,5)

n2<-iha(0.3,5)

이항분포식을 이런식으로 작성했을때 봉그래프그리는 법

3.흰 공이 1개. 초록 공이 2개, 빨간 공이 3개든 상자에서 1개를 꺼내는 시행을 할때,흰공을 꺼낸 확률 (꺼낸공은 다시되돌림)

p_whiteball<-function(n){

count<-0

for(i in 1:n){

x<-runif(1)

if(x<=1/6){

whiteball<-1}

else{whiteball<-0}

if(whiteball==1){

count<-count+1}

}

p<-count/n

return(p)

}

이렇게 작성하는게 맞나요? 

초보자라 죄송합니다.