data(CompValues)
Tdata <- seq(-40, 85, by=5)
R_id <- c(43, 36, 29, 15, 9, 3)
Res <- CompValues$Res
ThVal <- CompValues$ThVal
ThBeta <- CompValues$ThBeta
SquaredLoss(R_id, Res, ThVal, ThBeta, Tdata)
### 0.04066336
Run the code above in your browser using DataLab