\SweaveOpts{width=15,height=12}

\setkeys{Gin}{width=0.8\textwidth}

\begin{figure}[H]

\centering

<<fig=T,keep.source=TRUE>>= 

par(mfrow=c(1,2))

curve(dnorm(x,mean=1,sd=sqrt(2)),lwd=2,from=-6,to=17,ylab="Densidade")

curve(dnorm(x,mean=10,sd=sqrt(2)),col=2,lwd=2,add=T)

legend('topright',legend=c(expression(mu==1),expression(mu==10)),text.col=c(1,2),cex=1.5,bty="n")

title("Comparando a distribuição normal com médias diferentes")

curve(dnorm(x,mean=4,sd=sqrt(3)),lwd=2,from=-15,to=25,ylab="Densidade")

curve(dnorm(x,mean=4,sd=sqrt(20)),col=2,lwd=2,add=T)

legend('topright',legend=c(expression(sigma^2==3),expression(sigma^2==20)),text.col=c(1,2),cex=1.5,bty="n")

title("Comparando a distribuição normal com variâncias diferentes")

@

\caption{Curva normal}

\label{curvas}

\end{figure}

Tem como acertar isto? 

obrigado 

André Oliveira Souza.
Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo.  IFES