# Confidence or prediction interval for in-sample prediction?

I'm trying to make a plot of the uncertainty interval of in-sample prediction

library("stats")
Y_in_sample <- Y$V1 - arma$residuals

std <- sd(Y_in_sample)