data <- data.frame(
pg_protein_accessions = c(rep("protein_1", 10)),
diff = c(2, -3, 1, 2, 3, -3, 5, 1, -0.5, 2),
adj_pval = c(0.001, 0.01, 0.2, 0.05, 0.002, 0.5, 0.4, 0.7, 0.001, 0.02),
start = c(1, 3, 5, 10, 15, 25, 28, 30, 41, 51),
end = c(6, 8, 10, 16, 23, 35, 35, 35, 48, 55)
)
calculate_aa_scores(
data,
protein = pg_protein_accessions,
diff = diff,
adj_pval = adj_pval,
start_position = start,
end_position = end
)
Run the code above in your browser using DataLab