การเขียนฟังก์ชัน

R ระดับกลาง

Filip Schouwenaars

DataCamp Instructor

เมื่อใดควรเขียนฟังก์ชันเอง?

• แก้ปัญหาเฉพาะเจาะจงที่กำหนดไว้ชัดเจน
• หลักการ Black box
• หากทำงานได้ กลไกภายในไม่สำคัญ

ฟังก์ชัน triple()

ฟังก์ชัน triple()

my_fun <- function(arg1, arg2) {
  body
}

ฟังก์ชัน triple()

triple <- function(arg1, arg2) {
  body
}

ฟังก์ชัน triple()

triple <- function(x) {
  body
}

ฟังก์ชัน triple()

triple <- function(x) {
  3 * x
}

ฟังก์ชัน triple()

triple <- function(x) {
  3 * x
}

ls()

"triple"

triple(6)

18

• ค่า 6 ชนิด Numeric จับคู่กับอาร์กิวเมนต์ x (ตามตำแหน่ง)
• body ของฟังก์ชันถูกรัน: 3 * 6
• นิพจน์สุดท้าย = ค่าที่ return

return()

triple <- function(x) {
  y <- 3 * x
  return(y)
}

triple(6)

18

ฟังก์ชัน math_magic()

ฟังก์ชัน math_magic()

ฟังก์ชัน math_magic()

ฟังก์ชัน math_magic()

my_fun <- function(arg1, arg2) {
  body
}

ฟังก์ชัน math_magic()

math_magic <- function(arg1, arg2) {
  body
}

ฟังก์ชัน math_magic()

math_magic <- function(a, b) {
  body
}

ฟังก์ชัน math_magic()

math_magic <- function(a, b) {
  a*b + a/b
}

math_magic(4, 2)

10

math_magic(4)

Error: argument "b" is missing, with no default

อาร์กิวเมนต์ที่มีค่าเริ่มต้น

math_magic <- function(a, b = 1) {
  a*b + a/b
}

math_magic(4)

8

math_magic(4, 0)

Inf

การใช้ return()

math_magic <- function(a, b = 1) {
  if(b == 0){
    return(0)
  }
  a*b + a/b
}

math_magic(4, 0)

0

มาฝึกกันเถอะ!

R ระดับกลาง