R 사용자 정의 함수
R 사용자 정의 함수 1. 기본 포맷 my1 <- function(x) { x_mean <- mean(x); x_sd <- sd(x); x_min <- min(x); x_max <- max(x); x_summary <- list(M=x_mean,SD=x_sd,x_min = x_min,max = x_max); return(x_summary) } y= 10 + 5*x 함수에 x를 1부터 10까지 1씩 더해가면서 연산하고 y값을 순차적으로 프린트 my2 <- function(x) { for (x in 1:x) { y <- -10 + 3*x print(y) } } my3 <- function(x) { y <-1; while( x <= 10) { x <- x + y; cat( "누적합은 ", x, "\n", sep="") } }
