함수 생성 및 루프

2-4 간단한 함수생성 및 루프 (for, while)

1. 간단한 함수 생성

· 함수 생성

square<-function(x){

    return (x*x)

}

square(9)

square(1:3)

 

dif<-functuin(x,y){

    return (x-y)

}

dif(20,10)

 

rootdif<-function(x,y){

    return (sqrt(x-y))

}

rootdif(20,10)

 

· 기존 함수의 코드보기 (예 : round 함수) (소숫점 자리를 조정)

round(5.14846)

round(5.14846, 2)

round

 

2. 루프문(for)

· For를 사용한 루프 (예제 1)

sum=0

for(i in 1:10) {

  if ( i %% 2 == 0){

      sum=sum+i

  }

}

#1에서 10까지 짝수들의 합 => 즉, 2로 나누었을때 나머지가 0인 수들의 합

print(sum)

 

· For를 사용한 루프 (예제 2)

for(i in 1:10){

   i<-i+1

   print(i)

   if(i>5){

      break

   }

}

#i=1부터 10까지 1,2,3...으로 더해가면 프린트

 

3. 루프문 (while)

y=0

whilw(y<5){print(y<-y+1))