\begin{Schunk}
\begin{Sinput}
 library(acepack)
 avasfit <- avas(x, y)
 plot(avasfit$tx, avasfit$ty,main="avas Function With the Sine Wave Data",xlab="transformed values of x",ylab="transformed values of y",type="n")
 points(avasfit$tx, avasfit$ty,cex=0.5)
 abline(lm(avasfit$ty~avasfit$tx))
\end{Sinput}
\end{Schunk}
