for ( i in 1:34) {
for( j in 15:51)
y.1 <- y[i : j]
x.1 <- 1:15
y.lm <- lm(y.1 ~ x.1)
alpha[i] <- unname(y.lm$coefficients[2])
}

The length of variable (based on 'x.1') is different