ms4gage = NULL

for (i in mset_SMPDB_format_KEGG){
  pathname = i[[2]]
  x = list(i[[3]])
  names(x) = pathname
  ms4gage = append(ms4gage, x)
}