library(quantmod)
## Loading required package: xts
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## 
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## 
## Loading required package: TTR
## Version 0.4-0 included new data defaults. See ?getSymbols.
library(caret)
## Loading required package: lattice
## Loading required package: ggplot2
startDate = as.Date("2010-01-01")

endDate = as.Date("2015-12-31") 


startDate = as.Date("2010-01-01")

endDate = as.Date("2015-12-31") 

getSymbols("DJIA", src = "yahoo", from = startDate, to = endDate) 
##     As of 0.4-0, 'getSymbols' uses env=parent.frame() and
##  auto.assign=TRUE by default.
## 
##  This  behavior  will be  phased out in 0.5-0  when the call  will
##  default to use auto.assign=FALSE. getOption("getSymbols.env") and 
##  getOptions("getSymbols.auto.assign") are now checked for alternate defaults
## 
##  This message is shown once per session and may be disabled by setting 
##  options("getSymbols.warning4.0"=FALSE). See ?getSymbols for more details.
## [1] "DJIA"
RSI3<-RSI(Op(DJIA), n= 3) 
#Calculate a 3-period relative strength index (RSI) off the open price

EMA5<-EMA(Op(DJIA),n=5) 
#Calculate a 5-period exponential moving average (EMA)
EMAcross<- Op(DJIA)-EMA5 
#Let’s explore the difference between the open price and our 5-period EMA


DEMA10<-DEMA(Cl(DJIA),n = 10, v = 1, wilder = FALSE)
DEMA10c<-Cl(DJIA) - DEMA10

MACD<-MACD(Op(DJIA),fast = 12, slow = 26, signal = 9) 
#Calculate a MACD with standard parameters

MACDsignal<-MACD[,2] 
#Grab just the signal line to use as our indicator.


SMI<-SMI(Op(DJIA),n=13,slow=25,fast=2,signal=9) 
#Stochastic Oscillator with standard parameters
SMI<-SMI[,1] 
#Grab just the oscillator to use as our indicator

BB<-BBands(Op(DJIA),n=20,sd=2)
BBp<-BB[,4]


CCI20<-CCI(DJIA[,3:5],n=20)
#A 20-period Commodity Channel Index calculated of the High/Low/Close of our data



# Return sign creation 

ClosingPrice<-Cl(DJIA)

Trend<-diff(ClosingPrice, lag = 1, differences = 1, arithmetic = TRUE, log = FALSE, na.pad = TRUE)

 
#Calculate the difference between the close price at T and close  price T-1
Class<-ifelse(Trend>0,"UP","DOWN") 
#Create a binary classification variable, the variable we are trying to predict.

DJIADF<-data.frame(date = index(DJIA),DJIA, row.names=NULL)
library(wikipediatrend)

views5<-wp_trend(page ="American Express." ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/American_Express.
## http://stats.grok.se/json/en/201002/American_Express.
## http://stats.grok.se/json/en/201003/American_Express.
## http://stats.grok.se/json/en/201004/American_Express.
## http://stats.grok.se/json/en/201005/American_Express.
## http://stats.grok.se/json/en/201006/American_Express.
## http://stats.grok.se/json/en/201007/American_Express.
## http://stats.grok.se/json/en/201008/American_Express.
## http://stats.grok.se/json/en/201009/American_Express.
## http://stats.grok.se/json/en/201010/American_Express.
## http://stats.grok.se/json/en/201011/American_Express.
## http://stats.grok.se/json/en/201012/American_Express.
## http://stats.grok.se/json/en/201101/American_Express.
## http://stats.grok.se/json/en/201102/American_Express.
## http://stats.grok.se/json/en/201103/American_Express.
## http://stats.grok.se/json/en/201104/American_Express.
## http://stats.grok.se/json/en/201105/American_Express.
## http://stats.grok.se/json/en/201106/American_Express.
## http://stats.grok.se/json/en/201107/American_Express.
## http://stats.grok.se/json/en/201108/American_Express.
## http://stats.grok.se/json/en/201109/American_Express.
## http://stats.grok.se/json/en/201110/American_Express.
## http://stats.grok.se/json/en/201111/American_Express.
## http://stats.grok.se/json/en/201112/American_Express.
## http://stats.grok.se/json/en/201201/American_Express.
## http://stats.grok.se/json/en/201202/American_Express.
## http://stats.grok.se/json/en/201203/American_Express.
## http://stats.grok.se/json/en/201204/American_Express.
## http://stats.grok.se/json/en/201205/American_Express.
## http://stats.grok.se/json/en/201206/American_Express.
## http://stats.grok.se/json/en/201207/American_Express.
## http://stats.grok.se/json/en/201208/American_Express.
## http://stats.grok.se/json/en/201209/American_Express.
## http://stats.grok.se/json/en/201210/American_Express.
## http://stats.grok.se/json/en/201211/American_Express.
## http://stats.grok.se/json/en/201212/American_Express.
## http://stats.grok.se/json/en/201301/American_Express.
## http://stats.grok.se/json/en/201302/American_Express.
## http://stats.grok.se/json/en/201303/American_Express.
## http://stats.grok.se/json/en/201304/American_Express.
## http://stats.grok.se/json/en/201305/American_Express.
## http://stats.grok.se/json/en/201306/American_Express.
## http://stats.grok.se/json/en/201307/American_Express.
## http://stats.grok.se/json/en/201308/American_Express.
## http://stats.grok.se/json/en/201309/American_Express.
## http://stats.grok.se/json/en/201310/American_Express.
## http://stats.grok.se/json/en/201311/American_Express.
## http://stats.grok.se/json/en/201312/American_Express.
## http://stats.grok.se/json/en/201401/American_Express.
## http://stats.grok.se/json/en/201402/American_Express.
## http://stats.grok.se/json/en/201403/American_Express.
## http://stats.grok.se/json/en/201404/American_Express.
## http://stats.grok.se/json/en/201405/American_Express.
## http://stats.grok.se/json/en/201406/American_Express.
## http://stats.grok.se/json/en/201407/American_Express.
## http://stats.grok.se/json/en/201408/American_Express.
## http://stats.grok.se/json/en/201409/American_Express.
## http://stats.grok.se/json/en/201410/American_Express.
## http://stats.grok.se/json/en/201411/American_Express.
## http://stats.grok.se/json/en/201412/American_Express.
## http://stats.grok.se/json/en/201501/American_Express.
## http://stats.grok.se/json/en/201502/American_Express.
## http://stats.grok.se/json/en/201503/American_Express.
## http://stats.grok.se/json/en/201504/American_Express.
## http://stats.grok.se/json/en/201505/American_Express.
## http://stats.grok.se/json/en/201506/American_Express.
## http://stats.grok.se/json/en/201507/American_Express.
## http://stats.grok.se/json/en/201508/American_Express.
## http://stats.grok.se/json/en/201509/American_Express.
## http://stats.grok.se/json/en/201510/American_Express.
## http://stats.grok.se/json/en/201511/American_Express.
## http://stats.grok.se/json/en/201512/American_Express.
views6<-wp_trend(page ="JPMorgan Chase" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/JPMorgan_Chase
## http://stats.grok.se/json/en/201002/JPMorgan_Chase
## http://stats.grok.se/json/en/201003/JPMorgan_Chase
## http://stats.grok.se/json/en/201004/JPMorgan_Chase
## http://stats.grok.se/json/en/201005/JPMorgan_Chase
## http://stats.grok.se/json/en/201006/JPMorgan_Chase
## http://stats.grok.se/json/en/201007/JPMorgan_Chase
## http://stats.grok.se/json/en/201008/JPMorgan_Chase
## http://stats.grok.se/json/en/201009/JPMorgan_Chase
## http://stats.grok.se/json/en/201010/JPMorgan_Chase
## http://stats.grok.se/json/en/201011/JPMorgan_Chase
## http://stats.grok.se/json/en/201012/JPMorgan_Chase
## http://stats.grok.se/json/en/201101/JPMorgan_Chase
## http://stats.grok.se/json/en/201102/JPMorgan_Chase
## http://stats.grok.se/json/en/201103/JPMorgan_Chase
## http://stats.grok.se/json/en/201104/JPMorgan_Chase
## http://stats.grok.se/json/en/201105/JPMorgan_Chase
## http://stats.grok.se/json/en/201106/JPMorgan_Chase
## http://stats.grok.se/json/en/201107/JPMorgan_Chase
## http://stats.grok.se/json/en/201108/JPMorgan_Chase
## http://stats.grok.se/json/en/201109/JPMorgan_Chase
## http://stats.grok.se/json/en/201110/JPMorgan_Chase
## http://stats.grok.se/json/en/201111/JPMorgan_Chase
## http://stats.grok.se/json/en/201112/JPMorgan_Chase
## http://stats.grok.se/json/en/201201/JPMorgan_Chase
## http://stats.grok.se/json/en/201202/JPMorgan_Chase
## http://stats.grok.se/json/en/201203/JPMorgan_Chase
## http://stats.grok.se/json/en/201204/JPMorgan_Chase
## http://stats.grok.se/json/en/201205/JPMorgan_Chase
## http://stats.grok.se/json/en/201206/JPMorgan_Chase
## http://stats.grok.se/json/en/201207/JPMorgan_Chase
## http://stats.grok.se/json/en/201208/JPMorgan_Chase
## http://stats.grok.se/json/en/201209/JPMorgan_Chase
## http://stats.grok.se/json/en/201210/JPMorgan_Chase
## http://stats.grok.se/json/en/201211/JPMorgan_Chase
## http://stats.grok.se/json/en/201212/JPMorgan_Chase
## http://stats.grok.se/json/en/201301/JPMorgan_Chase
## http://stats.grok.se/json/en/201302/JPMorgan_Chase
## http://stats.grok.se/json/en/201303/JPMorgan_Chase
## http://stats.grok.se/json/en/201304/JPMorgan_Chase
## http://stats.grok.se/json/en/201305/JPMorgan_Chase
## http://stats.grok.se/json/en/201306/JPMorgan_Chase
## http://stats.grok.se/json/en/201307/JPMorgan_Chase
## http://stats.grok.se/json/en/201308/JPMorgan_Chase
## http://stats.grok.se/json/en/201309/JPMorgan_Chase
## http://stats.grok.se/json/en/201310/JPMorgan_Chase
## http://stats.grok.se/json/en/201311/JPMorgan_Chase
## http://stats.grok.se/json/en/201312/JPMorgan_Chase
## http://stats.grok.se/json/en/201401/JPMorgan_Chase
## http://stats.grok.se/json/en/201402/JPMorgan_Chase
## http://stats.grok.se/json/en/201403/JPMorgan_Chase
## http://stats.grok.se/json/en/201404/JPMorgan_Chase
## http://stats.grok.se/json/en/201405/JPMorgan_Chase
## http://stats.grok.se/json/en/201406/JPMorgan_Chase
## http://stats.grok.se/json/en/201407/JPMorgan_Chase
## http://stats.grok.se/json/en/201408/JPMorgan_Chase
## http://stats.grok.se/json/en/201409/JPMorgan_Chase
## http://stats.grok.se/json/en/201410/JPMorgan_Chase
## http://stats.grok.se/json/en/201411/JPMorgan_Chase
## http://stats.grok.se/json/en/201412/JPMorgan_Chase
## http://stats.grok.se/json/en/201501/JPMorgan_Chase
## http://stats.grok.se/json/en/201502/JPMorgan_Chase
## http://stats.grok.se/json/en/201503/JPMorgan_Chase
## http://stats.grok.se/json/en/201504/JPMorgan_Chase
## http://stats.grok.se/json/en/201505/JPMorgan_Chase
## http://stats.grok.se/json/en/201506/JPMorgan_Chase
## http://stats.grok.se/json/en/201507/JPMorgan_Chase
## http://stats.grok.se/json/en/201508/JPMorgan_Chase
## http://stats.grok.se/json/en/201509/JPMorgan_Chase
## http://stats.grok.se/json/en/201510/JPMorgan_Chase
## http://stats.grok.se/json/en/201511/JPMorgan_Chase
## http://stats.grok.se/json/en/201512/JPMorgan_Chase
views7<-wp_trend(page ="Intel" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Intel
## http://stats.grok.se/json/en/201002/Intel
## http://stats.grok.se/json/en/201003/Intel
## http://stats.grok.se/json/en/201004/Intel
## http://stats.grok.se/json/en/201005/Intel
## http://stats.grok.se/json/en/201006/Intel
## http://stats.grok.se/json/en/201007/Intel
## http://stats.grok.se/json/en/201008/Intel
## http://stats.grok.se/json/en/201009/Intel
## http://stats.grok.se/json/en/201010/Intel
## http://stats.grok.se/json/en/201011/Intel
## http://stats.grok.se/json/en/201012/Intel
## http://stats.grok.se/json/en/201101/Intel
## http://stats.grok.se/json/en/201102/Intel
## http://stats.grok.se/json/en/201103/Intel
## http://stats.grok.se/json/en/201104/Intel
## http://stats.grok.se/json/en/201105/Intel
## http://stats.grok.se/json/en/201106/Intel
## http://stats.grok.se/json/en/201107/Intel
## http://stats.grok.se/json/en/201108/Intel
## http://stats.grok.se/json/en/201109/Intel
## http://stats.grok.se/json/en/201110/Intel
## http://stats.grok.se/json/en/201111/Intel
## http://stats.grok.se/json/en/201112/Intel
## http://stats.grok.se/json/en/201201/Intel
## http://stats.grok.se/json/en/201202/Intel
## http://stats.grok.se/json/en/201203/Intel
## http://stats.grok.se/json/en/201204/Intel
## http://stats.grok.se/json/en/201205/Intel
## http://stats.grok.se/json/en/201206/Intel
## http://stats.grok.se/json/en/201207/Intel
## http://stats.grok.se/json/en/201208/Intel
## http://stats.grok.se/json/en/201209/Intel
## http://stats.grok.se/json/en/201210/Intel
## http://stats.grok.se/json/en/201211/Intel
## http://stats.grok.se/json/en/201212/Intel
## http://stats.grok.se/json/en/201301/Intel
## http://stats.grok.se/json/en/201302/Intel
## http://stats.grok.se/json/en/201303/Intel
## http://stats.grok.se/json/en/201304/Intel
## http://stats.grok.se/json/en/201305/Intel
## http://stats.grok.se/json/en/201306/Intel
## http://stats.grok.se/json/en/201307/Intel
## http://stats.grok.se/json/en/201308/Intel
## http://stats.grok.se/json/en/201309/Intel
## http://stats.grok.se/json/en/201310/Intel
## http://stats.grok.se/json/en/201311/Intel
## http://stats.grok.se/json/en/201312/Intel
## http://stats.grok.se/json/en/201401/Intel
## http://stats.grok.se/json/en/201402/Intel
## http://stats.grok.se/json/en/201403/Intel
## http://stats.grok.se/json/en/201404/Intel
## http://stats.grok.se/json/en/201405/Intel
## http://stats.grok.se/json/en/201406/Intel
## http://stats.grok.se/json/en/201407/Intel
## http://stats.grok.se/json/en/201408/Intel
## http://stats.grok.se/json/en/201409/Intel
## http://stats.grok.se/json/en/201410/Intel
## http://stats.grok.se/json/en/201411/Intel
## http://stats.grok.se/json/en/201412/Intel
## http://stats.grok.se/json/en/201501/Intel
## http://stats.grok.se/json/en/201502/Intel
## http://stats.grok.se/json/en/201503/Intel
## http://stats.grok.se/json/en/201504/Intel
## http://stats.grok.se/json/en/201505/Intel
## http://stats.grok.se/json/en/201506/Intel
## http://stats.grok.se/json/en/201507/Intel
## http://stats.grok.se/json/en/201508/Intel
## http://stats.grok.se/json/en/201509/Intel
## http://stats.grok.se/json/en/201510/Intel
## http://stats.grok.se/json/en/201511/Intel
## http://stats.grok.se/json/en/201512/Intel
views8<-wp_trend(page ="Chevron Corporation" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Chevron_Corporation
## http://stats.grok.se/json/en/201002/Chevron_Corporation
## http://stats.grok.se/json/en/201003/Chevron_Corporation
## http://stats.grok.se/json/en/201004/Chevron_Corporation
## http://stats.grok.se/json/en/201005/Chevron_Corporation
## http://stats.grok.se/json/en/201006/Chevron_Corporation
## http://stats.grok.se/json/en/201007/Chevron_Corporation
## http://stats.grok.se/json/en/201008/Chevron_Corporation
## http://stats.grok.se/json/en/201009/Chevron_Corporation
## http://stats.grok.se/json/en/201010/Chevron_Corporation
## http://stats.grok.se/json/en/201011/Chevron_Corporation
## http://stats.grok.se/json/en/201012/Chevron_Corporation
## http://stats.grok.se/json/en/201101/Chevron_Corporation
## http://stats.grok.se/json/en/201102/Chevron_Corporation
## http://stats.grok.se/json/en/201103/Chevron_Corporation
## http://stats.grok.se/json/en/201104/Chevron_Corporation
## http://stats.grok.se/json/en/201105/Chevron_Corporation
## http://stats.grok.se/json/en/201106/Chevron_Corporation
## http://stats.grok.se/json/en/201107/Chevron_Corporation
## http://stats.grok.se/json/en/201108/Chevron_Corporation
## http://stats.grok.se/json/en/201109/Chevron_Corporation
## http://stats.grok.se/json/en/201110/Chevron_Corporation
## http://stats.grok.se/json/en/201111/Chevron_Corporation
## http://stats.grok.se/json/en/201112/Chevron_Corporation
## http://stats.grok.se/json/en/201201/Chevron_Corporation
## http://stats.grok.se/json/en/201202/Chevron_Corporation
## http://stats.grok.se/json/en/201203/Chevron_Corporation
## http://stats.grok.se/json/en/201204/Chevron_Corporation
## http://stats.grok.se/json/en/201205/Chevron_Corporation
## http://stats.grok.se/json/en/201206/Chevron_Corporation
## http://stats.grok.se/json/en/201207/Chevron_Corporation
## http://stats.grok.se/json/en/201208/Chevron_Corporation
## http://stats.grok.se/json/en/201209/Chevron_Corporation
## http://stats.grok.se/json/en/201210/Chevron_Corporation
## http://stats.grok.se/json/en/201211/Chevron_Corporation
## http://stats.grok.se/json/en/201212/Chevron_Corporation
## http://stats.grok.se/json/en/201301/Chevron_Corporation
## http://stats.grok.se/json/en/201302/Chevron_Corporation
## http://stats.grok.se/json/en/201303/Chevron_Corporation
## http://stats.grok.se/json/en/201304/Chevron_Corporation
## http://stats.grok.se/json/en/201305/Chevron_Corporation
## http://stats.grok.se/json/en/201306/Chevron_Corporation
## http://stats.grok.se/json/en/201307/Chevron_Corporation
## http://stats.grok.se/json/en/201308/Chevron_Corporation
## http://stats.grok.se/json/en/201309/Chevron_Corporation
## http://stats.grok.se/json/en/201310/Chevron_Corporation
## http://stats.grok.se/json/en/201311/Chevron_Corporation
## http://stats.grok.se/json/en/201312/Chevron_Corporation
## http://stats.grok.se/json/en/201401/Chevron_Corporation
## http://stats.grok.se/json/en/201402/Chevron_Corporation
## http://stats.grok.se/json/en/201403/Chevron_Corporation
## http://stats.grok.se/json/en/201404/Chevron_Corporation
## http://stats.grok.se/json/en/201405/Chevron_Corporation
## http://stats.grok.se/json/en/201406/Chevron_Corporation
## http://stats.grok.se/json/en/201407/Chevron_Corporation
## http://stats.grok.se/json/en/201408/Chevron_Corporation
## http://stats.grok.se/json/en/201409/Chevron_Corporation
## http://stats.grok.se/json/en/201410/Chevron_Corporation
## http://stats.grok.se/json/en/201411/Chevron_Corporation
## http://stats.grok.se/json/en/201412/Chevron_Corporation
## http://stats.grok.se/json/en/201501/Chevron_Corporation
## http://stats.grok.se/json/en/201502/Chevron_Corporation
## http://stats.grok.se/json/en/201503/Chevron_Corporation
## http://stats.grok.se/json/en/201504/Chevron_Corporation
## http://stats.grok.se/json/en/201505/Chevron_Corporation
## http://stats.grok.se/json/en/201506/Chevron_Corporation
## http://stats.grok.se/json/en/201507/Chevron_Corporation
## http://stats.grok.se/json/en/201508/Chevron_Corporation
## http://stats.grok.se/json/en/201509/Chevron_Corporation
## http://stats.grok.se/json/en/201510/Chevron_Corporation
## http://stats.grok.se/json/en/201511/Chevron_Corporation
## http://stats.grok.se/json/en/201512/Chevron_Corporation
views9<-wp_trend(page ="General Electric" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/General_Electric
## http://stats.grok.se/json/en/201002/General_Electric
## http://stats.grok.se/json/en/201003/General_Electric
## http://stats.grok.se/json/en/201004/General_Electric
## http://stats.grok.se/json/en/201005/General_Electric
## http://stats.grok.se/json/en/201006/General_Electric
## http://stats.grok.se/json/en/201007/General_Electric
## http://stats.grok.se/json/en/201008/General_Electric
## http://stats.grok.se/json/en/201009/General_Electric
## http://stats.grok.se/json/en/201010/General_Electric
## http://stats.grok.se/json/en/201011/General_Electric
## http://stats.grok.se/json/en/201012/General_Electric
## http://stats.grok.se/json/en/201101/General_Electric
## http://stats.grok.se/json/en/201102/General_Electric
## http://stats.grok.se/json/en/201103/General_Electric
## http://stats.grok.se/json/en/201104/General_Electric
## http://stats.grok.se/json/en/201105/General_Electric
## http://stats.grok.se/json/en/201106/General_Electric
## http://stats.grok.se/json/en/201107/General_Electric
## http://stats.grok.se/json/en/201108/General_Electric
## http://stats.grok.se/json/en/201109/General_Electric
## http://stats.grok.se/json/en/201110/General_Electric
## http://stats.grok.se/json/en/201111/General_Electric
## http://stats.grok.se/json/en/201112/General_Electric
## http://stats.grok.se/json/en/201201/General_Electric
## http://stats.grok.se/json/en/201202/General_Electric
## http://stats.grok.se/json/en/201203/General_Electric
## http://stats.grok.se/json/en/201204/General_Electric
## http://stats.grok.se/json/en/201205/General_Electric
## http://stats.grok.se/json/en/201206/General_Electric
## http://stats.grok.se/json/en/201207/General_Electric
## http://stats.grok.se/json/en/201208/General_Electric
## http://stats.grok.se/json/en/201209/General_Electric
## http://stats.grok.se/json/en/201210/General_Electric
## http://stats.grok.se/json/en/201211/General_Electric
## http://stats.grok.se/json/en/201212/General_Electric
## http://stats.grok.se/json/en/201301/General_Electric
## http://stats.grok.se/json/en/201302/General_Electric
## http://stats.grok.se/json/en/201303/General_Electric
## http://stats.grok.se/json/en/201304/General_Electric
## http://stats.grok.se/json/en/201305/General_Electric
## http://stats.grok.se/json/en/201306/General_Electric
## http://stats.grok.se/json/en/201307/General_Electric
## http://stats.grok.se/json/en/201308/General_Electric
## http://stats.grok.se/json/en/201309/General_Electric
## http://stats.grok.se/json/en/201310/General_Electric
## http://stats.grok.se/json/en/201311/General_Electric
## http://stats.grok.se/json/en/201312/General_Electric
## http://stats.grok.se/json/en/201401/General_Electric
## http://stats.grok.se/json/en/201402/General_Electric
## http://stats.grok.se/json/en/201403/General_Electric
## http://stats.grok.se/json/en/201404/General_Electric
## http://stats.grok.se/json/en/201405/General_Electric
## http://stats.grok.se/json/en/201406/General_Electric
## http://stats.grok.se/json/en/201407/General_Electric
## http://stats.grok.se/json/en/201408/General_Electric
## http://stats.grok.se/json/en/201409/General_Electric
## http://stats.grok.se/json/en/201410/General_Electric
## http://stats.grok.se/json/en/201411/General_Electric
## http://stats.grok.se/json/en/201412/General_Electric
## http://stats.grok.se/json/en/201501/General_Electric
## http://stats.grok.se/json/en/201502/General_Electric
## http://stats.grok.se/json/en/201503/General_Electric
## http://stats.grok.se/json/en/201504/General_Electric
## http://stats.grok.se/json/en/201505/General_Electric
## http://stats.grok.se/json/en/201506/General_Electric
## http://stats.grok.se/json/en/201507/General_Electric
## http://stats.grok.se/json/en/201508/General_Electric
## http://stats.grok.se/json/en/201509/General_Electric
## http://stats.grok.se/json/en/201510/General_Electric
## http://stats.grok.se/json/en/201511/General_Electric
## http://stats.grok.se/json/en/201512/General_Electric
views10<-wp_trend(page ="Apple Inc." ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Apple_Inc.
## http://stats.grok.se/json/en/201002/Apple_Inc.
## http://stats.grok.se/json/en/201003/Apple_Inc.
## http://stats.grok.se/json/en/201004/Apple_Inc.
## http://stats.grok.se/json/en/201005/Apple_Inc.
## http://stats.grok.se/json/en/201006/Apple_Inc.
## http://stats.grok.se/json/en/201007/Apple_Inc.
## http://stats.grok.se/json/en/201008/Apple_Inc.
## http://stats.grok.se/json/en/201009/Apple_Inc.
## http://stats.grok.se/json/en/201010/Apple_Inc.
## http://stats.grok.se/json/en/201011/Apple_Inc.
## http://stats.grok.se/json/en/201012/Apple_Inc.
## http://stats.grok.se/json/en/201101/Apple_Inc.
## http://stats.grok.se/json/en/201102/Apple_Inc.
## http://stats.grok.se/json/en/201103/Apple_Inc.
## http://stats.grok.se/json/en/201104/Apple_Inc.
## http://stats.grok.se/json/en/201105/Apple_Inc.
## http://stats.grok.se/json/en/201106/Apple_Inc.
## http://stats.grok.se/json/en/201107/Apple_Inc.
## http://stats.grok.se/json/en/201108/Apple_Inc.
## http://stats.grok.se/json/en/201109/Apple_Inc.
## http://stats.grok.se/json/en/201110/Apple_Inc.
## http://stats.grok.se/json/en/201111/Apple_Inc.
## http://stats.grok.se/json/en/201112/Apple_Inc.
## http://stats.grok.se/json/en/201201/Apple_Inc.
## http://stats.grok.se/json/en/201202/Apple_Inc.
## http://stats.grok.se/json/en/201203/Apple_Inc.
## http://stats.grok.se/json/en/201204/Apple_Inc.
## http://stats.grok.se/json/en/201205/Apple_Inc.
## http://stats.grok.se/json/en/201206/Apple_Inc.
## http://stats.grok.se/json/en/201207/Apple_Inc.
## http://stats.grok.se/json/en/201208/Apple_Inc.
## http://stats.grok.se/json/en/201209/Apple_Inc.
## http://stats.grok.se/json/en/201210/Apple_Inc.
## http://stats.grok.se/json/en/201211/Apple_Inc.
## http://stats.grok.se/json/en/201212/Apple_Inc.
## http://stats.grok.se/json/en/201301/Apple_Inc.
## http://stats.grok.se/json/en/201302/Apple_Inc.
## http://stats.grok.se/json/en/201303/Apple_Inc.
## http://stats.grok.se/json/en/201304/Apple_Inc.
## http://stats.grok.se/json/en/201305/Apple_Inc.
## http://stats.grok.se/json/en/201306/Apple_Inc.
## http://stats.grok.se/json/en/201307/Apple_Inc.
## http://stats.grok.se/json/en/201308/Apple_Inc.
## http://stats.grok.se/json/en/201309/Apple_Inc.
## http://stats.grok.se/json/en/201310/Apple_Inc.
## http://stats.grok.se/json/en/201311/Apple_Inc.
## http://stats.grok.se/json/en/201312/Apple_Inc.
## http://stats.grok.se/json/en/201401/Apple_Inc.
## http://stats.grok.se/json/en/201402/Apple_Inc.
## http://stats.grok.se/json/en/201403/Apple_Inc.
## http://stats.grok.se/json/en/201404/Apple_Inc.
## http://stats.grok.se/json/en/201405/Apple_Inc.
## http://stats.grok.se/json/en/201406/Apple_Inc.
## http://stats.grok.se/json/en/201407/Apple_Inc.
## http://stats.grok.se/json/en/201408/Apple_Inc.
## http://stats.grok.se/json/en/201409/Apple_Inc.
## http://stats.grok.se/json/en/201410/Apple_Inc.
## http://stats.grok.se/json/en/201411/Apple_Inc.
## http://stats.grok.se/json/en/201412/Apple_Inc.
## http://stats.grok.se/json/en/201501/Apple_Inc.
## http://stats.grok.se/json/en/201502/Apple_Inc.
## http://stats.grok.se/json/en/201503/Apple_Inc.
## http://stats.grok.se/json/en/201504/Apple_Inc.
## http://stats.grok.se/json/en/201505/Apple_Inc.
## http://stats.grok.se/json/en/201506/Apple_Inc.
## http://stats.grok.se/json/en/201507/Apple_Inc.
## http://stats.grok.se/json/en/201508/Apple_Inc.
## http://stats.grok.se/json/en/201509/Apple_Inc.
## http://stats.grok.se/json/en/201510/Apple_Inc.
## http://stats.grok.se/json/en/201511/Apple_Inc.
## http://stats.grok.se/json/en/201512/Apple_Inc.
views11<-wp_trend(page ="The Coca-Cola Company" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201002/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201003/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201004/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201005/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201006/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201007/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201008/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201009/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201010/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201011/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201012/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201101/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201102/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201103/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201104/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201105/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201106/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201107/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201108/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201109/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201110/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201111/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201112/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201201/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201202/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201203/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201204/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201205/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201206/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201207/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201208/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201209/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201210/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201211/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201212/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201301/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201302/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201303/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201304/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201305/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201306/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201307/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201308/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201309/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201310/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201311/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201312/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201401/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201402/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201403/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201404/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201405/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201406/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201407/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201408/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201409/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201410/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201411/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201412/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201501/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201502/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201503/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201504/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201505/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201506/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201507/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201508/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201509/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201510/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201511/The_Coca-Cola%20Company
## http://stats.grok.se/json/en/201512/The_Coca-Cola%20Company
views12<-wp_trend(page ="Caterpillar Inc." ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Caterpillar_Inc.
## http://stats.grok.se/json/en/201002/Caterpillar_Inc.
## http://stats.grok.se/json/en/201003/Caterpillar_Inc.
## http://stats.grok.se/json/en/201004/Caterpillar_Inc.
## http://stats.grok.se/json/en/201005/Caterpillar_Inc.
## http://stats.grok.se/json/en/201006/Caterpillar_Inc.
## http://stats.grok.se/json/en/201007/Caterpillar_Inc.
## http://stats.grok.se/json/en/201008/Caterpillar_Inc.
## http://stats.grok.se/json/en/201009/Caterpillar_Inc.
## http://stats.grok.se/json/en/201010/Caterpillar_Inc.
## http://stats.grok.se/json/en/201011/Caterpillar_Inc.
## http://stats.grok.se/json/en/201012/Caterpillar_Inc.
## http://stats.grok.se/json/en/201101/Caterpillar_Inc.
## http://stats.grok.se/json/en/201102/Caterpillar_Inc.
## http://stats.grok.se/json/en/201103/Caterpillar_Inc.
## http://stats.grok.se/json/en/201104/Caterpillar_Inc.
## http://stats.grok.se/json/en/201105/Caterpillar_Inc.
## http://stats.grok.se/json/en/201106/Caterpillar_Inc.
## http://stats.grok.se/json/en/201107/Caterpillar_Inc.
## http://stats.grok.se/json/en/201108/Caterpillar_Inc.
## http://stats.grok.se/json/en/201109/Caterpillar_Inc.
## http://stats.grok.se/json/en/201110/Caterpillar_Inc.
## http://stats.grok.se/json/en/201111/Caterpillar_Inc.
## http://stats.grok.se/json/en/201112/Caterpillar_Inc.
## http://stats.grok.se/json/en/201201/Caterpillar_Inc.
## http://stats.grok.se/json/en/201202/Caterpillar_Inc.
## http://stats.grok.se/json/en/201203/Caterpillar_Inc.
## http://stats.grok.se/json/en/201204/Caterpillar_Inc.
## http://stats.grok.se/json/en/201205/Caterpillar_Inc.
## http://stats.grok.se/json/en/201206/Caterpillar_Inc.
## http://stats.grok.se/json/en/201207/Caterpillar_Inc.
## http://stats.grok.se/json/en/201208/Caterpillar_Inc.
## http://stats.grok.se/json/en/201209/Caterpillar_Inc.
## http://stats.grok.se/json/en/201210/Caterpillar_Inc.
## http://stats.grok.se/json/en/201211/Caterpillar_Inc.
## http://stats.grok.se/json/en/201212/Caterpillar_Inc.
## http://stats.grok.se/json/en/201301/Caterpillar_Inc.
## http://stats.grok.se/json/en/201302/Caterpillar_Inc.
## http://stats.grok.se/json/en/201303/Caterpillar_Inc.
## http://stats.grok.se/json/en/201304/Caterpillar_Inc.
## http://stats.grok.se/json/en/201305/Caterpillar_Inc.
## http://stats.grok.se/json/en/201306/Caterpillar_Inc.
## http://stats.grok.se/json/en/201307/Caterpillar_Inc.
## http://stats.grok.se/json/en/201308/Caterpillar_Inc.
## http://stats.grok.se/json/en/201309/Caterpillar_Inc.
## http://stats.grok.se/json/en/201310/Caterpillar_Inc.
## http://stats.grok.se/json/en/201311/Caterpillar_Inc.
## http://stats.grok.se/json/en/201312/Caterpillar_Inc.
## http://stats.grok.se/json/en/201401/Caterpillar_Inc.
## http://stats.grok.se/json/en/201402/Caterpillar_Inc.
## http://stats.grok.se/json/en/201403/Caterpillar_Inc.
## http://stats.grok.se/json/en/201404/Caterpillar_Inc.
## http://stats.grok.se/json/en/201405/Caterpillar_Inc.
## http://stats.grok.se/json/en/201406/Caterpillar_Inc.
## http://stats.grok.se/json/en/201407/Caterpillar_Inc.
## http://stats.grok.se/json/en/201408/Caterpillar_Inc.
## http://stats.grok.se/json/en/201409/Caterpillar_Inc.
## http://stats.grok.se/json/en/201410/Caterpillar_Inc.
## http://stats.grok.se/json/en/201411/Caterpillar_Inc.
## http://stats.grok.se/json/en/201412/Caterpillar_Inc.
## http://stats.grok.se/json/en/201501/Caterpillar_Inc.
## http://stats.grok.se/json/en/201502/Caterpillar_Inc.
## http://stats.grok.se/json/en/201503/Caterpillar_Inc.
## http://stats.grok.se/json/en/201504/Caterpillar_Inc.
## http://stats.grok.se/json/en/201505/Caterpillar_Inc.
## http://stats.grok.se/json/en/201506/Caterpillar_Inc.
## http://stats.grok.se/json/en/201507/Caterpillar_Inc.
## http://stats.grok.se/json/en/201508/Caterpillar_Inc.
## http://stats.grok.se/json/en/201509/Caterpillar_Inc.
## http://stats.grok.se/json/en/201510/Caterpillar_Inc.
## http://stats.grok.se/json/en/201511/Caterpillar_Inc.
## http://stats.grok.se/json/en/201512/Caterpillar_Inc.
views13<-wp_trend(page ="United Technologies" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/United_Technologies
## http://stats.grok.se/json/en/201002/United_Technologies
## http://stats.grok.se/json/en/201003/United_Technologies
## http://stats.grok.se/json/en/201004/United_Technologies
## http://stats.grok.se/json/en/201005/United_Technologies
## http://stats.grok.se/json/en/201006/United_Technologies
## http://stats.grok.se/json/en/201007/United_Technologies
## http://stats.grok.se/json/en/201008/United_Technologies
## http://stats.grok.se/json/en/201009/United_Technologies
## http://stats.grok.se/json/en/201010/United_Technologies
## http://stats.grok.se/json/en/201011/United_Technologies
## http://stats.grok.se/json/en/201012/United_Technologies
## http://stats.grok.se/json/en/201101/United_Technologies
## http://stats.grok.se/json/en/201102/United_Technologies
## http://stats.grok.se/json/en/201103/United_Technologies
## http://stats.grok.se/json/en/201104/United_Technologies
## http://stats.grok.se/json/en/201105/United_Technologies
## http://stats.grok.se/json/en/201106/United_Technologies
## http://stats.grok.se/json/en/201107/United_Technologies
## http://stats.grok.se/json/en/201108/United_Technologies
## http://stats.grok.se/json/en/201109/United_Technologies
## http://stats.grok.se/json/en/201110/United_Technologies
## http://stats.grok.se/json/en/201111/United_Technologies
## http://stats.grok.se/json/en/201112/United_Technologies
## http://stats.grok.se/json/en/201201/United_Technologies
## http://stats.grok.se/json/en/201202/United_Technologies
## http://stats.grok.se/json/en/201203/United_Technologies
## http://stats.grok.se/json/en/201204/United_Technologies
## http://stats.grok.se/json/en/201205/United_Technologies
## http://stats.grok.se/json/en/201206/United_Technologies
## http://stats.grok.se/json/en/201207/United_Technologies
## http://stats.grok.se/json/en/201208/United_Technologies
## http://stats.grok.se/json/en/201209/United_Technologies
## http://stats.grok.se/json/en/201210/United_Technologies
## http://stats.grok.se/json/en/201211/United_Technologies
## http://stats.grok.se/json/en/201212/United_Technologies
## http://stats.grok.se/json/en/201301/United_Technologies
## http://stats.grok.se/json/en/201302/United_Technologies
## http://stats.grok.se/json/en/201303/United_Technologies
## http://stats.grok.se/json/en/201304/United_Technologies
## http://stats.grok.se/json/en/201305/United_Technologies
## http://stats.grok.se/json/en/201306/United_Technologies
## http://stats.grok.se/json/en/201307/United_Technologies
## http://stats.grok.se/json/en/201308/United_Technologies
## http://stats.grok.se/json/en/201309/United_Technologies
## http://stats.grok.se/json/en/201310/United_Technologies
## http://stats.grok.se/json/en/201311/United_Technologies
## http://stats.grok.se/json/en/201312/United_Technologies
## http://stats.grok.se/json/en/201401/United_Technologies
## http://stats.grok.se/json/en/201402/United_Technologies
## http://stats.grok.se/json/en/201403/United_Technologies
## http://stats.grok.se/json/en/201404/United_Technologies
## http://stats.grok.se/json/en/201405/United_Technologies
## http://stats.grok.se/json/en/201406/United_Technologies
## http://stats.grok.se/json/en/201407/United_Technologies
## http://stats.grok.se/json/en/201408/United_Technologies
## http://stats.grok.se/json/en/201409/United_Technologies
## http://stats.grok.se/json/en/201410/United_Technologies
## http://stats.grok.se/json/en/201411/United_Technologies
## http://stats.grok.se/json/en/201412/United_Technologies
## http://stats.grok.se/json/en/201501/United_Technologies
## http://stats.grok.se/json/en/201502/United_Technologies
## http://stats.grok.se/json/en/201503/United_Technologies
## http://stats.grok.se/json/en/201504/United_Technologies
## http://stats.grok.se/json/en/201505/United_Technologies
## http://stats.grok.se/json/en/201506/United_Technologies
## http://stats.grok.se/json/en/201507/United_Technologies
## http://stats.grok.se/json/en/201508/United_Technologies
## http://stats.grok.se/json/en/201509/United_Technologies
## http://stats.grok.se/json/en/201510/United_Technologies
## http://stats.grok.se/json/en/201511/United_Technologies
## http://stats.grok.se/json/en/201512/United_Technologies
views14<-wp_trend(page ="Merck & Co." ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Merck_&%20Co.
## http://stats.grok.se/json/en/201002/Merck_&%20Co.
## http://stats.grok.se/json/en/201003/Merck_&%20Co.
## http://stats.grok.se/json/en/201004/Merck_&%20Co.
## http://stats.grok.se/json/en/201005/Merck_&%20Co.
## http://stats.grok.se/json/en/201006/Merck_&%20Co.
## http://stats.grok.se/json/en/201007/Merck_&%20Co.
## http://stats.grok.se/json/en/201008/Merck_&%20Co.
## http://stats.grok.se/json/en/201009/Merck_&%20Co.
## http://stats.grok.se/json/en/201010/Merck_&%20Co.
## http://stats.grok.se/json/en/201011/Merck_&%20Co.
## http://stats.grok.se/json/en/201012/Merck_&%20Co.
## http://stats.grok.se/json/en/201101/Merck_&%20Co.
## http://stats.grok.se/json/en/201102/Merck_&%20Co.
## http://stats.grok.se/json/en/201103/Merck_&%20Co.
## http://stats.grok.se/json/en/201104/Merck_&%20Co.
## http://stats.grok.se/json/en/201105/Merck_&%20Co.
## http://stats.grok.se/json/en/201106/Merck_&%20Co.
## http://stats.grok.se/json/en/201107/Merck_&%20Co.
## http://stats.grok.se/json/en/201108/Merck_&%20Co.
## http://stats.grok.se/json/en/201109/Merck_&%20Co.
## http://stats.grok.se/json/en/201110/Merck_&%20Co.
## http://stats.grok.se/json/en/201111/Merck_&%20Co.
## http://stats.grok.se/json/en/201112/Merck_&%20Co.
## http://stats.grok.se/json/en/201201/Merck_&%20Co.
## http://stats.grok.se/json/en/201202/Merck_&%20Co.
## http://stats.grok.se/json/en/201203/Merck_&%20Co.
## http://stats.grok.se/json/en/201204/Merck_&%20Co.
## http://stats.grok.se/json/en/201205/Merck_&%20Co.
## http://stats.grok.se/json/en/201206/Merck_&%20Co.
## http://stats.grok.se/json/en/201207/Merck_&%20Co.
## http://stats.grok.se/json/en/201208/Merck_&%20Co.
## http://stats.grok.se/json/en/201209/Merck_&%20Co.
## http://stats.grok.se/json/en/201210/Merck_&%20Co.
## http://stats.grok.se/json/en/201211/Merck_&%20Co.
## http://stats.grok.se/json/en/201212/Merck_&%20Co.
## http://stats.grok.se/json/en/201301/Merck_&%20Co.
## http://stats.grok.se/json/en/201302/Merck_&%20Co.
## http://stats.grok.se/json/en/201303/Merck_&%20Co.
## http://stats.grok.se/json/en/201304/Merck_&%20Co.
## http://stats.grok.se/json/en/201305/Merck_&%20Co.
## http://stats.grok.se/json/en/201306/Merck_&%20Co.
## http://stats.grok.se/json/en/201307/Merck_&%20Co.
## http://stats.grok.se/json/en/201308/Merck_&%20Co.
## http://stats.grok.se/json/en/201309/Merck_&%20Co.
## http://stats.grok.se/json/en/201310/Merck_&%20Co.
## http://stats.grok.se/json/en/201311/Merck_&%20Co.
## http://stats.grok.se/json/en/201312/Merck_&%20Co.
## http://stats.grok.se/json/en/201401/Merck_&%20Co.
## http://stats.grok.se/json/en/201402/Merck_&%20Co.
## http://stats.grok.se/json/en/201403/Merck_&%20Co.
## http://stats.grok.se/json/en/201404/Merck_&%20Co.
## http://stats.grok.se/json/en/201405/Merck_&%20Co.
## http://stats.grok.se/json/en/201406/Merck_&%20Co.
## http://stats.grok.se/json/en/201407/Merck_&%20Co.
## http://stats.grok.se/json/en/201408/Merck_&%20Co.
## http://stats.grok.se/json/en/201409/Merck_&%20Co.
## http://stats.grok.se/json/en/201410/Merck_&%20Co.
## http://stats.grok.se/json/en/201411/Merck_&%20Co.
## http://stats.grok.se/json/en/201412/Merck_&%20Co.
## http://stats.grok.se/json/en/201501/Merck_&%20Co.
## http://stats.grok.se/json/en/201502/Merck_&%20Co.
## http://stats.grok.se/json/en/201503/Merck_&%20Co.
## http://stats.grok.se/json/en/201504/Merck_&%20Co.
## http://stats.grok.se/json/en/201505/Merck_&%20Co.
## http://stats.grok.se/json/en/201506/Merck_&%20Co.
## http://stats.grok.se/json/en/201507/Merck_&%20Co.
## http://stats.grok.se/json/en/201508/Merck_&%20Co.
## http://stats.grok.se/json/en/201509/Merck_&%20Co.
## http://stats.grok.se/json/en/201510/Merck_&%20Co.
## http://stats.grok.se/json/en/201511/Merck_&%20Co.
## http://stats.grok.se/json/en/201512/Merck_&%20Co.
views15<-wp_trend(page ="Verizon Communications" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Verizon_Communications
## http://stats.grok.se/json/en/201002/Verizon_Communications
## http://stats.grok.se/json/en/201003/Verizon_Communications
## http://stats.grok.se/json/en/201004/Verizon_Communications
## http://stats.grok.se/json/en/201005/Verizon_Communications
## http://stats.grok.se/json/en/201006/Verizon_Communications
## http://stats.grok.se/json/en/201007/Verizon_Communications
## http://stats.grok.se/json/en/201008/Verizon_Communications
## http://stats.grok.se/json/en/201009/Verizon_Communications
## http://stats.grok.se/json/en/201010/Verizon_Communications
## http://stats.grok.se/json/en/201011/Verizon_Communications
## http://stats.grok.se/json/en/201012/Verizon_Communications
## http://stats.grok.se/json/en/201101/Verizon_Communications
## http://stats.grok.se/json/en/201102/Verizon_Communications
## http://stats.grok.se/json/en/201103/Verizon_Communications
## http://stats.grok.se/json/en/201104/Verizon_Communications
## http://stats.grok.se/json/en/201105/Verizon_Communications
## http://stats.grok.se/json/en/201106/Verizon_Communications
## http://stats.grok.se/json/en/201107/Verizon_Communications
## http://stats.grok.se/json/en/201108/Verizon_Communications
## http://stats.grok.se/json/en/201109/Verizon_Communications
## http://stats.grok.se/json/en/201110/Verizon_Communications
## http://stats.grok.se/json/en/201111/Verizon_Communications
## http://stats.grok.se/json/en/201112/Verizon_Communications
## http://stats.grok.se/json/en/201201/Verizon_Communications
## http://stats.grok.se/json/en/201202/Verizon_Communications
## http://stats.grok.se/json/en/201203/Verizon_Communications
## http://stats.grok.se/json/en/201204/Verizon_Communications
## http://stats.grok.se/json/en/201205/Verizon_Communications
## http://stats.grok.se/json/en/201206/Verizon_Communications
## http://stats.grok.se/json/en/201207/Verizon_Communications
## http://stats.grok.se/json/en/201208/Verizon_Communications
## http://stats.grok.se/json/en/201209/Verizon_Communications
## http://stats.grok.se/json/en/201210/Verizon_Communications
## http://stats.grok.se/json/en/201211/Verizon_Communications
## http://stats.grok.se/json/en/201212/Verizon_Communications
## http://stats.grok.se/json/en/201301/Verizon_Communications
## http://stats.grok.se/json/en/201302/Verizon_Communications
## http://stats.grok.se/json/en/201303/Verizon_Communications
## http://stats.grok.se/json/en/201304/Verizon_Communications
## http://stats.grok.se/json/en/201305/Verizon_Communications
## http://stats.grok.se/json/en/201306/Verizon_Communications
## http://stats.grok.se/json/en/201307/Verizon_Communications
## http://stats.grok.se/json/en/201308/Verizon_Communications
## http://stats.grok.se/json/en/201309/Verizon_Communications
## http://stats.grok.se/json/en/201310/Verizon_Communications
## http://stats.grok.se/json/en/201311/Verizon_Communications
## http://stats.grok.se/json/en/201312/Verizon_Communications
## http://stats.grok.se/json/en/201401/Verizon_Communications
## http://stats.grok.se/json/en/201402/Verizon_Communications
## http://stats.grok.se/json/en/201403/Verizon_Communications
## http://stats.grok.se/json/en/201404/Verizon_Communications
## http://stats.grok.se/json/en/201405/Verizon_Communications
## http://stats.grok.se/json/en/201406/Verizon_Communications
## http://stats.grok.se/json/en/201407/Verizon_Communications
## http://stats.grok.se/json/en/201408/Verizon_Communications
## http://stats.grok.se/json/en/201409/Verizon_Communications
## http://stats.grok.se/json/en/201410/Verizon_Communications
## http://stats.grok.se/json/en/201411/Verizon_Communications
## http://stats.grok.se/json/en/201412/Verizon_Communications
## http://stats.grok.se/json/en/201501/Verizon_Communications
## http://stats.grok.se/json/en/201502/Verizon_Communications
## http://stats.grok.se/json/en/201503/Verizon_Communications
## http://stats.grok.se/json/en/201504/Verizon_Communications
## http://stats.grok.se/json/en/201505/Verizon_Communications
## http://stats.grok.se/json/en/201506/Verizon_Communications
## http://stats.grok.se/json/en/201507/Verizon_Communications
## http://stats.grok.se/json/en/201508/Verizon_Communications
## http://stats.grok.se/json/en/201509/Verizon_Communications
## http://stats.grok.se/json/en/201510/Verizon_Communications
## http://stats.grok.se/json/en/201511/Verizon_Communications
## http://stats.grok.se/json/en/201512/Verizon_Communications
views16<-wp_trend(page ="Walmart" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Walmart
## http://stats.grok.se/json/en/201002/Walmart
## http://stats.grok.se/json/en/201003/Walmart
## http://stats.grok.se/json/en/201004/Walmart
## http://stats.grok.se/json/en/201005/Walmart
## http://stats.grok.se/json/en/201006/Walmart
## http://stats.grok.se/json/en/201007/Walmart
## http://stats.grok.se/json/en/201008/Walmart
## http://stats.grok.se/json/en/201009/Walmart
## http://stats.grok.se/json/en/201010/Walmart
## http://stats.grok.se/json/en/201011/Walmart
## http://stats.grok.se/json/en/201012/Walmart
## http://stats.grok.se/json/en/201101/Walmart
## http://stats.grok.se/json/en/201102/Walmart
## http://stats.grok.se/json/en/201103/Walmart
## http://stats.grok.se/json/en/201104/Walmart
## http://stats.grok.se/json/en/201105/Walmart
## http://stats.grok.se/json/en/201106/Walmart
## http://stats.grok.se/json/en/201107/Walmart
## http://stats.grok.se/json/en/201108/Walmart
## http://stats.grok.se/json/en/201109/Walmart
## http://stats.grok.se/json/en/201110/Walmart
## http://stats.grok.se/json/en/201111/Walmart
## http://stats.grok.se/json/en/201112/Walmart
## http://stats.grok.se/json/en/201201/Walmart
## http://stats.grok.se/json/en/201202/Walmart
## http://stats.grok.se/json/en/201203/Walmart
## http://stats.grok.se/json/en/201204/Walmart
## http://stats.grok.se/json/en/201205/Walmart
## http://stats.grok.se/json/en/201206/Walmart
## http://stats.grok.se/json/en/201207/Walmart
## http://stats.grok.se/json/en/201208/Walmart
## http://stats.grok.se/json/en/201209/Walmart
## http://stats.grok.se/json/en/201210/Walmart
## http://stats.grok.se/json/en/201211/Walmart
## http://stats.grok.se/json/en/201212/Walmart
## http://stats.grok.se/json/en/201301/Walmart
## http://stats.grok.se/json/en/201302/Walmart
## http://stats.grok.se/json/en/201303/Walmart
## http://stats.grok.se/json/en/201304/Walmart
## http://stats.grok.se/json/en/201305/Walmart
## http://stats.grok.se/json/en/201306/Walmart
## http://stats.grok.se/json/en/201307/Walmart
## http://stats.grok.se/json/en/201308/Walmart
## http://stats.grok.se/json/en/201309/Walmart
## http://stats.grok.se/json/en/201310/Walmart
## http://stats.grok.se/json/en/201311/Walmart
## http://stats.grok.se/json/en/201312/Walmart
## http://stats.grok.se/json/en/201401/Walmart
## http://stats.grok.se/json/en/201402/Walmart
## http://stats.grok.se/json/en/201403/Walmart
## http://stats.grok.se/json/en/201404/Walmart
## http://stats.grok.se/json/en/201405/Walmart
## http://stats.grok.se/json/en/201406/Walmart
## http://stats.grok.se/json/en/201407/Walmart
## http://stats.grok.se/json/en/201408/Walmart
## http://stats.grok.se/json/en/201409/Walmart
## http://stats.grok.se/json/en/201410/Walmart
## http://stats.grok.se/json/en/201411/Walmart
## http://stats.grok.se/json/en/201412/Walmart
## http://stats.grok.se/json/en/201501/Walmart
## http://stats.grok.se/json/en/201502/Walmart
## http://stats.grok.se/json/en/201503/Walmart
## http://stats.grok.se/json/en/201504/Walmart
## http://stats.grok.se/json/en/201505/Walmart
## http://stats.grok.se/json/en/201506/Walmart
## http://stats.grok.se/json/en/201507/Walmart
## http://stats.grok.se/json/en/201508/Walmart
## http://stats.grok.se/json/en/201509/Walmart
## http://stats.grok.se/json/en/201510/Walmart
## http://stats.grok.se/json/en/201511/Walmart
## http://stats.grok.se/json/en/201512/Walmart
views17<-wp_trend(page ="The Walt Disney Company" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201002/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201003/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201004/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201005/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201006/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201007/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201008/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201009/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201010/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201011/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201012/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201101/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201102/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201103/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201104/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201105/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201106/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201107/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201108/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201109/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201110/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201111/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201112/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201201/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201202/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201203/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201204/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201205/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201206/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201207/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201208/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201209/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201210/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201211/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201212/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201301/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201302/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201303/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201304/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201305/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201306/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201307/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201308/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201309/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201310/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201311/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201312/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201401/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201402/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201403/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201404/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201405/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201406/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201407/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201408/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201409/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201410/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201411/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201412/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201501/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201502/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201503/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201504/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201505/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201506/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201507/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201508/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201509/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201510/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201511/The_Walt%20Disney%20Company
## http://stats.grok.se/json/en/201512/The_Walt%20Disney%20Company
views18<-wp_trend(page ="The Travelers Companies" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/The_Travelers%20Companies
## http://stats.grok.se/json/en/201002/The_Travelers%20Companies
## http://stats.grok.se/json/en/201003/The_Travelers%20Companies
## http://stats.grok.se/json/en/201004/The_Travelers%20Companies
## http://stats.grok.se/json/en/201005/The_Travelers%20Companies
## http://stats.grok.se/json/en/201006/The_Travelers%20Companies
## http://stats.grok.se/json/en/201007/The_Travelers%20Companies
## http://stats.grok.se/json/en/201008/The_Travelers%20Companies
## http://stats.grok.se/json/en/201009/The_Travelers%20Companies
## http://stats.grok.se/json/en/201010/The_Travelers%20Companies
## http://stats.grok.se/json/en/201011/The_Travelers%20Companies
## http://stats.grok.se/json/en/201012/The_Travelers%20Companies
## http://stats.grok.se/json/en/201101/The_Travelers%20Companies
## http://stats.grok.se/json/en/201102/The_Travelers%20Companies
## http://stats.grok.se/json/en/201103/The_Travelers%20Companies
## http://stats.grok.se/json/en/201104/The_Travelers%20Companies
## http://stats.grok.se/json/en/201105/The_Travelers%20Companies
## http://stats.grok.se/json/en/201106/The_Travelers%20Companies
## http://stats.grok.se/json/en/201107/The_Travelers%20Companies
## http://stats.grok.se/json/en/201108/The_Travelers%20Companies
## http://stats.grok.se/json/en/201109/The_Travelers%20Companies
## http://stats.grok.se/json/en/201110/The_Travelers%20Companies
## http://stats.grok.se/json/en/201111/The_Travelers%20Companies
## http://stats.grok.se/json/en/201112/The_Travelers%20Companies
## http://stats.grok.se/json/en/201201/The_Travelers%20Companies
## http://stats.grok.se/json/en/201202/The_Travelers%20Companies
## http://stats.grok.se/json/en/201203/The_Travelers%20Companies
## http://stats.grok.se/json/en/201204/The_Travelers%20Companies
## http://stats.grok.se/json/en/201205/The_Travelers%20Companies
## http://stats.grok.se/json/en/201206/The_Travelers%20Companies
## http://stats.grok.se/json/en/201207/The_Travelers%20Companies
## http://stats.grok.se/json/en/201208/The_Travelers%20Companies
## http://stats.grok.se/json/en/201209/The_Travelers%20Companies
## http://stats.grok.se/json/en/201210/The_Travelers%20Companies
## http://stats.grok.se/json/en/201211/The_Travelers%20Companies
## http://stats.grok.se/json/en/201212/The_Travelers%20Companies
## http://stats.grok.se/json/en/201301/The_Travelers%20Companies
## http://stats.grok.se/json/en/201302/The_Travelers%20Companies
## http://stats.grok.se/json/en/201303/The_Travelers%20Companies
## http://stats.grok.se/json/en/201304/The_Travelers%20Companies
## http://stats.grok.se/json/en/201305/The_Travelers%20Companies
## http://stats.grok.se/json/en/201306/The_Travelers%20Companies
## http://stats.grok.se/json/en/201307/The_Travelers%20Companies
## http://stats.grok.se/json/en/201308/The_Travelers%20Companies
## http://stats.grok.se/json/en/201309/The_Travelers%20Companies
## http://stats.grok.se/json/en/201310/The_Travelers%20Companies
## http://stats.grok.se/json/en/201311/The_Travelers%20Companies
## http://stats.grok.se/json/en/201312/The_Travelers%20Companies
## http://stats.grok.se/json/en/201401/The_Travelers%20Companies
## http://stats.grok.se/json/en/201402/The_Travelers%20Companies
## http://stats.grok.se/json/en/201403/The_Travelers%20Companies
## http://stats.grok.se/json/en/201404/The_Travelers%20Companies
## http://stats.grok.se/json/en/201405/The_Travelers%20Companies
## http://stats.grok.se/json/en/201406/The_Travelers%20Companies
## http://stats.grok.se/json/en/201407/The_Travelers%20Companies
## http://stats.grok.se/json/en/201408/The_Travelers%20Companies
## http://stats.grok.se/json/en/201409/The_Travelers%20Companies
## http://stats.grok.se/json/en/201410/The_Travelers%20Companies
## http://stats.grok.se/json/en/201411/The_Travelers%20Companies
## http://stats.grok.se/json/en/201412/The_Travelers%20Companies
## http://stats.grok.se/json/en/201501/The_Travelers%20Companies
## http://stats.grok.se/json/en/201502/The_Travelers%20Companies
## http://stats.grok.se/json/en/201503/The_Travelers%20Companies
## http://stats.grok.se/json/en/201504/The_Travelers%20Companies
## http://stats.grok.se/json/en/201505/The_Travelers%20Companies
## http://stats.grok.se/json/en/201506/The_Travelers%20Companies
## http://stats.grok.se/json/en/201507/The_Travelers%20Companies
## http://stats.grok.se/json/en/201508/The_Travelers%20Companies
## http://stats.grok.se/json/en/201509/The_Travelers%20Companies
## http://stats.grok.se/json/en/201510/The_Travelers%20Companies
## http://stats.grok.se/json/en/201511/The_Travelers%20Companies
## http://stats.grok.se/json/en/201512/The_Travelers%20Companies
views19<-wp_trend(page ="Boeing" ,from =startDate ,to =endDate ,lang = "en",friendly = TRUE,requestFrom = "wp.trend.tester at wptt.wptt",userAgent = TRUE)
## Option 'requestFrom' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## Option 'friendly' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             The package now is friendly by default.
##             
## Option 'userAgent' is deprecated and will cause errors 
##             in futuere versions of the wp_trend() function. Please read 
##             the package vignette and/or README to learn about the new
##             set of options.
##             
##             Check wp_http_header() to know which information are send to 
##             stats.grok.se (R and package versions)
##             
## http://stats.grok.se/json/en/201001/Boeing
## http://stats.grok.se/json/en/201002/Boeing
## http://stats.grok.se/json/en/201003/Boeing
## http://stats.grok.se/json/en/201004/Boeing
## http://stats.grok.se/json/en/201005/Boeing
## http://stats.grok.se/json/en/201006/Boeing
## http://stats.grok.se/json/en/201007/Boeing
## http://stats.grok.se/json/en/201008/Boeing
## http://stats.grok.se/json/en/201009/Boeing
## http://stats.grok.se/json/en/201010/Boeing
## http://stats.grok.se/json/en/201011/Boeing
## http://stats.grok.se/json/en/201012/Boeing
## http://stats.grok.se/json/en/201101/Boeing
## http://stats.grok.se/json/en/201102/Boeing
## http://stats.grok.se/json/en/201103/Boeing
## http://stats.grok.se/json/en/201104/Boeing
## http://stats.grok.se/json/en/201105/Boeing
## http://stats.grok.se/json/en/201106/Boeing
## http://stats.grok.se/json/en/201107/Boeing
## http://stats.grok.se/json/en/201108/Boeing
## http://stats.grok.se/json/en/201109/Boeing
## http://stats.grok.se/json/en/201110/Boeing
## http://stats.grok.se/json/en/201111/Boeing
## http://stats.grok.se/json/en/201112/Boeing
## http://stats.grok.se/json/en/201201/Boeing
## http://stats.grok.se/json/en/201202/Boeing
## http://stats.grok.se/json/en/201203/Boeing
## http://stats.grok.se/json/en/201204/Boeing
## http://stats.grok.se/json/en/201205/Boeing
## http://stats.grok.se/json/en/201206/Boeing
## http://stats.grok.se/json/en/201207/Boeing
## http://stats.grok.se/json/en/201208/Boeing
## http://stats.grok.se/json/en/201209/Boeing
## http://stats.grok.se/json/en/201210/Boeing
## http://stats.grok.se/json/en/201211/Boeing
## http://stats.grok.se/json/en/201212/Boeing
## http://stats.grok.se/json/en/201301/Boeing
## http://stats.grok.se/json/en/201302/Boeing
## http://stats.grok.se/json/en/201303/Boeing
## http://stats.grok.se/json/en/201304/Boeing
## http://stats.grok.se/json/en/201305/Boeing
## http://stats.grok.se/json/en/201306/Boeing
## http://stats.grok.se/json/en/201307/Boeing
## http://stats.grok.se/json/en/201308/Boeing
## http://stats.grok.se/json/en/201309/Boeing
## http://stats.grok.se/json/en/201310/Boeing
## http://stats.grok.se/json/en/201311/Boeing
## http://stats.grok.se/json/en/201312/Boeing
## http://stats.grok.se/json/en/201401/Boeing
## http://stats.grok.se/json/en/201402/Boeing
## http://stats.grok.se/json/en/201403/Boeing
## http://stats.grok.se/json/en/201404/Boeing
## http://stats.grok.se/json/en/201405/Boeing
## http://stats.grok.se/json/en/201406/Boeing
## http://stats.grok.se/json/en/201407/Boeing
## http://stats.grok.se/json/en/201408/Boeing
## http://stats.grok.se/json/en/201409/Boeing
## http://stats.grok.se/json/en/201410/Boeing
## http://stats.grok.se/json/en/201411/Boeing
## http://stats.grok.se/json/en/201412/Boeing
## http://stats.grok.se/json/en/201501/Boeing
## http://stats.grok.se/json/en/201502/Boeing
## http://stats.grok.se/json/en/201503/Boeing
## http://stats.grok.se/json/en/201504/Boeing
## http://stats.grok.se/json/en/201505/Boeing
## http://stats.grok.se/json/en/201506/Boeing
## http://stats.grok.se/json/en/201507/Boeing
## http://stats.grok.se/json/en/201508/Boeing
## http://stats.grok.se/json/en/201509/Boeing
## http://stats.grok.se/json/en/201510/Boeing
## http://stats.grok.se/json/en/201511/Boeing
## http://stats.grok.se/json/en/201512/Boeing
viewdf1<-cbind(views5[,1:2],views6[,2],views7[,2],views8[,2],views9[,2],views10[,2],views11[,2],views12[,2],views13[,2],views14[,2],views15[,2],views16[,2],views17[,2],views18[,2],views19[,2])
CombDF1<-merge(viewdf1,DJIADF, by.x='date', by.y='date')


DataSet<-data.frame(RSI3,EMAcross,MACDsignal,SMI,BBp,CCI20,DEMA10c) 

DataSet<-DataSet[-c(1:33),] 


Alldata<-cbind(DataSet,CombDF1[33:1509,2:16])

Normalized <-function(x) {(x-min(x))/(max(x)-min(x))}
NormalizedData<-as.data.frame(lapply(Alldata,Normalized))

ClassDF<-data.frame(date = index(Class), Class, row.names=NULL)

AlldataNormalized<-data.frame(NormalizedData,ClassDF[33:1509,2])


colnames(AlldataNormalized)<-c("RSI3","EMAcross","MACDsignal","SMI","BBp","CCI20","DEMA10c","Views1","Views2","Views3","Views4","Views5","Views6","Views7","Views8","Views9","Views10","Views11","Views12","Views13","Views14","Views15","Class") 
TrainingSet<-AlldataNormalized[1:1000,] 

TestSet<-AlldataNormalized[1001:1477,]

TrainClass<-TrainingSet[,23] 
TrainPred<-TrainingSet[,-23] 

TestClass<-TestSet[,23] 
TestPred<-TestSet[,-23] 
library(h2o)
## Loading required package: statmod
## 
## ----------------------------------------------------------------------
## 
## Your next step is to start H2O:
##     > h2o.init()
## 
## For H2O package documentation, ask for help:
##     > ??h2o
## 
## After starting H2O, you can use the Web UI at http://localhost:54321
## For more information visit http://docs.h2o.ai
## 
## ----------------------------------------------------------------------
## 
## 
## Attaching package: 'h2o'
## 
## The following objects are masked from 'package:stats':
## 
##     sd, var
## 
## The following objects are masked from 'package:base':
## 
##     %*%, apply, as.factor, as.numeric, colnames, colnames<-,
##     ifelse, %in%, is.factor, is.numeric, log, trunc
localH2O <- h2o.init(ip = "localhost", port = 54321, startH2O = TRUE)
## Successfully connected to http://localhost:54321/ 
## 
## R is connected to the H2O cluster: 
##     H2O cluster uptime:         44 minutes 9 seconds 
##     H2O cluster version:        3.6.0.8 
##     H2O cluster name:           H2O_started_from_R_mitra2_byv999 
##     H2O cluster total nodes:    1 
##     H2O cluster total memory:   0.66 GB 
##     H2O cluster total cores:    4 
##     H2O cluster allowed cores:  2 
##     H2O cluster healthy:        TRUE
localH2O = h2o.init(ip = "localhost", port = 54321, startH2O = TRUE, 
                    Xmx = '2g')
## Warning in h2o.init(ip = "localhost", port = 54321, startH2O = TRUE, Xmx =
## "2g"): Xmx is a deprecated parameter. Use `max_mem_size` and `min_mem_size`
## to set the memory boundaries. Using `Xmx` to set these.
## Successfully connected to http://localhost:54321/ 
## 
## R is connected to the H2O cluster: 
##     H2O cluster uptime:         44 minutes 9 seconds 
##     H2O cluster version:        3.6.0.8 
##     H2O cluster name:           H2O_started_from_R_mitra2_byv999 
##     H2O cluster total nodes:    1 
##     H2O cluster total memory:   0.66 GB 
##     H2O cluster total cores:    4 
##     H2O cluster allowed cores:  2 
##     H2O cluster healthy:        TRUE
TrainH2o<-as.h2o(TrainingSet, destination_frame = "TrainH2o")
## 
  |                                                                       
  |                                                                 |   0%
  |                                                                       
  |=================================================================| 100%
TestH2o<-as.h2o(TestPred, destination_frame = "TestH2o")
## 
  |                                                                       
  |                                                                 |   0%
  |                                                                       
  |=================================================================| 100%
model <- h2o.deeplearning(x = 1:22,y = 23,training_frame = TrainH2o, activation = "MaxoutWithDropout",hidden = c(500,500,500),epochs = 500,rate_decay =5e-4, l1=1e-5)
## 
  |                                                                       
  |                                                                 |   0%
  |                                                                       
  |                                                                 |   1%
  |                                                                       
  |=                                                                |   1%
  |                                                                       
  |=                                                                |   2%
  |                                                                       
  |==                                                               |   2%
  |                                                                       
  |==                                                               |   3%
  |                                                                       
  |==                                                               |   4%
  |                                                                       
  |===                                                              |   4%
  |                                                                       
  |===                                                              |   5%
  |                                                                       
  |====                                                             |   5%
  |                                                                       
  |====                                                             |   6%
  |                                                                       
  |====                                                             |   7%
  |                                                                       
  |=====                                                            |   7%
  |                                                                       
  |=================================================================| 100%
h2o_yhat_test <- h2o.predict(model,TestH2o)
df_yhat_test <- as.data.frame(h2o_yhat_test)

prediction <-df_yhat_test[,1] 

confusionMatrix(prediction,TestClass)
## Confusion Matrix and Statistics
## 
##           Reference
## Prediction DOWN  UP
##       DOWN  157  39
##       UP     69 212
##                                           
##                Accuracy : 0.7736          
##                  95% CI : (0.7333, 0.8104)
##     No Information Rate : 0.5262          
##     P-Value [Acc > NIR] : < 2.2e-16       
##                                           
##                   Kappa : 0.5429          
##  Mcnemar's Test P-Value : 0.005262        
##                                           
##             Sensitivity : 0.6947          
##             Specificity : 0.8446          
##          Pos Pred Value : 0.8010          
##          Neg Pred Value : 0.7544          
##              Prevalence : 0.4738          
##          Detection Rate : 0.3291          
##    Detection Prevalence : 0.4109          
##       Balanced Accuracy : 0.7697          
##                                           
##        'Positive' Class : DOWN            
## 
hidden_opt <- list(c(200,200), c(100,300,100), c(500,500,500))
l1_opt <- c(1e-5,1e-7)

hyper_params <- list(hidden = hidden_opt, l1 = l1_opt)


model_grid <- h2o.grid("deeplearning",hyper_params = hyper_params,x = 1:22,y = 23,training_frame = TrainH2o,distribution = "multinomial", activation = "TanhWithDropout")
## 
  |                                                                       
  |                                                                 |   0%
  |                                                                       
  |===========                                                      |  17%
  |                                                                       
  |======================                                           |  33%
  |                                                                       
  |================================                                 |  50%
  |                                                                       
  |===========================================                      |  67%
  |                                                                       
  |======================================================           |  83%
  |                                                                       
  |=================================================================| 100%
summary(model_grid)
## H2O Grid Details
## ================
## 
## Grid ID: Grid_DeepLearning_TrainH2o_model_R_1456756149445_19 
## Used hyper parameters: 
##   -  l1 
##   -  hidden 
## Number of models: 6 
## Number of failed models: 0 
## 
## Generated models
## ----------------
##     l1        hidden status_ok
##  1e-05 [500,500,500]        OK
##  1e-07     [200,200]        OK
##  1e-07 [100,300,100]        OK
##  1e-05 [100,300,100]        OK
##  1e-07 [500,500,500]        OK
##  1e-05     [200,200]        OK
##                                                    model_ids
##  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_4
##  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_1
##  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_3
##  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_2
##  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_5
##  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_0
## H2O Grid Summary
## ================
## 
## Grid ID: Grid_DeepLearning_TrainH2o_model_R_1456756149445_19 
## Used hyper parameters: 
##   -  l1 
##   -  hidden 
## Number of models: 6 
##   -  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_4 
##   -  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_1 
##   -  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_3 
##   -  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_2 
##   -  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_5 
##   -  Grid_DeepLearning_TrainH2o_model_R_1456756149445_19_model_0 
## 
## Number of failed models: 0
model_ids <- model_grid@model_ids
models <- lapply(model_ids, function(id) { h2o.getModel(id)})
library(randomForest)
## randomForest 4.6-12
## Type rfNews() to see new features/changes/bug fixes.
## 
## Attaching package: 'randomForest'
## 
## The following object is masked from 'package:ggplot2':
## 
##     margin
model.rf<-randomForest(Class ~ ., data=TrainingSet, ntree=1000,keep.forest=TRUE, importance=TRUE)

rf.pred <- predict(model.rf,TestSet )

confusionMatrix( rf.pred ,TestClass)
## Confusion Matrix and Statistics
## 
##           Reference
## Prediction DOWN  UP
##       DOWN  166  49
##       UP     60 202
##                                           
##                Accuracy : 0.7715          
##                  95% CI : (0.7311, 0.8084)
##     No Information Rate : 0.5262          
##     P-Value [Acc > NIR] : <2e-16          
##                                           
##                   Kappa : 0.5406          
##  Mcnemar's Test P-Value : 0.3382          
##                                           
##             Sensitivity : 0.7345          
##             Specificity : 0.8048          
##          Pos Pred Value : 0.7721          
##          Neg Pred Value : 0.7710          
##              Prevalence : 0.4738          
##          Detection Rate : 0.3480          
##    Detection Prevalence : 0.4507          
##       Balanced Accuracy : 0.7696          
##                                           
##        'Positive' Class : DOWN            
## 
library(e1071)

 svm.model <- svm( Class~ ., data = TrainingSet, cost = 10, gamma = 1)

 svm.pred <- predict(svm.model, TestSet)
 
 confusionMatrix( svm.pred ,TestClass)
## Confusion Matrix and Statistics
## 
##           Reference
## Prediction DOWN  UP
##       DOWN   34  10
##       UP    192 241
##                                           
##                Accuracy : 0.5765          
##                  95% CI : (0.5308, 0.6213)
##     No Information Rate : 0.5262          
##     P-Value [Acc > NIR] : 0.01541         
##                                           
##                   Kappa : 0.1152          
##  Mcnemar's Test P-Value : < 2e-16         
##                                           
##             Sensitivity : 0.15044         
##             Specificity : 0.96016         
##          Pos Pred Value : 0.77273         
##          Neg Pred Value : 0.55658         
##              Prevalence : 0.47379         
##          Detection Rate : 0.07128         
##    Detection Prevalence : 0.09224         
##       Balanced Accuracy : 0.55530         
##                                           
##        'Positive' Class : DOWN            
## 
library(nnet)
 
nn <- nnet(Class ~ ., data =TrainingSet, size = 10,  maxit = 200)
## # weights:  241
## initial  value 732.145831 
## iter  10 value 484.446713
## iter  20 value 454.102966
## iter  30 value 424.221978
## iter  40 value 397.637983
## iter  50 value 373.701114
## iter  60 value 356.295063
## iter  70 value 345.890945
## iter  80 value 337.859172
## iter  90 value 329.875050
## iter 100 value 323.775132
## iter 110 value 320.286472
## iter 120 value 317.582457
## iter 130 value 316.030631
## iter 140 value 315.443685
## iter 150 value 315.395276
## iter 160 value 315.343954
## iter 170 value 315.326130
## iter 180 value 315.324245
## iter 190 value 315.324016
## final  value 315.323958 
## converged
nnPred<-predict(nn,TestSet,type = "class")

confusionMatrix(nnPred,TestClass)
## Confusion Matrix and Statistics
## 
##           Reference
## Prediction DOWN  UP
##       DOWN  156  59
##       UP     70 192
##                                           
##                Accuracy : 0.7296          
##                  95% CI : (0.6873, 0.7689)
##     No Information Rate : 0.5262          
##     P-Value [Acc > NIR] : <2e-16          
##                                           
##                   Kappa : 0.4563          
##  Mcnemar's Test P-Value : 0.3786          
##                                           
##             Sensitivity : 0.6903          
##             Specificity : 0.7649          
##          Pos Pred Value : 0.7256          
##          Neg Pred Value : 0.7328          
##              Prevalence : 0.4738          
##          Detection Rate : 0.3270          
##    Detection Prevalence : 0.4507          
##       Balanced Accuracy : 0.7276          
##                                           
##        'Positive' Class : DOWN            
##