Created database-free classification procedure (needs accuracy check) and cleaned up R script output