Tried running these codes, but ran into "Error in t(x.og) %*% y.og : non-conformable arguments"

#Original output gap estimate

x.og <- cbind(rep(1,T+4), 1:(T+4), c(rep(0,56),1:(T+4-56)), c(rep(0,142),1:(T+4-142)))

y.og <- log.output[5:(T+8)]

output.gap <- (y.og - x.og %*% solve(t(x.og) %*% x.og, t(x.og) %*% y.og)) * 100

Thanking you for the help.