반복문

<반복문>

for (반복) 명령문 : 반복 형태에 따라 명령문 수행

while (조건) 명령문 : 조건이 참인경우에만 명령문 수행

repaet 명령문 : 정지명령 내리기 전까지 수행, 분기문 반드시 포함해야한다.

 

for(),while():조건확인 후 수행여부 결정, repeat():명령문 먼저 수행

> ##<반복문> > ##for (반복) 명령문 : 반복 형태에 따라 명령문 수행 > ##while (조건) 명령문 : 조건이 참인경우에만 명령문 수행 > ##repaet 명령문 : 정지명령 내리기 전까지 수행, 분기문 반드시 포함해야한다. > > ##for(),while():조건확인 후 수행여부 결정, repeat():명령문 먼저 수행 > > ##ex1)for()문을 이용하여 1,2,3,4값 출력하기 > for(i in 1:4) print(i) [1] 1 [1] 2 [1] 3 [1] 4 > > ##ex2) > x<-c(5,6,7,8) > n<-length(x) > xx<-rep(0,n);xxx<-c() > for(j in 1:n){ + xx[j]<-xxx[j]<-x[j]^2 + } > xx; xxx [1] 25 36 49 64 [1] 25 36 49 64 > > ##연습) 1~10 까지의 누적 곱을 계산하시오 > sum<-1; > for(i in 1:10){ + sum=sum*i + } > > ##연습)100에서 200까지 누적합 > isum<-0 > y<-data.frame(i=0, isum=0) > for(i in 100:200){ + if(i==101) y<-y[-1,] + isum<-isum+i + x<-data.frame(i,isum) + y<-rbind(y,x) + } > > ##자연수 1~n 더했을 때 100 넘으면 100과 가장 가까운 수 n 구하기 > n<-0 > sum.far<-0 > while(sum.far<=100){ + n<-n+1 + sum.far<-sum.far+n + } > n; sum.far [1] 14 [1] 105

##<예제>

1)ifelse함수 이용하여 total>=20인 경우 pass 아니면 fail을 test컬럼에 입력

2)if(조건)명령문1 else 명령문2 를 이용하여 위 결과를 test1 컬럼에 입력

3)total>=20  인경우 pass 

  15<=total<20 인 경우 ND

  total<15 인 경우 fail을 test2 컬럼에 입력

#Q1) mpg$test <- ifelse(mpg$total>=20, "pass", "fail") #Q2) for(i in 1:dim(mpg)[1]){ mpg$test1[i]<-if(mpg$total[i]>=20) 'pass' else 'fail' } #Q3) for(i in 1:dim(mpg)[1]){ mpg$test2[i]<-if(mpg$total[i]>=20) 'pass' else if(mpg$total[i]<15) 'fail' else 'ND' } ##더 간단한 표현 ifelse사용 mpg$test3<-ifelse(mpg$total>=20,'pass', ifelse(mpg$total<15, 'fail', 'ND'))