extragraphs/ISO27001effectiveness/Report.Rmd

---
title: Â¿Realmente se puede relacionar la implantaciÃ³n ISO 27001 con un descenso
  en los ciberataques producidos?
output:
  pdf_document: default
  html_document: default
---
```{r setup, include=TRUE, echo=FALSE, warning=FALSE, results='hide', message=FALSE ,cache=FALSE}
library(knitr)
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(message = FALSE)
knitr::opts_chunk$set(cache = FALSE)
devtools::load_all(".")
```
```{r include=TRUE, results='hide', cache=TRUE}
source("./Main.R")
```
## Introducción
La creciente preocupación de muchas empresas con infraestructura IT crítica frente a ciberataques ha llevado a algunas de ellas a tomar medidas como: la creación de departamentos de _Seguridad de la Información_, llevar a cabo auditorías u obtener certificaciones entre otras.
El objetivo de este estudio es tratar de determinar, en la medida de lo posible, si conformar los sistemas de la empresa según la certificación ISO 27001 conlleva una disminución en el número de ciberataques producidos.
## Datos analizados
La primera barrera a superar en este estudio es la obtención de datos directos sobre ciberataques. No existe un repositorio oficial con todos los ciberataques producidos, ya que en muchos de ellos no se dan a conocer los nombres de todas las empresas afectadas u otros datos relevantes sobre los mismos, por ello nos basaremos en los ataques reportados en una única web. Además, debido al cambio de formato de los datos de origen con los años, hemos optado por generalizar bastante, lo que nos permitirá hacer un análisis por país, sector o tipo de ataque. Desafortunadamente, esto compromete el análisis, ya que al generalizar los datos son muchos más los efectos que podrian alteran los resultados, ya que existen mayor cantidad de factores externos que este estudio no cubre.
Respecto a los datos de certificaciones ISO 27001, proceden de la fuente oficial asi que se podría considerarsetotalmente fiables.
Los datos que se han recogido para este estudio son:
* Lista de países y sectores profesionales que han obtenido certificación ISO 27001 (2007-2015): [Web oficial ISO Survey](http://www.iso.org/iso/iso_27001_iso_survey2015.xls).
* Lista de ciberataques producidos (con éxito) por país, sector profesional y tipo de ataque (2012-2016): [Hackmageddon](http://www.hackmageddon.com).
El análisis se realizará desde 2011 hasta 2016, teniendo en cuenta que los datos de las certificaciones realizadas en un año afectarán a los ataques del año siguiente, por lo tanto no se necesitarán datos de ciberataques en 2011 ni de certificaciones en 2016. Esto es una de las generalizaciones que antes comentabamos, ya que en realidad una certificación podría afectar a los datos de su mismo año, pero no disponemos de fechas exactas para poder cubrir esta relación.
### Procesado de los datos sobre certificaciones ISO 27001
De esta fuente se generan tres tablas de datos diferentes, una con las certificaciones a empresas por pais, otra con las certificaciones a web sites por pais y otra con las certificaciones por sector industrial. Aunque el estudio, en su estado actual, solo empleará la primera.
Dicha tabla, para las certificaciones de empresas por país, se presenta con el siguiente formato final:
```{r}
kable(head(Cert_PerCountry, 5))
```
La tabla para las certificaciones de web sites por país presenta un formato final muy parecido:
```{r}
kable(head(Sites_PerCountry, 5))
```
El proceso para llegar hasta esta apariencia en ambos casos es muy parecido, en primer lugar se sustituyen los datos vacios por ceros para evitar problemas durante la representación gráfica, luego se eliminan aquellas líneas que tengan vacio el campo _Country_ ya que no son de utilidad. Por último, se estandarizan algunos nombres de paises para poder cruzar correctamente los datos con los códigos de dos caracteres especificacos en la ISO correspondiente, y obtener de paso su continente mediante el package de R _countrycode_.
Para la tabla con las certificaciones por sector industrial el formato es algo más diferente.
```{r}
kable(head(Cert_PerSector, 5))
```
El procesado es parecido, aunque no se realiza toda la parte relativa al estandarizado de los nombres de los paises, en este caso se estandarizan los diferentes sectores industriales para poder cruzarlos con los datos de los ataques, y se eliminan aquellas lineas con _INDUSTRIAL.SECTOR_ vacío por falta de utilidad.
### Procesado de los datos sobre ataques
Como comentabamos antes, aquí es donde encontramos el mayor problema, no existe un organismo que se dedique a mantener un repositorio con datos oficiales sobre ataques producidos. La fuente que se emplea proviene de una web administrada por @paulsparrows, consiste en reportes de la comunidad sobre ataques que se hayan hecho públicos, pero con el paso de los años el formato en que se almacenaban los datos sobre dichos ataques ha evolucionado, lo que nos provoca mayor complejidad a la hora de correlacionar los historicos de diferentes periodos.
La tabla presenta el siguiente formato:
```{r}
kable(head(Attacks, 5))
```
El procesado requiere varios pasos algo más complejos, que se pueden resumir en los siguientes: 
* Respecto al campo _Country_, se eliminan celdas vacias y se estandarizan los valores para coincidir com el estandard ISO de dos caracteres. Además se ignoran aquellos casos en los que no se pudo deducir el significado: _H, W, 14, EU, UN, TI y >1_. También se desdoblan en varios registros los casos en los que una sola linea referenciaba a varios paises separados por saltos de linea o espacios en blanco. Por último, se procede a cruzar la tabña con los nombres completos de pais y con sus continentes mediante el package _countrycode_.
* Respecto al campo _Date_, también se eliminan celdas vacias. Además, algunas de las fechas vienen almacenadas en formato númerico con diferentes origenes, por lo que es necesario calcular el origen de cada uno de los diferentes ficheros mediante una calculadora de fechas y aplicarlo correctamente.
* Respecto a los otros campos, se realizo una estandarización de los valores para poder cruzarlos correctamente con los datos de las certificaciones. Dicho proceso consistió en sacar todos los valores únicos en ambas fuentes y realizar equivalencias entre ellos. Los principales cambios se realizan en los campos _Attack.standar_ y _Target.standar_.
## Análisis
### Evolución general
En primer lugar, como una buena manera de comenzar a intuir si este estudio tiene sentido, se observará la evolución temporal, en general, tanto de los ciberataques reportados, como de las certificaciones realizadas en busca de patrones que puedan indicar una relación entre ambas evoluciones.
```{r fig.width=4.5, fig.height=4,out.extra='style="float:left"'}
General.Certs.Evol <- ISO27001effectiveness::GetCertsEvolution(Cert_PerCountry,
                                                               c(0.2, -0.7, 0, 0, 0.5),
                                                               c(-0.6, 1, 1.2, -0.5, 1.2),
                                                               25500, 1.45,
                                                               "2013", 20000, 0)
General.Certs.Evol[[1]]
```
```{r fig.width=4.5, fig.height=4}
General.Attacks.Evol <- ISO27001effectiveness::GetAttacksEvolution(Attacks,
                                           c(0.5, 0, 0, -0.5, -0.5),
                                           c(-0.5, -0.5, 1.5, 0, 0),
                                           2000, -0.1,
                                           "2014", 1700, -0.5)
General.Attacks.Evol[[1]]
```
Como se puede observar en las gráficas, el número de empresas que obtienen la certificación crece anualmente, mientras que el numero de ataques tiende a descender, aunque es un poco más inestable. Del año 2013 al 2014 el número de ataques se reduce drásticamente, esto puede deberse a un problema en la fuente de datos, ya que al depender directamente de un ser humano pueden existir intervalos en los que se hayan registrado menos datos (por problemas del administrador, como falta de tiempo o interés). Otra explicación plausible, si tenemos en cuenta que las certificaciones de un año afectan a los ataques del año siguiente, es que justo en el año 2013 se produjo una revisión de la certificación, produciendose la ISO 27001:2013 que sustituyó a su predecesora 27001:2005, los cambios realizados pueden consultarse en la [web oficial](http://www.iso.org/iso/home/store/catalogue_tc/catalogue_detail.htm?csnumber=54534). Por último, también podría influir la diferencia en número de certificados expedidos, teniendo en cuenta el mismo desplazamiento que en el caso anterior, ya que los años en que mayor es la diferencia en certificaciones obtenidas (2013 y 2015) causan una bajada en el número de ataques al año siguiente, y viceversa. Esta última hipótesis es la que le da sentido a este estudio, aunque posiblemente el resto podrían representar la causa, o al menos influir en ella, de la bajada de los ciberataques.
No obstante, para simplificar este estudio, se tratará de analizar más las estimaciones de las gráficas y no tanto las irregularidades de las mismas. Para observar que dichas irregularidades no son tan importantes en realidad, a continuación se representa la evolución de los ataques mes a mes, aunque en el resto del análisis  se empleará el año como unidad de tiempo ya que no disponemos de datos más precisos para las certificaciones.
```{r fig.width=9, fig.height=4}
ISO27001effectiveness::GetAttacksMonthEvolution(Attacks)
```
Podemos observar, al aumentar la precisión en el eje X, que los picos en la curva no eran en realidad tan graves en la fuente de datos como parecian. También podemos observar que la tendencia de los ataques realmente tiene una pendiente más o menos negativa, aunque parece que asciende un poco en los ultimos meses. 
Por último, aunque se puede observar que existen aproximaciones (como la del último gráfico) que se acercan mucho más a la función real que la lineal, para este estudio se utilizará esta última por simplicidad y como medida de orientación. Teniendo en cuenta esto, si nos basamos en las pendientes de las estimaciones lineales para los ataques y las certificaciones, podremos observar que la pendiente en ataques producidos es negativa (`r General.Attacks.Evol[[2]]`) y la de las certificaciones es positiva (`r General.Certs.Evol[[2]]`), por lo que se puede concluir que el estudio tiene una base real.
### Evolución por tipo de ataque
Podría darse el caso de que la certificación tenga una efectividad mayor contra ciertas técnicas de ataque, y que dicha efectividad se camufle entre el resto de técnicas, por ello se contemplará el estudio individual de los diferentes tipos de ataques definidos en la fuente de datos. Existen multitud de ellos, por lo que el estudio se tendrá que centrar en una pequeña parte, los más frecuentes. Para llevar a cabo esta elección se representan a continuación aquellos que representan al menos un 1% del total de ataques producidos.
```{r fig.width=9, fig.height=5}
AttackTypePie <- ISO27001effectiveness::GetAttackTypePie(Attacks,
                                        c(-2, 0, 3, 7, -3, -4, -4),
                                        c(2, 3, 2.5, 0, -0.5, -0.3, 0.5))
AttackTypePie[[1]]
```
Como se puede observar en el gráfico anterior, la mayor parte de los ataques registrados en la fuente de datos emplean las siguientes técnicas, que serán las estudiadas a continuación:
* _Injection_: Cualquier tipo de inyección ya sea de código, SQL, etc.
* _Defacement_: Consiste en modificar la apariencia visual de una página web.
* _DDoS_: Trata de saturar un servicio mediante miles de conexiones para evitar que los usuarios legítimos puedan acceder con normalidad.
* _Account Hijacking_: Cuyo objetivo es obtener datos o credenciales de cuentas ajenas.
* _Malware_: Programas que se ejecutan en el sistema de la víctima para llevar a cabo actividades maliciosas.
* _DNS_: Ataques basados en los servidores DNS de la víctima, como el poisoning, que consigue retornar las IPs que no debería a ciertas peticiones.
* _Zero Day_: Son vulnerabilidades recien descubiertas para un servicio o protocolo. Pasa un tiempo hasta que se desarrollan parches o versiones que las corrijan.
```{r fig.width=9, fig.height=4}
AttackTypeEvolution <- ISO27001effectiveness::GetAttackTypeEvolution(Attacks, AttackTypePie[[2]])
AttackTypeEvolution[[1]]
```
Como se puede observar en la evolución temporal reflejada en el gráfico, existen ciertas técnicas que más o menos son constantes en el tiempo, y existen otras que tienen o podrían tener una tendencia con pendiente negativa clara. A continuación se representarán los ataques por separado junto con sus estimaciones lineales para observar qué tendencias tienen una pendiente negativa más clara.
```{r fig.width=3, fig.height=3,out.extra='style="float:left"'}
Injection <- GetAttackTypeSigleEvolution(AttackTypeEvolution[[2]], "Injection", "2014", 500, 0)
Injection[[1]]
slope_inj <- Injection[[2]]
```
```{r fig.width=3, fig.height=3,out.extra='style="float:left"'}
DDoS <- GetAttackTypeSigleEvolution(AttackTypeEvolution[[2]], "DDoS", "2014", 200, 0)
DDoS[[1]]
slope_dos <- DDoS[[2]]
```
```{r fig.width=3, fig.height=3}
Defacement <- GetAttackTypeSigleEvolution(AttackTypeEvolution[[2]], "Defacement", "2014", 150, 0.5)
Defacement[[1]]
slope_def <- Defacement[[2]]
```
```{r fig.width=3, fig.height=3,out.extra='style="float:left"'}
DNS <- GetAttackTypeSigleEvolution(AttackTypeEvolution[[2]], "DNS", "2014", 15, 0)
DNS[[1]]
slope_dns <- DNS[[2]]
```
```{r fig.width=3, fig.height=3,out.extra='style="float:left"'}
AH <- GetAttackTypeSigleEvolution(AttackTypeEvolution[[2]], "Account Hijacking", "2014", 110, 0.3)
AH[[1]]
slope_AH <- AH[[2]]
```
```{r fig.width=3, fig.height=3}
Malware <- GetAttackTypeSigleEvolution(AttackTypeEvolution[[2]], "Malware", "2014", 40, 0)
Malware[[1]]
slope_mal <- Malware[[2]]
```
Los tipos de ataque están ordenados por la pendiente de su tendencia, de menor a mayor, para reflejar cuáles están descendiendo más rápido y por lo tanto cuáles podrían reflejar mejor el aumento de certificaciones ISO 27001 expedidas. 
Tanto _Malware_ como _Account Hijacking_ tienen una tendencia con pendiente positiva, `r slope_mal` y `r slope_AH` respectivamente.
La tendencia con una mayor pendiente negativa es _Injection_ (`r slope_inj`), aunque también _DDoS_ (`r slope_dos`) y _Defacement_ (`r slope_def`) presentan unas tendencias con pendientes negativas.
Por otro lado tenemos _DNS_, cuya tendencia también tiene una pendiente negativa (`r slope_dns`), pero es muy moderada asi que podría considerarse estable.
Con estos números se puede concluir que los ataques de tipo _Injection_, _DDoS_ y _Defacement_ podrían verse afectados positivamente por la certificación ISO 2701, mientras que el resto, aparentemente y con los datos de los que disponemos, no se ven afectados.
### Evolución geográfica
Este apartado estudiará la relación entre la certificación ISO 27001 y los ataques producidos, pero teniendo en cuenta la variable geográfica, ya que es posible que la certificación, aunque sea internacional, se implemente o funcione de una mejor o peor forma según la región. En primer lugar se generalizará por continente.
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
ContinentPies <- ISO27001effectiveness::GetContinentPie(Attacks,
c(-2.5, 0, 2, 0, -2.5),
c(1.4, 1, 0.5, 0.5, 0),
Cert_PerCountry,
c(-2.5, -2.5, 0, -1.5, -2.5),
c(-0.5, 1.9, 1, 0.25, 0.6))
ContinentPies[[2]]
```
```{r fig.width=4.5, fig.height=3}
ContinentPies[[1]]
```
Se puede observar a simple vista que los continentes que reciben más ataques, por lo que podría ser una cuestión lógica de superficie y/o intereses, son por orden: América, Asia y Europa. En cambio, los continentes que mas certificaciones ISO 27001 obtienen son los mismos, pero en distinto orden: Asia, Europa y América.
Tanto África como Oceania serán descartados en el resto del estudio ya que sus porcentajes no parecen relevantes.
```{r fig.width=4.5, fig.height=4,out.extra='style="float:left"'}
ContinentCertEvolution <- ISO27001effectiveness::GetContinentCertsEvolution(Cert_PerCountry, ContinentPies[[3]])
ContinentCertEvolution[[1]]
```
```{r fig.width=4.5, fig.height=4}
ContinentAttacksEvolution <- ISO27001effectiveness::GetContinentAttacksEvolution(Attacks, ContinentPies[[3]])
ContinentAttacksEvolution[[1]]
```
Se puede observar que, en conjunto, la pendiente de la tendencia de las certificaciones es creciente, mientras que la de los ataques es decreciente como ocurria en el análisis general. No obstante, se procederá a comparar cada continente individualmente para poder observarlo con más precisión.
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
Ame_Cert <- GetContinentCertsSingleEvolution(ContinentCertEvolution[[2]], "Americas", "2013", 1400, 0.5)
Ame_Cert[[1]]
slope_Ame_Cert <- Ame_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
Ame_Att <- GetContinentAttacksSigleEvolution(ContinentAttacksEvolution[[2]], "Americas", "2014", 850, 0)
Ame_Att[[1]]
slope_Ame_Att <- Ame_Att[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
Asi_Cert <- GetContinentCertsSingleEvolution(ContinentCertEvolution[[2]], "Asia", "2013", 13500, 0.5)
Asi_Cert[[1]]
slope_Asi_Cert <- Asi_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
Asi_Att <- GetContinentAttacksSigleEvolution(ContinentAttacksEvolution[[2]], "Asia", "2014", 400, 0)
Asi_Att[[1]]
slope_Asi_Att <- Asi_Att[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
Eu_Cert <- GetContinentCertsSingleEvolution(ContinentCertEvolution[[2]], "Europe", "2013", 9500, 0.5)
Eu_Cert[[1]]
slope_Eu_Cert <- Eu_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
Eu_Att <- GetContinentAttacksSigleEvolution(ContinentAttacksEvolution[[2]], "Europe", "2014", 375, 0)
Eu_Att[[1]]
slope_Eu_Att <- Eu_Att[[2]]
```
En todos los continentes representados parece que se cumple la premisa de que los ataques tienen una tendencia negativa, mientras que las certificaciones positiva. No obstante, parece que el grado no es el mismo, las pendientes en las tendencias lineales difieren un poco entre si.
```{r}
kable(data.frame(Continente = c("América", "Europa", "Asia"), 
                 `Pendiente Certificaciones` = c(slope_Ame_Cert, slope_Eu_Cert, slope_Asi_Cert),
                 `Pendiente Ciberataques` = c(slope_Ame_Att, slope_Eu_Att, slope_Asi_Att)))
```
La tabla muestra que el continente que presenta una menor tendencia ascendente en certificaciones, es el que presenta un mayor descenso en la tendencia de ciberataques. Esto parece que no aporta nada al objetivo del estudio, para poder explicar este suceso y encontrar alguna relación que si nos aporte significado se procederá estableciendo superficies geográficas más pequeñas, aumentando así la precisión. Se mostrarán, a continuación, los paises que superan aproximádamente un 2% de las certificaciones totales y el 1,5% para los ataques (porque _Estados Unidos_ recibe la gran mayoría y si no saldría solo), ya que la lista completa es demasiado extensa. Los nombres serán representados con los dos caracteres correspondientes al estándar ISO que se puede consultar en la [web oficial](http://www.iso.org/iso/home/standards/country_codes.htm).
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
CountryCol <- GetCountriesCol(Attacks,0, 0.5, 
                              Cert_PerCountry, 0, 0.5)
CountryCol[[2]]
```
```{r fig.width=4.5, fig.height=3}
CountryCol[[1]]
```
Como se puede observar, en la parte de certificaciones destaca _Japón_ sobre los demás paises, que a su vez se encuentra bastante bajo en la lista de ataques. Y, de un modo totalmente contrario, en los ataques destaca _Estados Unidos_, mientras que este mismo está muy bajo en certificaciones. El estudio continuará en profundidad con el top 3 de paises en número de certificaciones y en número de ataques recibidos, aunque algunos de ellos coincidan. A la izquierda se representará la evolucion de la ISO 27001 y a la derecha la de los ciberataques.
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
US_Cert <- GetCountriesCertsSingleEvolution(Cert_PerCountry,
                                             CountryCol[[3]][1],
                                             "2013", 875, 0.5)
US_Cert[[1]]
slope_US_Cert <- US_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
US_Att <- GetCountriesAttacksSingleEvolution(Attacks,
                                             CountryCol[[3]][1],
                                             "2014", 725, 0)
US_Att[[1]]
slope_US_Att <- US_Att[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
GB_Cert <- GetCountriesCertsSingleEvolution(Cert_PerCountry,
                                             CountryCol[[3]][2],
                                             "2013", 2400, 0.5)
GB_Cert[[1]]
slope_GB_Cert <- GB_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
GB_Att <- GetCountriesAttacksSingleEvolution(Attacks,
                                             CountryCol[[3]][2],
                                             "2014", 125, 0.5)
GB_Att[[1]]
slope_GB_Att <- GB_Att[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
IN_Cert <- GetCountriesCertsSingleEvolution(Cert_PerCountry,
                                             CountryCol[[3]][3],
                                             "2013", 1875, -0.2)
IN_Cert[[1]]
slope_IN_Cert <- IN_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
IN_Att <- GetCountriesAttacksSingleEvolution(Attacks,
                                             CountryCol[[3]][3],
                                             "2014", 60, -0.3)
IN_Att[[1]]
slope_IN_Att <- IN_Att[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
JP_Cert <- GetCountriesCertsSingleEvolution(Cert_PerCountry,
                                             CountryCol[[3]][4],
                                             "2013", 7600, 1)
JP_Cert[[1]]
slope_JP_Cert <- JP_Cert[[2]]
```
```{r fig.width=4.5, fig.height=3}
JP_Att <- GetCountriesAttacksSingleEvolution(Attacks,
                                             CountryCol[[3]][4],
                                             "2014", 30, -0.5)
JP_Att[[1]]
slope_JP_Att <- JP_Att[[2]]
```
Una vez más, todos los paises parecen cumplir la premisa de un descenso en los ciberataques frente a un ascenso en las certificaciones. No obstante, parece que se vuelven a manifestar irregularidades en las pendientes de las tendencias.
```{r}
kable(data.frame(Pais = c(CountryCol[[3]][1], CountryCol[[3]][2], CountryCol[[3]][3], CountryCol[[3]][4]), 
                 `Pendiente Certificaciones` = c(slope_US_Cert, slope_GB_Cert, slope_IN_Cert, slope_JP_Cert),
                 `Pendiente Ciberataques` = c(slope_US_Att, slope_GB_Att, slope_IN_Att, slope_JP_Att)))
```
Efectivamente, parece que una menor pendiente en las certificaciones genera una mayor pendiente descendente en los ciberataques. Eso si, esta vez de forma más moderada, y parece algo exclusivo de _Estados Unidos_, ya que en el resto de paises representados se cumple que a mayor ascenso en la pendiente de certificaciones, menor es la pendiente de los ciberataques, lo cual cuadra con el objetivo de este estudio. Parece que la evolución geográfica podría no ser un factor que afectara diréctamente a la efectividad de la ISO 27001.
### Evolución geográfica y tipo de ataque
Hasta ahora se han analizado por separado el tipo de ataque y la localización geofráfica, pero la respuesta podría encontrarse en una combinación de las mismas. Para ello se analizarán los tipos de ataque reportados en el país con más certificaciones, _Japón_, y en el que más ataques recibe, _Estados Unidos_.
```{r fig.width=9, fig.height=4}
ISO27001effectiveness::GetContinentAttackCol(Attacks, "US", "JP")
```
Como se pudo apreciar en un apartado previo, la ISO 27001 parece especialmente efectiva contra las técnicas de _Defacement_, _DDoS_ e _Injection_, en el gráfico previo se puede observar que _Estados Unidos_ tiene un menor porcentaje de este tipo de ataques con respecto a _Japón_, sin embargo también hemos visto que _Estados Unidos_ presenta un descenso mayor en los ataques recibidos que _Japón_. Para valorarlo mejor, se representará a continuación cómo evolucionan dichos ataques en ambos paises.
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
US_Att_Year <- ISO27001effectiveness::GetContinentAttackEvolution(Attacks, "US")
US_Att_Year[[1]]
```
```{r fig.width=4.5, fig.height=3}
JP_Att_Year <- ISO27001effectiveness::GetContinentAttackEvolution(Attacks, "JP")
JP_Att_Year[[1]]
```
Observando las gráficas, parece que se cumplen las conclusiones del apartado previo en el que ciertos tipos de ataques presentan una tendencia negativa ante la ISO 27001, mientras que otros se mantienen o incluso aumentan, lo que parece indicar que la certificación no es lo suficientemente efectiva ante ellos. No obstante, estudiaremos cada caso individualmente en ambos paises para buscar una explicación a las tendencias de _Estados Unidos_.
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
US_dds_Year <- GetAttackTypeSigleEvolution(US_Att_Year[[2]],
                                             "DDoS",
                                             "2014",
                                             75, 0)
US_dds_Year[[1]]
slope_US_dds <- US_dds_Year[[2]]
```
```{r fig.width=4.5, fig.height=3}
JP_dds_Year <- GetAttackTypeSigleEvolution(JP_Att_Year[[2]],
                                             "DDoS",
                                             "2014",
                                             4.4, 0)
JP_dds_Year[[1]]
slope_JP_dds <- JP_dds_Year[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
US_def_Year <- GetAttackTypeSigleEvolution(US_Att_Year[[2]],
                                             "Defacement",
                                             "2014",
                                             46, 0)
US_def_Year[[1]]
slope_US_def <- US_def_Year[[2]]
```
```{r fig.width=4.5, fig.height=3}
JP_def_Year <- GetAttackTypeSigleEvolution(JP_Att_Year[[2]],
                                             "Defacement",
                                             "2014",
                                             1.5, 0)
JP_def_Year[[1]]
slope_JP_def <- JP_def_Year[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
US_inj_Year <- GetAttackTypeSigleEvolution(US_Att_Year[[2]],
                                             "Injection",
                                             "2014",
                                             155, 0)
US_inj_Year[[1]]
slope_US_inj <- US_inj_Year[[2]]
```
```{r fig.width=4.5, fig.height=3}
JP_inj_Year <- GetAttackTypeSigleEvolution(JP_Att_Year[[2]],
                                             "Injection",
                                             "2014",
                                             9, 0)
JP_inj_Year[[1]]
slope_JP_inj <- JP_inj_Year[[2]]
```
```{r fig.width=4.5, fig.height=3,out.extra='style="float:left"'}
US_Oth_Year <- GetAttackTypeSigleEvolution(US_Att_Year[[2]],
                                             "Otros",
                                             "2014",
                                             100, 0)
US_Oth_Year[[1]]
slope_US_Oth <- US_Oth_Year[[2]]
```
```{r fig.width=4.5, fig.height=3}
JP_Oth_Year <- GetAttackTypeSigleEvolution(JP_Att_Year[[2]],
                                             "Otros",
                                             3.5,
                                             3.5, 0)
JP_Oth_Year[[1]]
slope_JP_Oth <- JP_Oth_Year[[2]]
```
Tras analizar las gráficas, se puede comprobar que se cumplen las premisas, los ataques contra los que la ISO 27001 es efectiva presentan en ambos paises una tendencia al descenso, mientras que los calificados como _Otros_ ascienden o se mantienen. No obstante, se procederá a dibujar la tabla de pendientes.
```{r}
kable(data.frame(Ataque = c("DDoS", "Defacement", "Injection", "Otros"), 
                 `Pendiente Estados Unidos` = c(slope_US_dds, slope_US_def, slope_US_inj, slope_US_Oth),
                 `Pendiente Japón` = c(slope_JP_dds, slope_JP_def, slope_JP_inj, slope_JP_Oth)))
```
Se puede apreciar que el motivo por el que incluso en la actualidad _Estados Unidos_ recibe más ataques (en número) en nuestra fuente de datos es porque tiene un mayor porcentaje de ataques aparentemente infalibles contra la certificación ISO 27001. No obstante, el hecho de que en dicho pais la pendiente del descenso en ataques sea tan baja sigue sin una explicación directa en relación a otro pais.
En conclusión, parece que la certificación ISO 27001 es más efectiva en _América_ que en _Asia_ y _Europa_, aunque la primera sigue recibiendo muchos más ataques en número.
## Conclusiones
Al final de cada apartado se han definido las conclusiones referentes al mismo, no obstante se realizará un resumen y se completarán punto por punto sin tener en cuenta que, en ocasiones con una alta probabilidad, muchas cosas podrían explicarse mediante factores externos o por el un poquito deficiente origen de datos de ciberataques.
* La certificación ISO 27001 parece afectar positivamente a la seguridad en las empresas, generando un descenso en el número de ciberataques producidos.
* La revisión y actualización de la norma parece generar un mínimo en los periodos inmediatamente consecutivos a su implementación. Aunque, también parece que los ataques se adaptan y reaccionan a algunas circunstancias como puede observarse en la evolución mes a mes del primer apartado.
* La certificación ISO 27001 parece no ser igual de efectiva ante todas las técnicas de ciberataques, concretamente parece especialmente efectiva contra: _Injection_, _Defacement_ y _DDoS_. Curiosamente las dos primeras refentes a los sitios web de las empresas.
* La certificación ISO 27001 parece no ser igual de efectiva en todas las regiones, independientemente de los tipos de ataque recibidos en cada una de ellas, parece que en la región de _América_ funciona mejor que en _Europa_ y _Asia_. Esto puede que se deba a las costumbres de la zona, u a otras normas de seguridad que se apliquen conjuntamente en esta región.
Por lo tanto, podemos contestar a la pregunta que titula este estudio afirmativamente. De hecho, no solo podemos contestar a la pregunta de una forma general, si no que podemos aportar detalles sobre el comportamiento de la misma.
## Trabajo futuro
De cara a un futuro, el estudio podría seguir diversas líneas de investigación resumidas en los siguientes puntos:
* Mejorar la fuente de datos de ciberataques. Una fuente cuya administración, recopilación y mantenimiento no dependiera de una sola persona y fuera más constante, homogenea y detallada.
* Conectar los datos sobre web sites certificados por país que nos provee la fuente de datos de certificaciones.
* Homogenizar los nombres y conectar los datos sobre sectores industriales que nos proveen ambas fuentes.
* Investigación más a fondo de los cambios realizados sobre la norma 27001, como la 27001:2013, para relacionarlos con las irregularidades en las curvas de ataques.
* Incorporar nuevas variables que puedan afectar al estudio, como parches importantes u otras normas parecidas.
Creemos que la investigación de estas cuestiones puede dar más robustez a las conclusiones expuestas en este estudio.