NBA <- read.csv("NBA_train.csv")

NBA$PTSdiff <- NBA$PTS - NBA$oppPTS

WinsReg <- lm(W ~ PTSdiff, data = NBA)

expected_PTSdiff <- (49 - coef(WinsReg)[1]) / coef(WinsReg)[2]

expected_PTSdiff
## (Intercept) 
##    245.5017

The expected points difference for a team with 49 wins is approximately 246 points. Based on the WinsReg model, a team would need to outscore its opponents by about 246 points over the course of the season to be expected to reach 49 wins and qualify for the playoffs.