# NOT RUN {
len <- apply(SNV[1:15], 2, function(x){mutation.count <- length(which(x == 1))});
create.barplot(
filename = paste0(tempdir(),'/Using_SNV_dataset.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