data(example_counts)
data(example_annotation)
# Run FracFixR
results <- FracFixR(example_counts, example_annotation,parallel=FALSE)
# Run differential testing
diff_results <- DiffPropTest(results,
Conditions = c("Control", "Treatment"),
Types = "Heavy_Polysome",
Test = "GLM")
# Create volcano plot
volcano <- PlotComparison(diff_results,
Conditions = c("Control", "Treatment"),
Types = "Heavy_Polysome")
Run the code above in your browser using DataLab