data-raw/04-data.frame.R

In acidgenomics/acidData: Acid Genomics Test Data

## nolint start
suppressPackageStartupMessages({
    library(usethis)
})
## nolint end
object <-
    data.frame(
        "genotype" = factor(
            x = c(
                "wildtype",
                "knockout",
                "wildtype",
                "knockout"
            ),
            levels = c("wildtype", "knockout")
        ),
        "treatment" = factor(
            x = c(
                "control",
                "control",
                "treated",
                "treated"
            ),
            levels = c("control", "treated")
        ),
        row.names = c(
            "sample1",
            "sample2",
            "sample3",
            "sample4"
        )
    )
data.frame <- object # nolint
use_data(data.frame, compress = "xz", overwrite = TRUE)