# Create a sample data frame with p-values and log fold changes
sample_data <- data.frame(
adj.P.Val = c(0.03, 0.06, 0.02, 0.07),
logFC = c(1.5, 0.8, -1.2, 1.1),
gene = c("Gene1", "Gene2", "Gene3", "Gene4")
)
# Use the filter_diff_genes function to filter significant genes
filtered_genes <- filter_diff_genes(sample_data)
print(filtered_genes)
Run the code above in your browser using DataLab