Notice
Recent Posts
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 | 31 |
Tags
- 회귀분석 알고리즘
- 정보획득량
- 빅데이터
- difftime
- 여러 데이터 검색
- Dense_Rank
- Intersect
- sql
- 데이터분석
- 히스토그램 그리기
- 팀스파르타
- merge
- 불순도제거
- 그래프시각화
- 막대그래프
- 회귀분석
- %in%
- 총과 카드만들기
- 단순회귀 분석
- 데이터분석가
- 상관관계
- if문 작성법
- Sum
- 순위출력
- 그래프 생성 문법
- sqld
- 빅데이터분석
- loop 문
- max
- count
Archives
- Today
- Total
ch0nny_log
[빅데이터분석] 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()
'빅데이터 분석(with 아이티윌) > R' 카테고리의 다른 글
[빅데이터분석] R _ 34. 시각화 툴의 역사 (막대그래프)/ 데이터 시각화 1 (1) | 2024.07.01 |
---|---|
[빅데이터분석] R _ 33. IF문 / LOOP문 작성 법 (0) | 2024.07.01 |
[빅데이터분석] R _ 31. 순위 출력 (rank) (0) | 2024.07.01 |
[빅데이터분석] R _ 30. 서브쿼리 (0) | 2024.07.01 |
[빅데이터분석] R _ 29. 집합연산(rbind, rbind + unique,intersect,setdiff) (1) | 2024.07.01 |