\begin{Schunk}
\begin{Sinput}
 par(mfcol=c(1,2))
 plot(avasfit$x, avasfit$tx,ylab="transformed x",xlab="original x")
 plot(avasfit$y, avasfit$ty,ylab="transformed y",xlab="original y")
\end{Sinput}
\end{Schunk}
