Simulate data, protein, with config
sim_lfq_data_protein_config(
Nprot = 10,
with_missing = TRUE,
weight_missing = 0.2,
seed = 1234,
paired = FALSE
)
x <- sim_lfq_data_protein_config()
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
stopifnot("data.frame" %in% class(x$data))
stopifnot("AnalysisConfiguration" %in% class(x$config))
x <- sim_lfq_data_protein_config(with_missing = FALSE)
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
stopifnot(sum(is.na(x$data$abundance)) == 0)
# debug(sim_lfq_data_protein_config)
xp <- sim_lfq_data_protein_config(with_missing = FALSE, paired = TRUE)
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
stopifnot(length(xp$config$table$factors) == 2)
stopifnot(nrow(xp$data) == nrow(x$data))