[R] 함수, 사용자 정의 함수
Y
Yerim
- R
y <- sqrt(100) # 제곱근을 구하여 저장
yd <- c(1, 7, 4, 2, 3)
sort(d) # 오름차순
sort(d, decreasing=TRUE) # 내림차순# 1. paste)의 기본적인 사용법
str <- paste('good', 'morning', sep=' / ') # /를 기준으로 문자열 결합
# 2. 변수 a,b, c를 paste()함수로 연결하여 출력
a <- '나의 나이는'
b <- 20
c <- '입니다'
paste(a, b, c, sep=' ')
# [1] "나의 나이는 20 입니다"
# 3. a, b연결, 새로운 벡터에 저장
a <- 1:12
b <- '월'
c <- paste(a, b, sep='')
c
# [1] "1월" "2월" "3월" "4월" "5월" "6월" "7월"
# [8] "8월" "9월" "10월" "11월" "12월"함수명 <- function(매개변수 목록){
실행할 명령문(들)
return(함수의 실행 결과)
}# 7-15
mydiv <- function(x, y=2){ # y의 기본값을 2로 설정
result <- x/y
return(result)
}
mydiv(x=10, y=3)
mydiv(10, 3)
mydiv(10)# 7-16
myfunc <- function(x, y){
val.sum <- x+y
val.mul <- x*y
return (list(sum=val.sum, mul=val.mul))
}
result <- myfunc(5, 8)
s <- result$sum
m <- result$mul
cat('5+8 = ', s, '\n')
cat('5*8 = ', m, '\n')mydiv <- function(x, y=2){
result <- x/y
return(result)
}# 7-17
setwd('C:\\Windows')
source("myfunc.R")