Y.tilde <- rep(0, times=10)

dput(list(Y.tilde=Y.tilde), "dput_output.txt")