Chương 1

1 + 2

## [1] 3

3 + 3

## [1] 6

4 / 3

## [1] 1.333333

7 %/% 3      # chia lấy phần nguyên

## [1] 2

7 %% 3       # chia lấy phần dư

## [1] 1

class(4L)

## [1] "integer"

class(3**6)

## [1] "numeric"

3^6

## [1] 729

3**6

## [1] 729

"hello world"

## [1] "hello world"

x = 2
x

## [1] 2

y <- "hola"
y

## [1] "hola"

(y <- "visible")

## [1] "visible"

x = 1:36
x

##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
## [26] 26 27 28 29 30 31 32 33 34 35 36

length(x)

## [1] 36

length("hola")

## [1] 1

length(c("ab cd","abcd"))   # thêm c() để nối 2 vector

## [1] 2

nchar("1234 holisit")       # đo độ dài chuỗi

## [1] 12

(v <- 1:18)

##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18

v[12]

## [1] 12

n <- c("hello","1234","a","b","C")

n[1:3]        # hiển thị phần tử vị trí 1 đến 3

## [1] "hello" "1234"  "a"

n[c(2,4)]     # hiển thị phần tử vị trí 2 và 4

## [1] "1234" "b"

v %% 2 == 0

##  [1] FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE
## [13] FALSE  TRUE FALSE  TRUE FALSE  TRUE

v[v %% 2 == 0]    # các phần tử chia hết cho 2

## [1]  2  4  6  8 10 12 14 16 18

v[v %% 3 == 0]

## [1]  3  6  9 12 15 18

p <- c("A" = 1, "B" = 2, "C" = 3)   # gán tên
p

## A B C 
## 1 2 3

names(p) <- c("ten 1","ten 2","ten 3")
p

## ten 1 ten 2 ten 3 
##     1     2     3

x <- 1:4
y <- 3:6

x^2 - y

## [1] -2  0  4 10

ham_mu3_tong <- function(m, n) {
  mu_3 <- m * 3
  mu_3 + n
}

ham_mu3_tong(1:3, c(7,3,1))

## [1] 10  9 10

chuoi <- 1:36
mean(chuoi)

## [1] 18.5

t <- 4
if (t < 2) ("sai") else ("wowowowowo")

## [1] "wowowowowo"

p <- c(1,4,7)
ifelse(t > p, "meo", "gau")

## [1] "meo" "gau" "gau"

ham <- function(x) {
  if (x %% 2 == 0) {
    x^2
  } else {
    x
  }
}

ham <- Vectorize(ham)
ham(1:5)

## [1]  1  4  3 16  5

ham_1 <- function(x)
  ifelse(x %% 2 == 0, x^2, x)

ham_1(1:5)

## [1]  1  4  3 16  5

beta <- c("bo","re","hdpe","thi","ngon","luon")

for (i in beta) {
  if (nchar(i) >= 3) {
    print(i)
  }
}

## [1] "hdpe"
## [1] "thi"
## [1] "ngon"
## [1] "luon"

wtf <- c(1,4,6)

tong_1 <- 0
for (i in wtf) tong_1 <- tong_1 + i
tong_1

## [1] 11

tong_2 <- 0
for (i in seq_along(wtf)) tong_2 <- tong_2 + i
tong_2

## [1] 6