Universidade Federal da Paraíba

Programa de Pós-Graduação em Economia do Setor Público

# Criar sequências de 100 números ordenados entre 0,5 e 3
options(OutDec=",")
x <- seq(0.5,3,length=100)

# Definir função logarítmica: f(x) = log10(x)
y <- function(x1) {log10(x1)}

plot(x,y(x),type="l",bty="l",cex.lab=0.8,col="blue",lwd=2,las=1,
     main=expression(f(x) == log10(x)),ylab=expression(f(x)))
grid(col=grey(0.80))