###data prepration###
# \donttest{
{
# Load data
data("Two_group")
# Define color based on treatment column
mycolor <- Two_group$configuration$treat_col
### DESeq analysis ###
deseq_results <- Deseq_analysis(
taxobj = Two_group,
taxlevel = "Genus",
cutoff = 1,
control_name = "Control"
)
### Or indicator analysis ###
indicator_results <- indicator_analysis(
taxobj = Two_group,
taxlevel = "Genus"
)
# Create volcano plot for DESeq results
volcano_plot <- volcano_plot(
inputframe = deseq_results,
cutoff = 1,
aes_col = mycolor
)
print(volcano_plot$FC_FDR) # Fold Change and FDR values
print(volcano_plot$Mean_FC) # Mean Fold Change values
# Create volcano plot for indicator results
volcano_plot <- volcano_plot(
inputframe = indicator_results,
cutoff = 1,
aes_col = mycolor
)
print(volcano_plot$FC_FDR) # Fold Change and FDR values
print(volcano_plot$Mean_FC) # Mean Fold Change values
}
# }
Run the code above in your browser using DataLab