# Example 1: Simple data
df <- data.frame(sample = c("m1", "m1", "m1", "m1", "m1",
"m2", "m2", "m2", "m2", "m2"),
CHROM = c("PB1", "PB1", "PB2", "PB2", "PB2",
"PB1", "PB1", "PB2", "PB2", "PB2"),
annotation = c("downstrean_gene_variant", "synonymous_variant",
"synonymous_variant", "stop_gained", "missense_variant",
"downstrean_gene_variant", "downstrean_gene_variant",
"synonymous_variant", "stop_gained", "missense_variant")
)
df
snv_segment(df)
# Example 2: Sample data
snv_segment(example_filtered_SNV_df)
Run the code above in your browser using DataLab