Activity 13

#WinsReg= 1m(w ~ ptsDIFF, DATA=nba)
#49=41+0.326*(X)
x_1=(49-41)/0.0326
x_1

[1] 245.3988

Activity 14

Threepts_made<-c(4, 5, 3, 6, 7) 
Threepts_attmpt<-c(9, 10, 8, 11, 12)

Three_pts_pct=Threepts_made/Threepts_attmpt
Three_pts_pct

[1] 0.4444444 0.5000000 0.3750000 0.5454545 0.5833333

mean(Three_pts_pct)

[1] 0.4896465