# NOT RUN {
data(example_data)
syn_polar <- polar_coords(sampledata = syn_example_meta,
contrast = "Pathotype",
groups = NULL,
pvalues = syn_example_p,
expression = syn_example_rld,
p_col_suffix = "pvalue",
padj_col_suffix = "padj",
non_sig_name = "Not Significant",
multi_group_prefix = "LRT",
significance_cutoff = 0.01,
fc_col_suffix='log2FoldChange',
fc_cutoff = 0.3)
subset <- significance_subset(syn_polar, "Lymphoid+", "polar_df")
# }
Run the code above in your browser using DataLab