\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{p} \hlkwb{<-} \hlkwd{hist}\hlstd{(d}\hlopt{$}\hlstd{dist,} \hlkwc{probability} \hlstd{=} \hlnum{TRUE}\hlstd{,} \hlkwc{col}\hlstd{=}\hlstr{"grey"}\hlstd{)}
\hlstd{xvals} \hlkwb{<-} \hlkwd{seq}\hlstd{(}\hlnum{0}\hlstd{,} \hlnum{120}\hlstd{,} \hlnum{.20}\hlstd{)}  \hlcom{# значения по оси абсцисс от 0 до 120 с шагом 0,2}
\hlkwd{lines}\hlstd{(xvals,} \hlkwd{dweibull}\hlstd{(xvals,} \hlkwc{shape}\hlstd{=fit}\hlopt{$}\hlstd{estimate[}\hlnum{1}\hlstd{],} \hlkwc{scale}\hlstd{=fit}\hlopt{$}\hlstd{estimate[}\hlnum{2}\hlstd{]))}
\end{alltt}
\end{kframe}
\includegraphics[width=\maxwidth]{figure/cars7-1} 

\end{knitrout}