การสุ่ม
การสุ่ม (Randomization) เป็นหนึ่งในหลักการพื้นฐานของแผนการทดลอง ซึ่งช่วยให้การประมาณค่าความคลาดเคลื่อนจากการทดลอง (Experimental error) มีความถูกต้อง ซึ่งจำเป็นอย่างยิ่งสำหรับการเปรียบเทียบทรีตเมนต์ การสุ่มเป็นกระบวนการจัดสรรทรีตเมนต์เพื่อให้แต่ละแปลงทดลองมีโอกาสเท่ากันในการได้รับทรีตเมนต์ใดๆ
วิธีการสุ่ม
Section titled “วิธีการสุ่ม”กระบวนการสุ่มสามารถทำได้โดยใช้ ตารางเลขสุ่ม (Table of random numbers) หรือการ จับฉลาก (Drawing lots) ตัวอย่างต่อไปนี้แสดงทั้งสองวิธีสำหรับการสุ่มและวางแผนผังแปลงในแผนการทดลองแบบสุ่มสมบูรณ์ในบล็อก (RCB) ที่มี 6 ทรีตเมนต์ และ 4 ซ้ำ
วิธีการใช้ตารางเลขสุ่ม (เก่าแล้ว)
Section titled “วิธีการใช้ตารางเลขสุ่ม (เก่าแล้ว)”วิธีการจับฉลาก
Section titled “วิธีการจับฉลาก”ยังสามารถใช้ได้ เมื่อมีจำนวนทรีตเมนต์ไม่มากนัก โดยมีขั้นตอนดังนี้: 1. เตรียมฉลาก: เขียนหมายเลข 1 ถึง 6 (เนื่องจากมี 6 ทรีตเมนต์) ลงบนกระดาษขนาดเท่าๆ กัน 6 แผ่น พับและใส่ในกล่อง
-
สุ่มหยิบ: เขย่ากล่องเพื่อให้ฉลากผสมกันอย่างทั่วถึง จากนั้นหยิบฉลากขึ้นมาทีละใบ บันทึกหมายเลขไว้ และทำซ้ำจนกว่าจะครบทั้ง 6 ใบโดยไม่ต้องใส่กลับคืน
-
กำหนดทรีตเมนต์: กำหนดหมายเลขที่จับได้เป็น “หมายเลขทรีตเมนต์” และลำดับที่หยิบได้เป็น “หมายเลขแปลง” เช่นเดียวกับวิธีก่อนหน้า
-
ทำซ้ำ: ทำขั้นตอนเดียวกันสำหรับบล็อกที่เหลือทั้งหมด
วิธีการสุ่มด้วยเทคโนโลยีสมัยใหม่
Section titled “วิธีการสุ่มด้วยเทคโนโลยีสมัยใหม่”ในปัจจุบัน นักวิจัยนิยมใช้ซอฟต์แวร์คอมพิวเตอร์เพื่อความรวดเร็ว แม่นยำ และสามารถตรวจสอบย้อนกลับได้ (Reproducibility)
การใช้โปรแกรมตารางคำนวณ (Excel หรือ Google Sheets)
Section titled “การใช้โปรแกรมตารางคำนวณ (Excel หรือ Google Sheets)”เป็นวิธีที่สะดวกที่สุดสำหรับงานวิจัยทั่วไป มีขั้นตอนดังนี้:
-
พิมพ์หมายเลขทรีตเมนต์ (เช่น 1 ถึง 6) ลงในคอลัมน์ A
-
ในคอลัมน์ B ให้ใช้ฟังก์ชัน
=RAND()เพื่อสร้างตัวเลขสุ่มระหว่าง 0 ถึง 1 -
ทำการจัดเรียงข้อมูล (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
# สร้างแผนผังแปลง RCBdesign <- 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 framedata <- data.frame(yield, treatments, blocks)
# วิเคราะห์ ANOVAaov_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 ที่ใช้ง่าย
- Design: เลือกแผนการทดลองที่ต้องการ (RCB, Latin Square, Split-plot ฯลฯ)
- Analysis: วิเคราะห์ ANOVA และเปรียบเทียบค่าเฉลี่ย
- 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) ไว้ในสมุดบันทึกเพื่อให้ผู้อื่นสามารถตรวจสอบหรือทำซ้ำกระบวนการเดียวกันได้ในอนาคต