按照教程的步骤进行绘制，但是这一步一直报错，找不到原因，差了很多地方好像都是这么编写指令的，求解答

cal1<-calibrate(fit1, method='boot',B=1000) Error in calibrate(fit1, method = "boot", B = 1000) : 参数没有用(method = "boot", B = 1000)