KMStuff <-function(data,average.risk,topHits,numGroups,cuts,geneList) {

  LT = T

  cuts <- as.numeric(cuts)

  numGroups <- as.numeric(numGroups)

  OUT <- MakeKM(data,average.risk,topHits,LT,numGroups,cuts,geneList)

  #KM <- OUT$KM_Plot

  #Mut <- OUT$mut_Plot

  #survSum <- OUT$SurvSum

  #MajorCasesKM <- OUT$MajorCasesKM

  PieChart <- OUT$PieChart

  GenesUsed <- OUT$GenesUsed

  #coMutPlot <- OUT$coMutation

  return(list(#"KMPlot" = KM,"MutPlot" =Mut,"SurvSumTable"=survSum,

              "PieChart" = PieChart,"GenesUsed"=GenesUsed))#,"MajorCasesKM" =MajorCasesKM,"coMutPlot" = coMutPlot))

}

#test2 <- KMStuff(test$data.out,test$average.risk,test$topHits,2,0.5)