1.026586 2.009046 1.971255 2.073800 #Получили коэффициенты модели

Прогноз для графика вычисляем, используя коэффициенты модели и данные

p<-read.table("task-6.6-01.dat",header=T)

…

M.coef<-coef(M.ridge)

y.prd<-M.coef[1] + as.matrix(p[,1:3]) %*% M.coef[-1]

plot(y.prd,p$y,main="",xlab="Прогноз",ylab="данные",pch=20,cex=2)

abline(0,1,lwd=3)