
library(testthat)

source("user_code.R")
test_that("geneA_sample1 is 5.2", {
  expect_true(exists("geneA_sample1"), info = "geneA_sample1 does not exist.")
  expect_equal(geneA_sample1, 5.2, tolerance = 1e-8, info = "geneA_sample1 is not equal to 5.2.")
})

test_that("geneA_sample2 is 6.8", {
  expect_true(exists("geneA_sample2"), info = "geneA_sample2 does not exist.")
  expect_equal(geneA_sample2, 6.8, tolerance = 1e-8, info = "geneA_sample2 is not equal to 6.8.")
})

test_that("geneA_sample3 is 7.1", {
  expect_true(exists("geneA_sample3"), info = "geneA_sample3 does not exist.")
  expect_equal(geneA_sample3, 7.1, tolerance = 1e-8, info = "geneA_sample3 is not equal to 7.1.")
})

test_that("geneA_expression vector is correct", {
  expect_true(exists("geneA_expression"), info = "geneA_expression does not exist.")
  expect_true(is.numeric(geneA_expression), info = "geneA_expression is not numeric.")
  expect_equal(length(geneA_expression), 3, info = "geneA_expression does not have length 3.")
  expect_equal(geneA_expression, c(5.2, 6.8, 7.1), tolerance = 1e-8, info = "geneA_expression does not contain the correct values in the correct order.")
})

test_that("geneA_mean is correct", {
  expect_true(exists("geneA_mean"), info = "geneA_mean does not exist.")
  expect_equal(geneA_mean, mean(c(5.2, 6.8, 7.1)), tolerance = 1e-8, info = "geneA_mean does not contain the correct mean value.")
})

test_main.R

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

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

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

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

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

チャレンジ：生物学的変数とベクトル

解答