Test

StevenAguilar · StevenAguilar · commit fe4f302b44eb · 2018-04-04T21:12:03.000-04:00
diff --git a/Project_Data_Science.Rmd b/Project_Data_Science.Rmd
@@ -9,17 +9,19 @@ output: html_document
 knitr::opts_chunk$set(echo = TRUE)
 ```
 
-
+### Exploratory Analysis
 ```{r}
 library(readxl)
 library(readr)
 library(tidyverse)
-dataset = read_xlsx("../globalterrorismdb_0617dist.xlsx")
+library(styler)
+dataset = read_xlsx("./globalterrorismdb_0617dist.xlsx")
 
-dataset = dataset %>%
+terrorism <- dataset %>%
   select("Year" = iyear, "Month" = imonth, "Day" = iday, "Country" = country_txt, "Region" = region_txt, "AttackType" = attacktype1_txt, "Target" = target1, "Killed" = nkill, "Wounded" = nwound, "Summary" = summary, "Group" = gname, "Target_Type" = targtype1_txt, "Weapon_type" = weapsubtype1_txt, "Motive" = motive) %>%
-  mutate(Casualties = Killed + Wounded)
-head(dataset)
+  mutate(Casualties = Killed + Wounded) %>%
+  glimpse()
 
-colSums(is.na(dataset))
-```
+NA.Count = colSums(is.na(terrorism))
+
+```
