len <- apply(SNV[1:15], 2, function(x){mutation.count <- length(which(x == 1))});
create.barplot(
# filename = tempfile(pattern = 'Using_SNV_dataset', fileext = '.tiff'),
formula = len ~ colnames(SNV[1:15]) ,
data = SNV,
main = 'SNV dataset',
xaxis.rot = 45,
ylimits = c(0,30),
yat = seq(0,30,5),
description = 'Barplot created by BoutrosLab.plotting.general'
);
Run the code above in your browser using DataLab