A function that simply sets all values to NA which were previously found by median value comparison and p-value calculation and are stored in a summary. The summary defines which values in the data matrix are set to NA.
any matrix filled with beta values, column names have to be sample_ids corresponding to the ids listed in "samples", row names have to be gene names.
data frame with two columns, the first column has to contain the sample numbers, the second column has to contain the corresponding batch number. Colnames have to be named as "sample_id" and "batch_id".
a summary data.frame containing the columns "gene", "batch",
"median" and "p-value" and consists of all genes which were found in the
median and p-value calculations, see
All entries belonging to genes stated in the summary are set to NA
for the corresponding batches in the data matrix. Please look at the
more detailed information about the data which should be contained in the
A data matrix with the same dimensions as well as the same column and row names as the input data matrix is returned, all entries which are defined in the summary are now set to NA.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
## Shortly running example. For a more realistic example that takes ## some more time, run the same procedure with the full BEclearData ## dataset. ## Whole procedure that has to be done to use this function. data(BEclearData) ex.data <- ex.data[31:90,7:26] ex.samples <- ex.samples[7:26,] # Calculate median difference values and p-values library(data.table) samples <- data.table(ex.samples) data <- data.table(feature=rownames(ex.data), ex.data) data <- melt(data = data, id.vars = "feature", variable.name = "sample", value.name = "beta.value") setkey(data, "feature", "sample") meds <- calcMedians(data=data, samples=samples) pvals <- calcPvalues(data=data, samples=samples) # Summarize p-values and median differences for batch affected genes sum <- calcSummary(medians=meds, pvalues=pvals) # Set values for summarized BEgenes to NA clearedMatrix <- clearBEgenes(data=ex.data, samples=ex.samples, summary=sum)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.