
library(testthat)

source("user_code.R")
test_that("creates a histogram of expression", {
  expect_silent(hist(sample_data$expression, main = "Histogram of Gene Expression", xlab = "Expression Level"))
})

test_that("creates a boxplot of expression by treatment", {
  expect_silent(boxplot(expression ~ treatment, data = sample_data, main = "Expression by Treatment", xlab = "Treatment", ylab = "Expression Level"))
})

test_that("creates a scatterplot of expression vs time", {
  expect_silent(plot(sample_data$time, sample_data$expression, main = "Expression Over Time", xlab = "Time (hours)", ylab = "Expression Level", pch = 19, col = "blue"))
})

test_that("histogram_conclusion is a non-empty string", {
  env <- new.env()
  sys.source("user_code.R", envir = env)
  expect_true(exists("histogram_conclusion", envir = env), info = "histogram_conclusion variable does not exist")
  val <- get("histogram_conclusion", envir = env)
  expect_type(val, "character")
  expect_true(nzchar(val), info = "histogram_conclusion is an empty string")
})

test_that("boxplot_conclusion is a non-empty string", {
  env <- new.env()
  sys.source("user_code.R", envir = env)
  expect_true(exists("boxplot_conclusion", envir = env), info = "boxplot_conclusion variable does not exist")
  val <- get("boxplot_conclusion", envir = env)
  expect_type(val, "character")
  expect_true(nzchar(val), info = "boxplot_conclusion is an empty string")
})

test_that("scatterplot_conclusion is a non-empty string", {
  env <- new.env()
  sys.source("user_code.R", envir = env)
  expect_true(exists("scatterplot_conclusion", envir = env), info = "scatterplot_conclusion variable does not exist")
  val <- get("scatterplot_conclusion", envir = env)
  expect_type(val, "character")
  expect_true(nzchar(val), info = "scatterplot_conclusion is an empty string")
})

test_main.R

Una introducción práctica a la programación en R diseñada para biólogos y bioinformáticos. Aprenda a analizar, visualizar e interpretar datos biológicos utilizando R, con ejemplos reales de genómica, ecología y biología experimental.

Aprende los conceptos esenciales de la programación en R con un enfoque en datos biológicos, incluyendo variables, tipos de datos y manipulación básica de datos.

Profundización en métodos estadísticos para analizar datos biológicos, incluyendo estadísticas descriptivas, pruebas de hipótesis e interpretación de resultados.

Domina el arte de visualizar datos biológicos utilizando R, desde gráficos básicos hasta visualizaciones más avanzadas relevantes para experimentos.

Aprende a trabajar con datos de estilo genómico y a desarrollar flujos de trabajo reproducibles para la investigación científica en R.

Challenge: Visualización de Datos Experimentales

Solución