Lab5

Laboratorio 5

Se utilizan los precios de las acciones de CocaCola desde el 01-01-2019 hasta el 01-01-2020

La cantidad de observaciones totales que se tienen es de:

length(Novocure)

## [1] 252

Gráfico de las observaciones

plot(tsNovoCure)

Los valores a utilizar son los siguientes

coef(fit)

##     sigma        mu 
## 0.2065828 0.2614891

sigma

##           KO.close
## KO.close 0.2079857

mu

##           KO.close
## KO.close 0.2615976

Se aplican 1000 simulaciones y se muestran en el siguiente gráfico

gbm_df %>%
  ggplot(aes(x=ix, y=price, color=sim)) +
  geom_line() +
  theme(legend.position = 'none')

El siguiente gráfico muestra la densidad de las simulaciones

data.frame(price = gbm[257, ]) %>%
  ggplot(aes(x = price)) +
  geom_histogram(aes(y = ..density..), binwidth = 0.1) +
  geom_density() + 
  ggtitle('terminal price distribution')

## Warning: The dot-dot notation (`..density..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(density)` instead.

El valor que se predice para el día 5 es el siguiente:

D$x[which.max(D$y)]

## [1] 55.62348