CreateOutputDF: Create Output Dataframe

In lissettegomez/coMethDMR: Accurate identification of co-methylated and differentially methylated regions in epigenome-wide association studies

Description

Create Output Dataframe

Usage

CreateOutputDF(
  keepCpGs_df,
  keepContiguousCpGs_df,
  CpGsOrdered_df,
  returnAllCpGs = FALSE
)

Arguments

keepCpGs_df	a data frame with CpG = CpG name, keep = indicator for co-methylated CpG, r_drop = correlation between the CpG with rest of the CpGs
keepContiguousCpGs_df	a data frame with ProbeID = CpG name, Subregion = contiguous comethylated subregion number
CpGsOrdered_df	a data frame of CpG location with chr = chromosome number, pos = genomic position, cpg = CpG name
returnAllCpGs	indicates if outputting all the CpGs in the region when there is not a contiguous comethylated region or only the CpGs in the contiguous comethylated regions

Value

a data frame with CpG = CpG name, Chr = chromosome number, MAPINFO = genomic position, r_drop = correlation between the CpG with rest of the CpGs, keep = indicator for co-methylated CpG, keep_contiguous = contiguous comethylated subregion number

Examples

   data(betasChr22_df)
   CpGsChr22_char<-c("cg02953382", "cg12419862", "cg24565820", "cg04234412",
      "cg04824771", "cg09033563", "cg10150615", "cg18538332", "cg20007245",
      "cg23131131", "cg25703541")
   CpGsOrdered_df <- OrderCpGsByLocation(
      CpGsChr22_char, arrayType="450k", output = "dataframe"
   )
   betaCluster_mat <- betasChr22_df[CpGsOrdered_df$cpg,]
   betaClusterTransp_mat <- t(betaCluster_mat)
   keepCpGs_df <- MarkComethylatedCpGs(betaCluster_mat = betaClusterTransp_mat)
   keepContiguousCpGs_df <- FindComethylatedRegions(CpGs_df = keepCpGs_df)
   CreateOutputDF(keepCpGs_df, keepContiguousCpGs_df, CpGsOrdered_df)

lissettegomez/coMethDMR documentation built on April 25, 2021, 1:10 p.m.