draft codes analyseGO.R