Rのサイクルと判断

ループ文:
1.while(condition){
expression
}
リストpを巡回し、その値を印刷する

p<-list('a','b','c')
index<-1
while(index<=length(p)){
	print(p[index])
	index<-index+1
}

2.for (n in x) ｛
expression
}
リストpを巡回し、その値を印刷します.

p<-list('a','b','c')
for(index in 1:length(p)){
	print(p[index])
}

**********
判定文:
1.if (conditon) {expression1} else {expression2}
リストpを巡って、要素が「b」の下付きと値を印刷します.

p<-list('a','b','c')
for(index in 1:length(p)){
        if(p[index]=='b'){
		print(p[index])
		print(index)
	}
	
}

2.ifelse(condition,'val1,'val2')
三目演算子のようにconditionが真であればval 1でなければval 2である
list pを巡回して、要素が'b'の下付き文字を印刷して、bでないならNANを印刷します:

p<-list('a','b','c')
for(index in 1:length(p)){
        val<-ifelse(p[index]=='b',index,'NAN')
        print(val)
	
}