How To Calculate Sst In R