R/tidyMS_MQ_workflow.R
filter_difference.Rd
get the difference of two dataset where one is a subset of the other.
filter_difference(x, y, config)
data.frame
data.frame
AnlysisConfiguration
data.frame
istar <- prolfqua::sim_lfq_data_peptide_config()
#> creating sampleName from fileName column
#> Warning: no nr_children column specified in the data, adding column nr_children and setting to 1.
#> completing cases
istar$config <- istar$config
istar_data <- istar$data
filterPep <- prolfqua:::filter_proteins_by_peptide_count( istar_data , istar$config )
#> Column added : nr_peptide_Id_IN_protein_Id
tmp <- filter_difference(istar_data, filterPep$data, istar$config)
stopifnot(nrow(istar_data ) - nrow(filterPep$data) == nrow(tmp))
tmp <- filter_difference(filterPep$data, istar_data , istar$config)
stopifnot(nrow(istar_data ) - nrow(filterPep$data) == nrow(tmp))