Ex01- 홀수의 개수를 세는 함수

   

   

홀수의 개수를 세는 함수 작성

정수형으로 이뤄진 벡터에서 홀수의 개수를 세는 oddcount()라는 함수를 정의하기

   

함수 정의 후에 oddcount() 함수를 호출한 두 개의 결과를 볼 수 있습니다.

벡터 {1,3,5,7}에는 4개의 홀수가 들어가 있고 oddcount(c(1,3,5,7))를 호출하면 4가 출력됩니다.

다른 경우도 홀수의 개수를 산출하여 출력하는 것을 볼 수 있습니다.

> oddcount <- function(x){ + k <-0 + for(n in x){ + if(n%%2 ==1) + k <- k+1 + } + return(k) + } > oddcount(c(1,3,5,7)) [1] 4 > oddcount(c(1,2,3,4,5,6,7,8,9)) [1] 5 >