statisfactions

midi <- function(title="R-created Midi", bpm=120){
  ## Creates empty "midi" object that tracks can be inserted into
  
  options(scipen=7) ## avoids writing anything here in scientific notation

  ## Create new data.frame and add headers
  newdf <- data.frame(matrix(nrow=7,ncol=7))
  names(newdf) <- c("tracknum", "time", "type","channel", "note", "velocity", "tempoonly")
  newdf[1,] <- c(0,0, "Header", 1, 1, 480, NA)
  newdf[2,] <- c(1,0, "Start_track", NA, NA, NA, NA)