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="")
  }
}