Thanks you for help

2011/4/13 Peter Alspach <Peter.Alspach@plantandfood.co.nz>

> Tena koe Fabiane
>
> ?par
>
> In particular, various cex. parameters.  These can be used with plot (e.g.,
> plot(x, y, cex.axis=1.2))
>
> HTH ....
>
> Peter Alspach
>
> > -----Original Message-----
> > From: r-help-bounces@r-project.org [mailto:r-help-bounces@r-
> > project.org] On Behalf Of Fabiane Silva
> > Sent: Wednesday, 13 April 2011 11:23 a.m.
> > To: r-help@r-project.org
> > Subject: [R] font and size times New Roman
> >
> > Hello
> >
> > I wonder how to change the font of
> > chart to Times New Roman and size 9.
> >
> > plot(c(0,100,20),c(0,600,50), xlab= 'Idade(meses)', ylab="Peso(kg)",
> > type = "n", axes=F)
> >
> > axis(1, pos=0, at=seq(0,100,20))
> > axis(2, pos=0,  at=seq(0,600,100))
> > t<- seq(0,100,1)
> > TA=543.56*(1-0.8976*exp(-0.0522*t))
> > NI=498.97*(1-0.9259*exp(-0.0494*t))
> > RC=514.57*(1-0.9112*exp(-0.0499*t))
> > TS=553.47*(1-0.9119*exp(-0.0535*t))
> >
> > lines(t, TA, col='black',lty=1, lwd=4)
> > lines(t, NI, col="black", lty=2, lwd=4)
> > lines(t, RC, col='black',lty=3, lwd=4)
> > lines(t, TS, col='black',lty=4, lwd=4)
> > legend(40,200, legend = c("A=553,47 kg k=0,0535","A=543,56 kg
> > k=0,0522","A=514,57 kg k=0,0499","A=498,97 kg k=0,0494"),
> > col=c("black"), cex=0.8, lwd=4, lty=c(4,1,3,2))
> >
> > Attached is the graphic I need to make these changes
> >
> > Thanks
>
> The contents of this e-mail are confidential and may be subject to legal
> privilege.
>  If you are not the intended recipient you must not use, disseminate,
> distribute or
>  reproduce all or any part of this e-mail or attachments.  If you have
> received this
>  e-mail in error, please notify the sender and delete all material
> pertaining to this
>  e-mail.  Any opinion or views expressed in this e-mail are those of the
> individual
>  sender and may not represent those of The New Zealand Institute for Plant
> and
>  Food Research Limited.
>

	[[alternative HTML version deleted]]

