Skip to content

การสุ่ม

การสุ่ม (Randomization) เป็นหนึ่งในหลักการพื้นฐานของแผนการทดลอง ซึ่งช่วยให้การประมาณค่าความคลาดเคลื่อนจากการทดลอง (Experimental error) มีความถูกต้อง ซึ่งจำเป็นอย่างยิ่งสำหรับการเปรียบเทียบทรีตเมนต์ การสุ่มเป็นกระบวนการจัดสรรทรีตเมนต์เพื่อให้แต่ละแปลงทดลองมีโอกาสเท่ากันในการได้รับทรีตเมนต์ใดๆ

กระบวนการสุ่มสามารถทำได้โดยใช้ ตารางเลขสุ่ม (Table of random numbers) หรือการ จับฉลาก (Drawing lots) ตัวอย่างต่อไปนี้แสดงทั้งสองวิธีสำหรับการสุ่มและวางแผนผังแปลงในแผนการทดลองแบบสุ่มสมบูรณ์ในบล็อก (RCB) ที่มี 6 ทรีตเมนต์ และ 4 ซ้ำ

วิธีการใช้ตารางเลขสุ่ม (เก่าแล้ว)

Section titled “วิธีการใช้ตารางเลขสุ่ม (เก่าแล้ว)”

วิธีการจับฉลาก

Section titled “วิธีการจับฉลาก”

ยังสามารถใช้ได้ เมื่อมีจำนวนทรีตเมนต์ไม่มากนัก โดยมีขั้นตอนดังนี้: 1. เตรียมฉลาก: เขียนหมายเลข 1 ถึง 6 (เนื่องจากมี 6 ทรีตเมนต์) ลงบนกระดาษขนาดเท่าๆ กัน 6 แผ่น พับและใส่ในกล่อง

  1. สุ่มหยิบ: เขย่ากล่องเพื่อให้ฉลากผสมกันอย่างทั่วถึง จากนั้นหยิบฉลากขึ้นมาทีละใบ บันทึกหมายเลขไว้ และทำซ้ำจนกว่าจะครบทั้ง 6 ใบโดยไม่ต้องใส่กลับคืน

  2. กำหนดทรีตเมนต์: กำหนดหมายเลขที่จับได้เป็น “หมายเลขทรีตเมนต์” และลำดับที่หยิบได้เป็น “หมายเลขแปลง” เช่นเดียวกับวิธีก่อนหน้า

  3. ทำซ้ำ: ทำขั้นตอนเดียวกันสำหรับบล็อกที่เหลือทั้งหมด

วิธีการสุ่มด้วยเทคโนโลยีสมัยใหม่

Section titled “วิธีการสุ่มด้วยเทคโนโลยีสมัยใหม่”

ในปัจจุบัน นักวิจัยนิยมใช้ซอฟต์แวร์คอมพิวเตอร์เพื่อความรวดเร็ว แม่นยำ และสามารถตรวจสอบย้อนกลับได้ (Reproducibility)

การใช้โปรแกรมตารางคำนวณ (Excel หรือ Google Sheets)

Section titled “การใช้โปรแกรมตารางคำนวณ (Excel หรือ Google Sheets)”

เป็นวิธีที่สะดวกที่สุดสำหรับงานวิจัยทั่วไป มีขั้นตอนดังนี้:

  1. พิมพ์หมายเลขทรีตเมนต์ (เช่น 1 ถึง 6) ลงในคอลัมน์ A

  2. ในคอลัมน์ B ให้ใช้ฟังก์ชัน =RAND() เพื่อสร้างตัวเลขสุ่มระหว่าง 0 ถึง 1

  3. ทำการจัดเรียงข้อมูล (Sort) คอลัมน์ A โดยยึดตามค่าในคอลัมน์ B จากน้อยไปหามาก ลำดับที่ได้ใหม่ในคอลัมน์ A คือลำดับทรีตเมนต์ที่สุ่มแล้วในบล็อกนั้นๆ

ข้อแนะนำ: บันทึก seed number ไว้เพื่อความสามารถในการทำซ้ำ (reproducibility)

การใช้โปรแกรมทางสถิติ (R, SAS, GenStat)

Section titled “การใช้โปรแกรมทางสถิติ (R, SAS, GenStat)”

นักวิจัยข้าวนานาชาตินิยมใช้ภาษา R ร่วมกับแพ็กเกจ agricolae ซึ่ออกแบบมาเพื่อการทดลองทางการเกษตรโดยเฉพาะ

  • ข้อดี: สามารถสร้างแผนผังแปลง (field layout) และวิเคราะห์ข้อมูลต่อได้ทันที
  • รองรับ: สนับสนับกับแผนการทดลองหลายประเภท
  • ฟรี: เป็นซอฟต์แวร์ฟรีและโอเพนซอร์ซ
การติดตั้งแพ็กเกจ agricolae
Section titled “การติดตั้งแพ็กเกจ agricolae”
# ติดตั้งแพ็กเกจ
install.packages("agricolae")
library(agricolae)
# กำหนดกรรมวิธี
treatments <- c("T1", "T2", "T3", "T4", "T5", "T6")
replications <- 4
# สร้างแผนผังแปลง RCB
design <- design.rcbd(treatments, r = replications, serie = 2)
# แสดงผล
design$book
การวิเคราะห์ข้อมูลด้วย agricolae
Section titled “การวิเคราะห์ข้อมูลด้วย agricolae”
# กำหนดข้อมูล
yields <- c(4.5, 5.2, 4.8, 5.1, 3.9, 4.3, 4.7, 4.2, 5.0, 4.6, 4.4, 4.9)
treatments <- rep(c("T1", "T2", "T3", "T4", "T5", "T6"), 4)
blocks <- rep(c(1, 2, 3, 4), 6)
# สร้าง data frame
data <- data.frame(yield, treatments, blocks)
# วิเคราะห์ ANOVA
aov_model <- aov(yield ~ treatments + blocks, data = data)
summary(aov_model)
# เปรียบเทียบค่าเฉลี่ย (LSD)
lsd_test <- LSD.test(data$yield, data$treatments, dferror = 15, MSerror = 0.25)
lsd_test$groups

การใช้ SAS สำหรับการทดลองข้าว

Section titled “การใช้ SAS สำหรับการทดลองข้าว”

SAS เป็นซอฟต์แวร์ทางสถิติที่มักใช้ในองค์รัฐ ซึ่งเหมาะสมสำหรับการวิเคราะห์ข้อมูลทดลองขนาดใหญ่

/* PROC ANOVA สำหรับ RCB */
PROC ANOVA DATA=Rice;
CLASS block treatment;
MODEL yield = block treatment;
MEANS treatment / LSD;
RUN;

การใช้ GenStat สำหรับการทดลองข้าว

Section titled “การใช้ GenStat สำหรับการทดลองข้าว”

GenStat เป็นซอฟต์แวร์ที่เหมาะสมสำหรับการทดลองทางการเกษตร เพราะมีอินเทอร์เฟส GUI ที่ใช้ง่าย

  1. Design: เลือกแผนการทดลองที่ต้องการ (RCB, Latin Square, Split-plot ฯลฯ)
  2. Analysis: วิเคราะห์ ANOVA และเปรียบเทียบค่าเฉลี่ย
  3. Graphics: สร้างกราฟและแผนผังแปลง

การใช้โปรแกรมทางสถิติ R (แพ็กเกจ agricolae)

Section titled “การใช้โปรแกรมทางสถิติ R (แพ็กเกจ agricolae)”

นักวิจัยข้าวนานาชาตินิยมใช้ภาษา R ร่วมกับแพ็กเกจ agricolae [@agricolae] ซึ่งออกแบบมาเพื่อการทดลองทางการเกษตรโดยเฉพาะ

  • ข้อดี: สามารถสร้างแผนผังแปลง (Field Layout) และวิเคราะห์ข้อมูลต่อได้ทันที

  • ตัวอย่างคำสั่ง:

library(agricolae)
treatments <- c("T1", "T2", "T3", "T4", "T5", "T6")
design <- design.rcbd(treatments, r = 4, serie = 2)
design$book

เครื่องมือสุ่มออนไลน์ (Online Randomization Tools)

Section titled “เครื่องมือสุ่มออนไลน์ (Online Randomization Tools)”

เว็บไซต์อย่าง Random.org หรือเครื่องมือเฉพาะทางด้านการเกษตร ช่วยให้นักวิจัยสามารถสร้างลำดับสุ่มที่มีความบริสุทธิ์สูง (True Randomness) ได้อย่างรวดเร็วโดยไม่ต้องติดตั้งโปรแกรม

สรุป: ไม่ว่าจะใช้วิธีใด สิ่งสำคัญที่สุดคือต้องบันทึกวิธีการสุ่มและรหัสที่ใช้ (Seed number) ไว้ในสมุดบันทึกเพื่อให้ผู้อื่นสามารถตรวจสอบหรือทำซ้ำกระบวนการเดียวกันได้ในอนาคต