
library(testthat)

source("user_code.R")
test_that("perform_t_test returns correct structure and types", {
  result <- perform_t_test(c(1, 2, 3), c(4, 5, 6))
  expect_true(is.list(result), info = "Result should be a list.")
  expect_true("p_value" %in% names(result), info = "List should contain 'p_value'.")
  expect_true("significant" %in% names(result), info = "List should contain 'significant'.")
  expect_true(is.numeric(result$p_value), info = "'p_value' should be numeric.")
  expect_true(is.logical(result$significant), info = "'significant' should be logical.")
})

test_that("perform_chi_squared_test returns correct structure and types", {
  result <- perform_chi_squared_test(c(10, 20, 30), c(12, 18, 30))
  expect_true(is.list(result), info = "Result should be a list.")
  expect_true("p_value" %in% names(result), info = "List should contain 'p_value'.")
  expect_true("significant" %in% names(result), info = "List should contain 'significant'.")
  expect_true(is.numeric(result$p_value), info = "'p_value' should be numeric.")
  expect_true(is.logical(result$significant), info = "'significant' should be logical.")
})

test_that("t-test detects significant difference when means differ", {
  group1 <- c(2, 2, 2, 2, 2)
  group2 <- c(10, 10, 10, 10, 10)
  result <- perform_t_test(group1, group2)
  expect_true(result$significant, info = "Should be significant when means are far apart.")
})

test_that("t-test detects non-significance when means are similar", {
  group1 <- c(5, 5, 5, 5, 5)
  group2 <- c(5.1, 5, 5, 5, 5)
  result <- perform_t_test(group1, group2)
  expect_false(result$significant, info = "Should not be significant when means are very close.")
})

test_that("chi-squared test detects significance for large frequency differences", {
  observed <- c(100, 10, 10)
  expected <- c(40, 40, 40)
  result <- perform_chi_squared_test(observed, expected)
  expect_true(result$significant, info = "Should be significant for large differences in frequencies.")
})

test_that("chi-squared test detects non-significance for similar frequencies", {
  observed <- c(10, 20, 30)
  expected <- c(10, 20, 30)
  result <- perform_chi_squared_test(observed, expected)
  expect_false(result$significant, info = "Should not be significant when observed and expected are equal.")
})

test_main.R

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

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

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

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

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

チャレンジ：生物データによる仮説検定

解答