Função exponencial

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 -3 e 3
options(OutDec=",")
x <- seq(-3,3,length=100)

# Definir função exponencial: f(x) = 2^x
y <- function(x1) {2^x1}

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