updates to clean2track.R
after line 79 add:
if ( !("c1" %in% names(datain) ) ) datain$c1<-rep(NA,times=nrow(datain))
if ( !("c1m" %in% names(datain) ) ) datain$c1m<-rep(NA,times=nrow(datain))
and change NEW_TRACK_INPUT -> TRACK_INPUT