README

{batsch} provides real-time PCR data sets by Batsch et al. (2008) in tidy format. There are five data sets bundled with this package, one for each PCR target:

Each data set comprises a five-point, four-fold dilution series. For each concentration there are three replicates. Each amplification curve is 45 cycles long.

Installation

# Install from CRAN
install.packages("batsch")

# install.packages("remotes")
remotes::install_github("ramiromagno/batsch")

Usage

Rat SLC6A14

library(batsch)

SLC6A14r |>
  ggplot(mapping = aes(
    x = cycle,
    y = fluor,
    group = interaction(dilution, replicate),
    col = as.factor(dilution)
  )) +
  geom_line(linewidth = 0.5) +
  labs(y = "Raw fluorescence", colour = "Dilution factor", title = "Rat SLC6A14") +
  guides(color = guide_legend(override.aes = list(size = 0.5)))

Human SLC22A13

SLC22A13h |>
  ggplot(mapping = aes(
    x = cycle,
    y = fluor,
    group = interaction(dilution, replicate),
    col = as.factor(dilution)
  )) +
  geom_line(linewidth = 0.5) +
  labs(y = "Raw fluorescence", colour = "Dilution factor", title = "Human SLC22A13") +
  guides(color = guide_legend(override.aes = list(size = 0.5)))

Pig EMT

EMTp |>
  ggplot(mapping = aes(
    x = cycle,
    y = fluor,
    group = interaction(dilution, replicate),
    col = as.factor(dilution)
  )) +
  geom_line(linewidth = 0.5) +
  labs(y = "Raw fluorescence", colour = "Dilution factor", title = "Pig EMT") +
  guides(color = guide_legend(override.aes = list(size = 0.5)))

Chicken ETT

ETTch |>
  ggplot(mapping = aes(
    x = cycle,
    y = fluor,
    group = interaction(dilution, replicate),
    col = as.factor(dilution)
  )) +
  geom_line(linewidth = 0.5) +
  labs(y = "Raw fluorescence", colour = "Dilution factor", title = "Chicken ETT") +
  guides(color = guide_legend(override.aes = list(size = 0.5)))

Human GAPDH

GAPDHh |>
  ggplot(mapping = aes(
    x = cycle,
    y = fluor,
    group = interaction(dilution, replicate),
    col = as.factor(dilution)
  )) +
  geom_line(linewidth = 0.5) +
  labs(y = "Raw fluorescence", colour = "Dilution factor", title = "Human GAPDH") +
  guides(color = guide_legend(override.aes = list(size = 0.5)))

Code of Conduct

Please note that the {batsch} project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.

batsch