
library(testthat)

source("user_code.R")
library(testthat)

source("user_code.R")
test_that("data directory contains sample data CSV", {
  expect_true(file.exists("data/sample_data.csv"),
    info = "sample_data.csv should exist in data directory")
})

test_that("results directory contains analysis results CSV", {
  expect_true(file.exists("results/analysis_results.csv"),
    info = "analysis_results.csv should exist in results directory")
})

test_that("scripts directory contains R analysis script", {
  expect_true(file.exists("scripts/analysis_script.R"),
    info = "analysis_script.R should exist in scripts directory")
})

test_that("main directory contains README file", {
  expect_true(file.exists("README.txt"),
    info = "README.txt should exist in main directory")
})

test_that("project_files includes all created directories and files", {
  out_user_code <- capture.output(source("user_code.R"))
  expect_true(any(grepl("data/sample_data.csv", out_user_code)),
    info = "data/sample_data.csv should be listed in project_files")
  expect_true(any(grepl("results/analysis_results.csv", out_user_code)),
    info = "results/analysis_results.csv should be listed in project_files")
  expect_true(any(grepl("scripts/analysis_script.R", out_user_code)),
    info = "scripts/analysis_script.R should be listed in project_files")
  expect_true(any(grepl("README.txt", out_user_code)),
    info = "README.txt should be listed in project_files")
})

test_main.R

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

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

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

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

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

チャレンジ：共有と協働

解答