vbit

for functions demo

data=airquality$Ozone

for( i in 1:5)
{
  print(i)
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5

for( i in 1:length(data))
{
  print(data[i])
}

## [1] 41
## [1] 36
## [1] 12
## [1] 18
## [1] NA
## [1] 28
## [1] 23
## [1] 19
## [1] 8
## [1] NA
## [1] 7
## [1] 16
## [1] 11
## [1] 14
## [1] 18
## [1] 14
## [1] 34
## [1] 6
## [1] 30
## [1] 11
## [1] 1
## [1] 11
## [1] 4
## [1] 32
## [1] NA
## [1] NA
## [1] NA
## [1] 23
## [1] 45
## [1] 115
## [1] 37
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] 29
## [1] NA
## [1] 71
## [1] 39
## [1] NA
## [1] NA
## [1] 23
## [1] NA
## [1] NA
## [1] 21
## [1] 37
## [1] 20
## [1] 12
## [1] 13
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] NA
## [1] 135
## [1] 49
## [1] 32
## [1] NA
## [1] 64
## [1] 40
## [1] 77
## [1] 97
## [1] 97
## [1] 85
## [1] NA
## [1] 10
## [1] 27
## [1] NA
## [1] 7
## [1] 48
## [1] 35
## [1] 61
## [1] 79
## [1] 63
## [1] 16
## [1] NA
## [1] NA
## [1] 80
## [1] 108
## [1] 20
## [1] 52
## [1] 82
## [1] 50
## [1] 64
## [1] 59
## [1] 39
## [1] 9
## [1] 16
## [1] 78
## [1] 35
## [1] 66
## [1] 122
## [1] 89
## [1] 110
## [1] NA
## [1] NA
## [1] 44
## [1] 28
## [1] 65
## [1] NA
## [1] 22
## [1] 59
## [1] 23
## [1] 31
## [1] 44
## [1] 21
## [1] 9
## [1] NA
## [1] 45
## [1] 168
## [1] 73
## [1] NA
## [1] 76
## [1] 118
## [1] 84
## [1] 85
## [1] 96
## [1] 78
## [1] 73
## [1] 91
## [1] 47
## [1] 32
## [1] 20
## [1] 23
## [1] 21
## [1] 24
## [1] 44
## [1] 21
## [1] 28
## [1] 9
## [1] 13
## [1] 46
## [1] 18
## [1] 13
## [1] 24
## [1] 16
## [1] 13
## [1] 23
## [1] 36
## [1] 7
## [1] 14
## [1] 30
## [1] NA
## [1] 14
## [1] 18
## [1] 20

x<-c("a","c","d","ff")
for (i in 1:4)
{
  print(x[i])
}

## [1] "a"
## [1] "c"
## [1] "d"
## [1] "ff"

for( i in seq_along((x)))
 {
  
  print(x[i])
}

## [1] "a"
## [1] "c"
## [1] "d"
## [1] "ff"

for( letter in x)
{
  print(letter)
}

## [1] "a"
## [1] "c"
## [1] "d"
## [1] "ff"

x1<-matrix(1:6,2,3)
for(i in seq_len(nrow(x1))){
  for( j in seq_len(ncol(x1))){
  print(paste(x1[i],x1[j]))
  }
}

## [1] "1 1"
## [1] "1 2"
## [1] "1 3"
## [1] "2 1"
## [1] "2 2"
## [1] "2 3"

x<-matrix(1:6,2,3)
y<-matrix(1:6,2,3)
for(i in seq_len(nrow(x))){
  for( j in seq_len(ncol(x))){
  print(paste(x[i,j],y[i,j]))
  }
}

## [1] "1 1"
## [1] "3 3"
## [1] "5 5"
## [1] "2 2"
## [1] "4 4"
## [1] "6 6"