
library(testthat)

source("user_code.R")
test_that("mean_control is correct", {
  expect_true(exists("mean_control"), info = "mean_control should exist.")
  expect_type(mean_control, "double")
  expect_equal(mean_control, mean(c(5.2, 4.8, 5.0)), tolerance = 1e-8)
})

test_that("mean_treated is correct", {
  expect_true(exists("mean_treated"), info = "mean_treated should exist.")
  expect_type(mean_treated, "double")
  expect_equal(mean_treated, mean(c(7.1, 7.3, 6.9)), tolerance = 1e-8)
})

test_that("test_result is a t.test object and result is correct", {
  expect_true(exists("test_result"), info = "test_result should exist.")
  expect_s3_class(test_result, "htest")
  expect_equal(test_result$p.value, t.test(c(5.2, 4.8, 5.0), c(7.1, 7.3, 6.9))$p.value, tolerance = 1e-8)
})

test_that("interpretation is a string and matches p-value significance", {
  expect_true(exists("interpretation"), info = "interpretation should exist.")
  expect_type(interpretation, "character")
  pval <- test_result$p.value
  if (pval < 0.05) {
    expect_equal(interpretation, "There is a statistically significant difference in gene expression between control and treated samples.")
  } else {
    expect_equal(interpretation, "There is no statistically significant difference in gene expression between control and treated samples.")
  }
})

test_main.R

生物学者およびバイオインフォマティクス研究者向けに特化した、Rプログラミングの実践的な入門コースです。Rを用いて生物学データの解析、可視化、解釈を学び、ゲノミクス、生態学、実験生物学の実例を通じて理解を深めます。

生物学データに焦点を当てたRプログラミングの基本を学びます。変数、データ型、基本的なデータ操作を含みます。

生物データを分析するための統計手法に深く踏み込み、要約統計量、仮説検定、結果の解釈などを含みます。

Rを使用して生物学データの可視化技術を習得し、基本的なプロットから実験に関連する高度な可視化までを網羅します。

ゲノムスタイルのデータを扱い、Rで科学研究のための再現可能なワークフローを開発する方法を学びます。

チャレンジ：再現可能な解析

解答