x=seq(-5,5,0.5)

y=x^2

plot(x,y,type='l',main="Teste",xlab='X',

ylab='Y',col='red')

lines(x,x+10,col='blue')

Jodavid Ferreira
Responsável pela comissão de Comunicação do MJ da RCCPB - http://jovem.rccpb.com.br
Responsável pelo Ministério Jovem e de Comunicação do Grupo de Oração Boa Esperança - http://grupoboaesperanca.com
Bacharelando em Estatística - UFPB
Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - http://de.ufpb.br/~leapig
Site Pessoal - http://jodavidferreira.com