Updated: 2017-05-03
# Create of announcements dataframe
news_data <- data.frame(Company = c("OGXP", "OGXP", "OGXP",
"PETR", "PETR","PETR"),
News.Date = as.Date(c("2012-06-28", "2013-10-31",