ประเมินประสิทธิผลของการรักษาด้วยเซลล์ต้นกำเนิด (ต่อ)

ทดสอบสมมติฐานและคำนวณค่า p-value เพื่อประเมินว่ามีความแตกต่างระหว่างค่าเฉลี่ยของความสามารถในการสูบฉีดเลือดของหัวใจแกะในกลุ่มควบคุมและกลุ่มทดลองหรือไม่

เนื่องจากกำลังทดสอบความแตกต่าง ลำดับการลบจึงมีความสำคัญ สามารถกำหนดลำดับได้ผ่านอาร์กิวเมนต์ order ในฟังก์ชัน calculate() ตัวอย่างเช่น หากต้องการคำนวณ group1 - group2 ให้ใช้ order = c("group1", "group2")

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การอนุมานสำหรับข้อมูลเชิงตัวเลขใน R

ดูคอร์ส

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

n_replicates <- 1000

# Generate 1000 differences in means via randomization
diff_mean_ht <- stem.cell %>%
  # y ~ x
  specify(___ ~ ___) %>% 
  # Null = no difference between means
  hypothesize(null = "___") %>% 
  # Shuffle labels 1000 times
  generate(reps = ___, type = "___") %>% 
  # Calculate test statistic
  calculate(stat = "___", order = c("esc", "___")

แก้ไขและรันโค้ด