#vector related R code ##vector

# creat vector
Age <- c(4,6,5,7,5)
#view vector
Age#age of children
## [1] 4 6 5 7 5

other type of vector

a <-  1:10
a
##  [1]  1  2  3  4  5  6  7  8  9 10
b <- seq(1,4, by =0.5)
b
## [1] 1.0 1.5 2.0 2.5 3.0 3.5 4.0
c <- rep(1:3, each=3)
c
## [1] 1 1 1 2 2 2 3 3 3

##select position of vector

Age[4]
## [1] 7
Age[-4]
## [1] 4 6 5 5
 Age[2:4]
## [1] 6 5 7
 Age[-(2:4)]
## [1] 4 5

##mathmetical sign

Age[Age==5]
## [1] 5 5
Age+5
## [1]  9 11 10 12 10
Age-2
## [1] 2 4 3 5 3

#Loop function ##sequance (for loop)

for (i in 20:25){
  k <- i-5
  print(k)
}
## [1] 15
## [1] 16
## [1] 17
## [1] 18
## [1] 19
## [1] 20