繰り返し for

いつも忘れるので書いておこう

a = 0 に2を3回足す

a<-0

for(i in 1:3){
a<-a+2}

a

=6

#x=3に2を3回足す式
#3+2+2+2=9

myf <- function(x){
  x<-3　　 #ｘは3から開始
  for(i in 1:3){ 　　#x<-x+2でｘを書き直して３回繰り返し
    x<-x+2}
    return(x)
    }

myf()

#Xに2を3回加える式
#x+2+2+2
#xに5を代入すると5+2+2+2=11

myf<-function(x){
a<-x
for(i in 1:3){
a<-a+2}
return(a)
}
myf(5)

#Xに3を掛けることを3回繰り返す
#X*3*3*3
#xに5を代入すると
5*3*3*3

myf<-function(x){
for(i in 1:3){
x<-x*3}
return(x)
}
myf(5)

#10にｘを3回加える式
#10+x+x+x
#x=2のとき10+2+2+2=16

myf<-function(x){
a<-10
for(i in 1:3){
a<-a+x}
return(a)
}
myf(2)