[빅데이터분석] R _ 32. 함수 생성

 

※ R에서 함수생성하면 좋은점
- 필요한 코드들만 따로 잘 모아서 편하게 작업하기 위해 (점진적 코드 디벨롭)

 

 

문제1. 함수 기본 생성 문법 작성법

함수 <- function (인수 또는 입력값 {계산처리 1,
                                   계산처리 2,
                                    ......
                                   return(계산결과 반환) }​

                                                         
Q. 이름을 입력하면 해당 사원의 월급이 출력되는 함수를 생성하시오.

income <- function(name) {
				sal <- emp[emp$ename ==name,c('sal')]
                print(sal)
                }
                
 income('SCOTT')​

문제2. 위의 함수를 수정해서  문자로 입력해도 출력이 되게끔 수정하시오.

income <- function(name) {
  sal <- emp[emp$ename ==toupper(name),c('sal')]
  print(sal)
}

income('scott')​

문제3. 직업을 입력하면 해당 직업의 토탈월급이 출력되게하는 함수를 출력하시오.  

 job_sumsal <- function(name) {  
                     sumsal <-  sum( emp[ emp$job== toupper(name), c("sal") ] )
                     print(sumsal)
                                    }

 job_sumsal('salesman')​

문제 4. 위의 코드를 수정해서 직업을 물어보게하고 입력하게 하시오 ! 

job_sumsal <- function() {  
                     name <- readline(prompt='직업을 입력하세요 ~' )
                     sumsal <-  sum( emp[ emp$job== toupper(name), c("sal") ] )
                     print(sumsal)
                                    }
 job_sumsal()​