Respostas dos Exercícios em R

EXERCÍCIOS DE GRÁFICOS
1.

# Plota grafico
plot(iris$Sepal.Length,iris$Sepal.Width,
xlab = "Sepal Length",
ylab = "Sepal Width"
main = "Grafico 1");
# Acrescenta linha horizontal
abline(h=3, col="red")

2.

hist(iris$Sepal.Length, col = "blue", main = "Histograma de Sepal Length")

A distribuição de Sepal Length se aproxima de uma distribuição normal.

3.
Cálculo das correlações:

cor(iris[,-5])

Mapa de Calor:

ggplot(data = melt(cor(iris[,-5])), aes(x=Var1, y=Var2, fill=value)) +
geom_tile()

EXERCÍCIOS DE FUNÇÕES
1.

SomaUm = function(x) {
y=x*x
return(y)
}

2.

SomaProdutoN = function(x,n=1){
soma=x+n
prod=x*n
print(paste0("A soma é: ",soma))
print(paste0("O produto é: ",prod))
}

3.

# Funcao ValorPresent recebe taxa anual, data inicial e final e retorna VP
ValorPresent = function(vf,r,dataFinal,dataInicial){
if (dataInicial < dataFinal) {
vp=vf/((1+r)^(as.numeric(difftime(dataFinal,dataInicial,units="weeks"))/52.25))
return(vp)
}
else {print("Datas em ordem invertida!")
}
}

4.

xycov = function(x,y,) {
x_mean = mean(x);
y_mean = mean(y);
soma=0;
for (i in 1:length(x)) {
soma = soma + (x[i]-x_mean)*(y[i]-y_mean);
}
cov = soma/length(x);
return(cov);
}

Você pode fazer o download do preço das ações no Yahoo Finance.

Para importar, basta utilizar o código já ensinado nesse post.

5.

# fluxo de caixa
cf = c(-100000,15000,15000,15000,15000,15000);
# taxa de juros r = 0.1;</pre>
# funcao VPL VPL = function(fluxo,i){
soma = 0; for (n in 1:length(fluxo)){
x = fluxo[n]/((1+i)^(n-1)); soma = soma + x;
}
return(soma);
}
calcula VPL VPL (cf,r)