\begin{Schunk}
\begin{Sinput}
 t.test(dat$age, mu = 46, alternative = "less")
\end{Sinput}
\begin{Soutput}
	One Sample t-test

data:  dat$age
t = 4.5289, df = 4491, p-value = 1
alternative hypothesis: true mean is less than 46
95 percent confidence interval:
     -Inf 47.55629
sample estimates:
mean of x 
 47.14159 
\end{Soutput}
\end{Schunk}
