first commit working R scripts for GAPIT analysis