> # 입력된 숫자를 양수, 음수 모두 양수로 출력
> f_plus <- function(x) {if (x<0) {return(-x)}
+ else {return(x) }
+ }
> f_plus(1)
[1] 1
> f_plus(-1)
[1] 1
>
> # 입력된숫자가 양수이면 2배로출력, 숫자가 0보다 작거나같으면 0출력
> mf1 <- function(x){
+ if(x>0){ x <- x*2
+ return(x)}
+ else{x <- 0
+ return(x)}
+ }
> mf1(2)
[1] 4
> mf1(-1)
[1] 0
> mf1(0)
[1] 0
> # 입력된숫자가 0보다크면 2배로출력, 0일경우 0출력, 0보다 작을경우 -2배로 출력
> mf2 <- function(x){
+ if (x>0){x <- x*2
+ return(x)}
+ else if (x==0){ x <- 0
+ return(x)}
+ else {x <- x*2
+ return(x)}
+ }
>
> mf2(3)
[1] 6
> mf2(0)
[1] 0
> mf2(-3)
[1] -6
> no <- scan()
1: 10
2:
Read 1 item
>
> ifelse(no%%2==0, '짝수', '홀수')
[1] "짝수"
> while(no<5){
+ print(no)
+ no <- no+1;
+ }
[1] 0
[1] 1
[1] 2
[1] 3
[1] 4
>
> # while문을 사용하면서 특정조건이 올때 중단시키고 싶을경우 if문과 break문 사용
> x <- 1
> while(x<5) {x <- x+1; if(x==4) break; print(x);}
[1] 2
[1] 3
>
> x <- 1
> while(x<7) {x <- x+1; if(x==4) break; print(x);}
[1] 2
[1] 3
>
> # 특정 조건을 건너뛰고 싶을때는 next 키워드 사용
> x <- 1
> while(x<3) {x <- x+1; if(x==2) next; print(x);}
[1] 3
> x <- 1
> while(x<5) {x <- x+1; if(x==4) next; print(x);}
[1] 2
[1] 3
[1] 5
> # 사용자에게 숫자를 입력받아 1부터 그 숫자까지 연속적인 숫자출력
> for1 <- function(x){
+ for(i in 1:x){
+ print(i)
+ }
+ }
>
> for1(3)
[1] 1
[1] 2
[1] 3
>
> # 사용자에게 정수 n을 입력받은후 1부터 n까지의 합 출력
> for2 <- function(x){
+ i <- 0
+ for(j in 1:x){
+ i <- i+j }
+ print(i)
+ }
> for2(10)
[1] 55
> for2(100)
[1] 5050
댓글