powered by
getSelHeat(init_data = NULL, heatdat = NULL, count = NULL)
x <- getSelHeat()
Run the code above in your browser using DataLab