require(ggplot2)
data(exData)
### setwd("")
### run function
table(exData$species)
pre <- preprocess(files = system.file("extdata", exData$fastafiles, package="rKOMICS"),
groups = exData$species,
circ = TRUE, min = 500, max = 1200, writeDNA = FALSE)
pre$summary
### visualize results
barplot(pre$N_MC[,"beforefiltering"],
names.arg = pre$N_MC[,1], las=2, cex.names=0.4)
### alter plot
pre$plot + labs(caption = paste0('N of MC sequences before and after filtering, ', Sys.Date()))
Run the code above in your browser using DataLab