View source: R/util_SitesToRegion.R
| SitesToRegion | R Documentation |
Output contiguous co-edited subregions found by
FindCorrelatedRegions function and filtered by
GetMinPairwiseCor function.
SitesToRegion( sitesSubregion_df, sitesAreOrdered = TRUE, keepminPairwiseCor_df, returnAllSites = FALSE, verbose = TRUE )
sitesSubregion_df |
An output data frame from function
|
sitesAreOrdered |
Are the sites in |
keepminPairwiseCor_df |
An output data frame from function
|
returnAllSites |
When no contiguous co-edited regions are found in
a input genomic region, |
verbose |
Should messages and warnings be displayed? Defaults to TRUE. |
A GRanges object with seqnames, ranges and
strand of the contiguous co-edited regions.
data(t_rnaedit_df)
ordered_cols <- OrderSitesByLocation(
sites_char = colnames(t_rnaedit_df),
output = "vector"
)
exm_data <- t_rnaedit_df[, ordered_cols]
exm_sites <- MarkCoeditedSites(
rnaEditCluster_mat = exm_data,
method = "spearman"
)
exm_regions <- FindCorrelatedRegions(
sites_df = exm_sites,
featureType = "site"
)
exm_sites <- split(
x = exm_regions$site,
f = exm_regions$subregion
)
exm_cor <- GetMinPairwiseCor(
rnaEditCluster_mat = exm_data,
minPairCorr = 0.1,
probes_ls = exm_sites,
method = "spearman"
)
SitesToRegion(
sitesSubregion_df = exm_regions,
keepminPairwiseCor_df = exm_cor$keepminPairwiseCor_df
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.