522270 - Quiz1 (Class01-02)

หากต้องการให้ได้ผลลัพธ์ดังนี้

2 5 8 11 14 17 20 23

ควรเขียน R script อย่างไร?

seq(from =​​​​ (a)   , to =​ (b)   , by =​ (c)   )

• 2
• 25
• 3
• 26
• 26
• 0
• 4

จาก R script ดังแสดงด้านล่าง

a <- rep(c(1, 3, 5, 7, 9), each=3)

ผลลัพธ์ a[5] ในข้อใดถูกต้องที่สุด

• 1

• 3

• 5

• 7

• 9

จาก R script ที่แสดงด้านล่าง

matA <- matrix(1:15, nrow = 3, ncol = 5)

matB <- matA*2

matC <- matB[-2,-1]

ผลลัพธ์ของ matC ในข้อใดถูกต้องที่สุด?

• 
• 
• 
• ผิดทุกข้อ

จาก R script ที่แสดงในภาพ

ผลลัพธ์ในข้อใดถูกต้องที่สุด?

• [1] 1

  [1] 2

  [1] 4

  [1] 6

  [1] 8

  [1] 10

• [1] 1

  [1] 3

  [1] 5

  [1] 7

  [1] 9

• [1] 1

  [1] 2

  [1] 4

  [1] 8

• [1] 1

  [1] 4

จาก R script ที่แสดงดังภาพ

ผลลัพธ์ของ z คือ

จากข้อมูล

temp <- list(c(3,7,5,6,-1), c(6,9,10,4,5), c(2,8,3,-2,3), c(1,4,-5,2,2), c(0,7,-1,4,2), c(-3,5,7,-4,4), c(3,-3,1,4,1))

หากต้องการผลลัพธ์ตามด้านล่าง

[1] -1 4 -2 -5 -1 -4 -3

ควรเขียน R script อย่างไร

​ (a)   (temp, ​ (b)   )

• sapply
• min
• lapply
• max
• mean
• tapply

จาก R script ด้านล่าง

cities <- c("Bangkok", "Nakhon Ratchasima", "Chiang Rai")

sum_cities <- sum(unlist(lapply(cities, nchar)))

ผลลัพธ์ของ sum_cities คือ

จากข้อมูลและ R script

linkedin <- list(5, 9, 10, 5, 3, 20, 14)

facebook <- list(9, 7, 5, 16, 8, 13, 10)

social <- c(unlist(linkedin),unlist(facebook))

หากต้องการให้ได้ผลลัพธ์ดังแสดงด้านล่างนี้

[1] 3 5 5 5 7 8 9 9 10 10 13 14 16 20

ควรเขียน R script ตามข้อใด

• sort(social, decreasing = FALSE)

• sort(social)

• ถูกทั้งสองข้อ

• ผิดทั้งสองข้อ

รูปแบบ (format) ของวันที่ ดังที่แสดงด้านล่าง

string <- "18/March/2023"

หากต้องการแปลงข้อมูล string ให้อยู่ในรูปแบบวันที่ ควรใช้ format แบบใด

date <- as.​ (a)   (string, format = "​​ (b)   ")

• Date
• %d/%B/%Y
• POSIXct
• Time
• %d/%b/%Y
• %d/%B/%y

จากข้อมูล

emails <- c("[e-mail]", "[e-mail]",

"[e-mail]", "invalid.edu", "[e-mail]", "[e-mail]")

หากต้องการผลลัพธ์ของ emails[hits] ดังที่แสดงด้านล่าง

[1] "[e-mail]" "[e-mail]"

ควรเขียน R script ตามข้อใด

• hits <- grep("@.*.edu$", emails)

• hits <- grepl("@.*.edu$", emails)

• hits <- grepl("@.*\\.edu$", emails)

• hits <- grep("@.*\\.edu$", emails)