mae for while

maewhile.R

startTime <- Sys.time()

y<-c(10,8,6,4,2)
x<-c(5,4,3,2,1)
n<-length(y)

toplam=0

i <- 1
while (i <= n) {
  diff=y[i]-x[i]
  toplam=toplam+diff
  i <- i + 1

}


sonuc=toplam/n
print(sonuc)

endTime <- Sys.time()

print(endTime-startTime )



#Output

#startTime <- Sys.time()
# 
# y<-c(10,8,6,4,2)
# x<-c(5,4,3,2,1)
# n<-length(y)
#
# toplam=0
# 
# i <- 1
# while (i <= n) {
#  diff=y[i]-x[i]
#   toplam=toplam+diff
#   i <- i + 1
# 
# }
#
#
# sonuc=toplam/n
# print(sonuc)
#[1] 3
# 
# endTime <- Sys.time()
# 
# print(endTime-startTime )
#Time difference of 0.009809256 secs