fixed a bug: last.G.col = ncol(data)-9 to last.G.col = ncol(data)