El impacto causal del óbito del Sr. Botín en la cotización bursátil del benemérito Banco de Santander

El Sr. Botín, presidente que fue del Banco de Santander, falleció el 2014-09-10. Cabe preguntarse por el impacto causal à la Google de no continuidad de su gestión a cargo de dicha institución.

Comienzo pues.

Primero los datos:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
library(tseries)
library(CausalImpact)

santander <- get.hist.quote(instrument="san.mc",
    start= Sys.Date() - 365*3,
    end= Sys.Date(), quote="AdjClose",
    provider="yahoo", origin="1970-01-01",
    compression="d", retclass="zoo")

bbva <- get.hist.quote(instrument="bbva.mc",
    start= Sys.Date() - 365*3,
    end= Sys.Date(), quote="AdjClose",
    provider="yahoo", origin="1970-01-01",
    compression="d", retclass="zoo")

ibex <- get.hist.quote(instrument="^IBEX",
    start= Sys.Date() - 365*3,
    end= Sys.Date(), quote="AdjClose",
    provider="yahoo", origin="1970-01-01",
    compression="d", retclass="zoo")

obito.botin <- as.Date("2014-09-10")

cotizaciones <- cbind(santander, bbva, ibex)
cotizaciones <- cotizaciones[!is.na(cotizaciones$AdjClose.ibex)]

Con lo anterior, he bajado las cotizaciones diarias de las acciones del Banco de Santander, las del BBVA y la del IBEX 35 durante los últimos tres años. Eso deja la fecha de la muerte del Sr. Botín, aproximadamente, en la mitad.

Los datos que descargo de Yahoo! son el cierre ajustado, que tiene en cuenta el efecto de los dividendos, los splits, etc. en las distintas cotizaciones.

Ahora voy a ver qué me cuenta CausalImpact, i.e.,

1
2
3
impact <- CausalImpact(cotizaciones,
    c(min(index(cotizaciones)), obito.botin - 1),
    c(obito.botin, max(index(cotizaciones))))

sobre el efecto causal motivo de esta entrada. Lo que hace la función, lo miráis por ahí. Pero mirad los resultados:

1
plot(impact, metrics = c("original", "pointwise"))

genera

causal_impact_santander

que indica (y summary(impact) cuantifica) cómo, de acuerdo con los tejemanejes del paquete en cuestión, parece haber un efecto lesivo para los intereses de los accionistas muy significativo.

Y ahora, las concomitancias:

  • Esta entrada debe mucho a una alumna mía que prefiere cuyo nombre prefiere que no figure porque trabaja en una empresa del susodicho grupo.
  • La causalidad es problemática y pudiera ser, incluso, en dirección contraria (que la muerte se debiese a…)
  • Abundando en lo anterior, dada la complejidad del mundo en que vivimos, es plausible que la causa fuese otra.
  • Me habría sentido más cómodo estudiando diff(cotizaciones) en lugar de cotizaciones, pero en tal caso el p-valor se crece más allá del 0.05.