#Input files
if (FALSE) {
assocpair_result <- system.file(
"extdata", "shared_mutations_result_for_tartan.csv", package="SeqFeatR")
assocpair_result2 <- system.file(
"extdata", "assocpair_results.csv", package="SeqFeatR")
#Usage
tartan(
path_to_file_assocpair_csv_result=assocpair_result,
path_to_file_assocpair_csv_result2=assocpair_result2,
save_name_pdf="tartan_plot.pdf",
space=5,
colors=c("wheat", "darkblue", "black", "green"),
name_positions=c(1,30),
names=c("S","F"),
ticks=c(10,30),
first_position_1=2,
second_position_1=3,
value_1=4,
first_position_2=2,
second_position_2=3,
value_2=11,
with_distance_matrix=FALSE,
path_to_distance_matrix=NULL)
}Run the code above in your browser using DataLab