вычисление y_pred в регрессии наименьших квадратов (R)?

У меня проблемы с вычислением y_pred в регрессии наименьших квадратов. Идея примерно такая:

mydata <- read.csv("G:\\sample.csv",header=T)
x<-rep(mydata$wavelength,each=119)
y<-c(mydata$v1,....mydata$v119)
lm(y~x)

Образцы данных можно загрузить по адресу: https://drive.google.com/file/d/0B86_a8ltyoL3Y3BhU2xFVVo5dnM/view?usp=sharing

В файле переменная «Длина волны» - это x, где для каждого x есть несколько значений y, измеренных в разное время, как указано переменными от V1 до V119.

Я не уверен, что регрессия y (множественный) ~ x (один) ... Может ли кто-нибудь помочь вычислить y_pred в этом случае?

Большое спасибо!