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)
views1<-wp_trend(page ="The Home Depot" ,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_Home%20Depot
## http://stats.grok.se/json/en/201002/The_Home%20Depot
## http://stats.grok.se/json/en/201003/The_Home%20Depot
## http://stats.grok.se/json/en/201004/The_Home%20Depot
## http://stats.grok.se/json/en/201005/The_Home%20Depot
## http://stats.grok.se/json/en/201006/The_Home%20Depot
## http://stats.grok.se/json/en/201007/The_Home%20Depot
## http://stats.grok.se/json/en/201008/The_Home%20Depot
## http://stats.grok.se/json/en/201009/The_Home%20Depot
## http://stats.grok.se/json/en/201010/The_Home%20Depot
## http://stats.grok.se/json/en/201011/The_Home%20Depot
## http://stats.grok.se/json/en/201012/The_Home%20Depot
## http://stats.grok.se/json/en/201101/The_Home%20Depot
## http://stats.grok.se/json/en/201102/The_Home%20Depot
## http://stats.grok.se/json/en/201103/The_Home%20Depot
## http://stats.grok.se/json/en/201104/The_Home%20Depot
## http://stats.grok.se/json/en/201105/The_Home%20Depot
## http://stats.grok.se/json/en/201106/The_Home%20Depot
## http://stats.grok.se/json/en/201107/The_Home%20Depot
## http://stats.grok.se/json/en/201108/The_Home%20Depot
## http://stats.grok.se/json/en/201109/The_Home%20Depot
## http://stats.grok.se/json/en/201110/The_Home%20Depot
## http://stats.grok.se/json/en/201111/The_Home%20Depot
## http://stats.grok.se/json/en/201112/The_Home%20Depot
## http://stats.grok.se/json/en/201201/The_Home%20Depot
## http://stats.grok.se/json/en/201202/The_Home%20Depot
## http://stats.grok.se/json/en/201203/The_Home%20Depot
## http://stats.grok.se/json/en/201204/The_Home%20Depot
## http://stats.grok.se/json/en/201205/The_Home%20Depot
## http://stats.grok.se/json/en/201206/The_Home%20Depot
## http://stats.grok.se/json/en/201207/The_Home%20Depot
## http://stats.grok.se/json/en/201208/The_Home%20Depot
## http://stats.grok.se/json/en/201209/The_Home%20Depot
## http://stats.grok.se/json/en/201210/The_Home%20Depot
## http://stats.grok.se/json/en/201211/The_Home%20Depot
## http://stats.grok.se/json/en/201212/The_Home%20Depot
## http://stats.grok.se/json/en/201301/The_Home%20Depot
## http://stats.grok.se/json/en/201302/The_Home%20Depot
## http://stats.grok.se/json/en/201303/The_Home%20Depot
## http://stats.grok.se/json/en/201304/The_Home%20Depot
## http://stats.grok.se/json/en/201305/The_Home%20Depot
## http://stats.grok.se/json/en/201306/The_Home%20Depot
## http://stats.grok.se/json/en/201307/The_Home%20Depot
## http://stats.grok.se/json/en/201308/The_Home%20Depot
## http://stats.grok.se/json/en/201309/The_Home%20Depot
## http://stats.grok.se/json/en/201310/The_Home%20Depot
## http://stats.grok.se/json/en/201311/The_Home%20Depot
## http://stats.grok.se/json/en/201312/The_Home%20Depot
## http://stats.grok.se/json/en/201401/The_Home%20Depot
## http://stats.grok.se/json/en/201402/The_Home%20Depot
## http://stats.grok.se/json/en/201403/The_Home%20Depot
## http://stats.grok.se/json/en/201404/The_Home%20Depot
## http://stats.grok.se/json/en/201405/The_Home%20Depot
## http://stats.grok.se/json/en/201406/The_Home%20Depot
## http://stats.grok.se/json/en/201407/The_Home%20Depot
## http://stats.grok.se/json/en/201408/The_Home%20Depot
## http://stats.grok.se/json/en/201409/The_Home%20Depot
## http://stats.grok.se/json/en/201410/The_Home%20Depot
## http://stats.grok.se/json/en/201411/The_Home%20Depot
## http://stats.grok.se/json/en/201412/The_Home%20Depot
## http://stats.grok.se/json/en/201501/The_Home%20Depot
## http://stats.grok.se/json/en/201502/The_Home%20Depot
## http://stats.grok.se/json/en/201503/The_Home%20Depot
## http://stats.grok.se/json/en/201504/The_Home%20Depot
## http://stats.grok.se/json/en/201505/The_Home%20Depot
## http://stats.grok.se/json/en/201506/The_Home%20Depot
## http://stats.grok.se/json/en/201507/The_Home%20Depot
## http://stats.grok.se/json/en/201508/The_Home%20Depot
## http://stats.grok.se/json/en/201509/The_Home%20Depot
## http://stats.grok.se/json/en/201510/The_Home%20Depot
## http://stats.grok.se/json/en/201511/The_Home%20Depot
## http://stats.grok.se/json/en/201512/The_Home%20Depot
views2<-wp_trend(page ="ExxonMobil" ,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/ExxonMobil
## http://stats.grok.se/json/en/201002/ExxonMobil
## http://stats.grok.se/json/en/201003/ExxonMobil
## http://stats.grok.se/json/en/201004/ExxonMobil
## http://stats.grok.se/json/en/201005/ExxonMobil
## http://stats.grok.se/json/en/201006/ExxonMobil
## http://stats.grok.se/json/en/201007/ExxonMobil
## http://stats.grok.se/json/en/201008/ExxonMobil
## http://stats.grok.se/json/en/201009/ExxonMobil
## http://stats.grok.se/json/en/201010/ExxonMobil
## http://stats.grok.se/json/en/201011/ExxonMobil
## http://stats.grok.se/json/en/201012/ExxonMobil
## http://stats.grok.se/json/en/201101/ExxonMobil
## http://stats.grok.se/json/en/201102/ExxonMobil
## http://stats.grok.se/json/en/201103/ExxonMobil
## http://stats.grok.se/json/en/201104/ExxonMobil
## http://stats.grok.se/json/en/201105/ExxonMobil
## http://stats.grok.se/json/en/201106/ExxonMobil
## http://stats.grok.se/json/en/201107/ExxonMobil
## http://stats.grok.se/json/en/201108/ExxonMobil
## http://stats.grok.se/json/en/201109/ExxonMobil
## http://stats.grok.se/json/en/201110/ExxonMobil
## http://stats.grok.se/json/en/201111/ExxonMobil
## http://stats.grok.se/json/en/201112/ExxonMobil
## http://stats.grok.se/json/en/201201/ExxonMobil
## http://stats.grok.se/json/en/201202/ExxonMobil
## http://stats.grok.se/json/en/201203/ExxonMobil
## http://stats.grok.se/json/en/201204/ExxonMobil
## http://stats.grok.se/json/en/201205/ExxonMobil
## http://stats.grok.se/json/en/201206/ExxonMobil
## http://stats.grok.se/json/en/201207/ExxonMobil
## http://stats.grok.se/json/en/201208/ExxonMobil
## http://stats.grok.se/json/en/201209/ExxonMobil
## http://stats.grok.se/json/en/201210/ExxonMobil
## http://stats.grok.se/json/en/201211/ExxonMobil
## http://stats.grok.se/json/en/201212/ExxonMobil
## http://stats.grok.se/json/en/201301/ExxonMobil
## http://stats.grok.se/json/en/201302/ExxonMobil
## http://stats.grok.se/json/en/201303/ExxonMobil
## http://stats.grok.se/json/en/201304/ExxonMobil
## http://stats.grok.se/json/en/201305/ExxonMobil
## http://stats.grok.se/json/en/201306/ExxonMobil
## http://stats.grok.se/json/en/201307/ExxonMobil
## http://stats.grok.se/json/en/201308/ExxonMobil
## http://stats.grok.se/json/en/201309/ExxonMobil
## http://stats.grok.se/json/en/201310/ExxonMobil
## http://stats.grok.se/json/en/201311/ExxonMobil
## http://stats.grok.se/json/en/201312/ExxonMobil
## http://stats.grok.se/json/en/201401/ExxonMobil
## http://stats.grok.se/json/en/201402/ExxonMobil
## http://stats.grok.se/json/en/201403/ExxonMobil
## http://stats.grok.se/json/en/201404/ExxonMobil
## http://stats.grok.se/json/en/201405/ExxonMobil
## http://stats.grok.se/json/en/201406/ExxonMobil
## http://stats.grok.se/json/en/201407/ExxonMobil
## http://stats.grok.se/json/en/201408/ExxonMobil
## http://stats.grok.se/json/en/201409/ExxonMobil
## http://stats.grok.se/json/en/201410/ExxonMobil
## http://stats.grok.se/json/en/201411/ExxonMobil
## http://stats.grok.se/json/en/201412/ExxonMobil
## http://stats.grok.se/json/en/201501/ExxonMobil
## http://stats.grok.se/json/en/201502/ExxonMobil
## http://stats.grok.se/json/en/201503/ExxonMobil
## http://stats.grok.se/json/en/201504/ExxonMobil
## http://stats.grok.se/json/en/201505/ExxonMobil
## http://stats.grok.se/json/en/201506/ExxonMobil
## http://stats.grok.se/json/en/201507/ExxonMobil
## http://stats.grok.se/json/en/201508/ExxonMobil
## http://stats.grok.se/json/en/201509/ExxonMobil
## http://stats.grok.se/json/en/201510/ExxonMobil
## http://stats.grok.se/json/en/201511/ExxonMobil
## http://stats.grok.se/json/en/201512/ExxonMobil
views3<-wp_trend(page ="DuPont" ,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/DuPont
## http://stats.grok.se/json/en/201002/DuPont
## http://stats.grok.se/json/en/201003/DuPont
## http://stats.grok.se/json/en/201004/DuPont
## http://stats.grok.se/json/en/201005/DuPont
## http://stats.grok.se/json/en/201006/DuPont
## http://stats.grok.se/json/en/201007/DuPont
## http://stats.grok.se/json/en/201008/DuPont
## http://stats.grok.se/json/en/201009/DuPont
## http://stats.grok.se/json/en/201010/DuPont
## http://stats.grok.se/json/en/201011/DuPont
## http://stats.grok.se/json/en/201012/DuPont
## http://stats.grok.se/json/en/201101/DuPont
## http://stats.grok.se/json/en/201102/DuPont
## http://stats.grok.se/json/en/201103/DuPont
## http://stats.grok.se/json/en/201104/DuPont
## http://stats.grok.se/json/en/201105/DuPont
## http://stats.grok.se/json/en/201106/DuPont
## http://stats.grok.se/json/en/201107/DuPont
## http://stats.grok.se/json/en/201108/DuPont
## http://stats.grok.se/json/en/201109/DuPont
## http://stats.grok.se/json/en/201110/DuPont
## http://stats.grok.se/json/en/201111/DuPont
## http://stats.grok.se/json/en/201112/DuPont
## http://stats.grok.se/json/en/201201/DuPont
## http://stats.grok.se/json/en/201202/DuPont
## http://stats.grok.se/json/en/201203/DuPont
## http://stats.grok.se/json/en/201204/DuPont
## http://stats.grok.se/json/en/201205/DuPont
## http://stats.grok.se/json/en/201206/DuPont
## http://stats.grok.se/json/en/201207/DuPont
## http://stats.grok.se/json/en/201208/DuPont
## http://stats.grok.se/json/en/201209/DuPont
## http://stats.grok.se/json/en/201210/DuPont
## http://stats.grok.se/json/en/201211/DuPont
## http://stats.grok.se/json/en/201212/DuPont
## http://stats.grok.se/json/en/201301/DuPont
## http://stats.grok.se/json/en/201302/DuPont
## http://stats.grok.se/json/en/201303/DuPont
## http://stats.grok.se/json/en/201304/DuPont
## http://stats.grok.se/json/en/201305/DuPont
## http://stats.grok.se/json/en/201306/DuPont
## http://stats.grok.se/json/en/201307/DuPont
## http://stats.grok.se/json/en/201308/DuPont
## http://stats.grok.se/json/en/201309/DuPont
## http://stats.grok.se/json/en/201310/DuPont
## http://stats.grok.se/json/en/201311/DuPont
## http://stats.grok.se/json/en/201312/DuPont
## http://stats.grok.se/json/en/201401/DuPont
## http://stats.grok.se/json/en/201402/DuPont
## http://stats.grok.se/json/en/201403/DuPont
## http://stats.grok.se/json/en/201404/DuPont
## http://stats.grok.se/json/en/201405/DuPont
## http://stats.grok.se/json/en/201406/DuPont
## http://stats.grok.se/json/en/201407/DuPont
## http://stats.grok.se/json/en/201408/DuPont
## http://stats.grok.se/json/en/201409/DuPont
## http://stats.grok.se/json/en/201410/DuPont
## http://stats.grok.se/json/en/201411/DuPont
## http://stats.grok.se/json/en/201412/DuPont
## http://stats.grok.se/json/en/201501/DuPont
## http://stats.grok.se/json/en/201502/DuPont
## http://stats.grok.se/json/en/201503/DuPont
## http://stats.grok.se/json/en/201504/DuPont
## http://stats.grok.se/json/en/201505/DuPont
## http://stats.grok.se/json/en/201506/DuPont
## http://stats.grok.se/json/en/201507/DuPont
## http://stats.grok.se/json/en/201508/DuPont
## http://stats.grok.se/json/en/201509/DuPont
## http://stats.grok.se/json/en/201510/DuPont
## http://stats.grok.se/json/en/201511/DuPont
## http://stats.grok.se/json/en/201512/DuPont
views4<-wp_trend(page ="3M" ,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/3M
## http://stats.grok.se/json/en/201002/3M
## http://stats.grok.se/json/en/201003/3M
## http://stats.grok.se/json/en/201004/3M
## http://stats.grok.se/json/en/201005/3M
## http://stats.grok.se/json/en/201006/3M
## http://stats.grok.se/json/en/201007/3M
## http://stats.grok.se/json/en/201008/3M
## http://stats.grok.se/json/en/201009/3M
## http://stats.grok.se/json/en/201010/3M
## http://stats.grok.se/json/en/201011/3M
## http://stats.grok.se/json/en/201012/3M
## http://stats.grok.se/json/en/201101/3M
## http://stats.grok.se/json/en/201102/3M
## http://stats.grok.se/json/en/201103/3M
## http://stats.grok.se/json/en/201104/3M
## http://stats.grok.se/json/en/201105/3M
## http://stats.grok.se/json/en/201106/3M
## http://stats.grok.se/json/en/201107/3M
## http://stats.grok.se/json/en/201108/3M
## http://stats.grok.se/json/en/201109/3M
## http://stats.grok.se/json/en/201110/3M
## http://stats.grok.se/json/en/201111/3M
## http://stats.grok.se/json/en/201112/3M
## http://stats.grok.se/json/en/201201/3M
## http://stats.grok.se/json/en/201202/3M
## http://stats.grok.se/json/en/201203/3M
## http://stats.grok.se/json/en/201204/3M
## http://stats.grok.se/json/en/201205/3M
## http://stats.grok.se/json/en/201206/3M
## http://stats.grok.se/json/en/201207/3M
## http://stats.grok.se/json/en/201208/3M
## http://stats.grok.se/json/en/201209/3M
## http://stats.grok.se/json/en/201210/3M
## http://stats.grok.se/json/en/201211/3M
## http://stats.grok.se/json/en/201212/3M
## http://stats.grok.se/json/en/201301/3M
## http://stats.grok.se/json/en/201302/3M
## http://stats.grok.se/json/en/201303/3M
## http://stats.grok.se/json/en/201304/3M
## http://stats.grok.se/json/en/201305/3M
## http://stats.grok.se/json/en/201306/3M
## http://stats.grok.se/json/en/201307/3M
## http://stats.grok.se/json/en/201308/3M
## http://stats.grok.se/json/en/201309/3M
## http://stats.grok.se/json/en/201310/3M
## http://stats.grok.se/json/en/201311/3M
## http://stats.grok.se/json/en/201312/3M
## http://stats.grok.se/json/en/201401/3M
## http://stats.grok.se/json/en/201402/3M
## http://stats.grok.se/json/en/201403/3M
## http://stats.grok.se/json/en/201404/3M
## http://stats.grok.se/json/en/201405/3M
## http://stats.grok.se/json/en/201406/3M
## http://stats.grok.se/json/en/201407/3M
## http://stats.grok.se/json/en/201408/3M
## http://stats.grok.se/json/en/201409/3M
## http://stats.grok.se/json/en/201410/3M
## http://stats.grok.se/json/en/201411/3M
## http://stats.grok.se/json/en/201412/3M
## http://stats.grok.se/json/en/201501/3M
## http://stats.grok.se/json/en/201502/3M
## http://stats.grok.se/json/en/201503/3M
## http://stats.grok.se/json/en/201504/3M
## http://stats.grok.se/json/en/201505/3M
## http://stats.grok.se/json/en/201506/3M
## http://stats.grok.se/json/en/201507/3M
## http://stats.grok.se/json/en/201508/3M
## http://stats.grok.se/json/en/201509/3M
## http://stats.grok.se/json/en/201510/3M
## http://stats.grok.se/json/en/201511/3M
## http://stats.grok.se/json/en/201512/3M
views6<-wp_trend(page ="Procter & Gamble" ,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/Procter_&%20Gamble
## http://stats.grok.se/json/en/201002/Procter_&%20Gamble
## http://stats.grok.se/json/en/201003/Procter_&%20Gamble
## http://stats.grok.se/json/en/201004/Procter_&%20Gamble
## http://stats.grok.se/json/en/201005/Procter_&%20Gamble
## http://stats.grok.se/json/en/201006/Procter_&%20Gamble
## http://stats.grok.se/json/en/201007/Procter_&%20Gamble
## http://stats.grok.se/json/en/201008/Procter_&%20Gamble
## http://stats.grok.se/json/en/201009/Procter_&%20Gamble
## http://stats.grok.se/json/en/201010/Procter_&%20Gamble
## http://stats.grok.se/json/en/201011/Procter_&%20Gamble
## http://stats.grok.se/json/en/201012/Procter_&%20Gamble
## http://stats.grok.se/json/en/201101/Procter_&%20Gamble
## http://stats.grok.se/json/en/201102/Procter_&%20Gamble
## http://stats.grok.se/json/en/201103/Procter_&%20Gamble
## http://stats.grok.se/json/en/201104/Procter_&%20Gamble
## http://stats.grok.se/json/en/201105/Procter_&%20Gamble
## http://stats.grok.se/json/en/201106/Procter_&%20Gamble
## http://stats.grok.se/json/en/201107/Procter_&%20Gamble
## http://stats.grok.se/json/en/201108/Procter_&%20Gamble
## http://stats.grok.se/json/en/201109/Procter_&%20Gamble
## http://stats.grok.se/json/en/201110/Procter_&%20Gamble
## http://stats.grok.se/json/en/201111/Procter_&%20Gamble
## http://stats.grok.se/json/en/201112/Procter_&%20Gamble
## http://stats.grok.se/json/en/201201/Procter_&%20Gamble
## http://stats.grok.se/json/en/201202/Procter_&%20Gamble
## http://stats.grok.se/json/en/201203/Procter_&%20Gamble
## http://stats.grok.se/json/en/201204/Procter_&%20Gamble
## http://stats.grok.se/json/en/201205/Procter_&%20Gamble
## http://stats.grok.se/json/en/201206/Procter_&%20Gamble
## http://stats.grok.se/json/en/201207/Procter_&%20Gamble
## http://stats.grok.se/json/en/201208/Procter_&%20Gamble
## http://stats.grok.se/json/en/201209/Procter_&%20Gamble
## http://stats.grok.se/json/en/201210/Procter_&%20Gamble
## http://stats.grok.se/json/en/201211/Procter_&%20Gamble
## http://stats.grok.se/json/en/201212/Procter_&%20Gamble
## http://stats.grok.se/json/en/201301/Procter_&%20Gamble
## http://stats.grok.se/json/en/201302/Procter_&%20Gamble
## http://stats.grok.se/json/en/201303/Procter_&%20Gamble
## http://stats.grok.se/json/en/201304/Procter_&%20Gamble
## http://stats.grok.se/json/en/201305/Procter_&%20Gamble
## http://stats.grok.se/json/en/201306/Procter_&%20Gamble
## http://stats.grok.se/json/en/201307/Procter_&%20Gamble
## http://stats.grok.se/json/en/201308/Procter_&%20Gamble
## http://stats.grok.se/json/en/201309/Procter_&%20Gamble
## http://stats.grok.se/json/en/201310/Procter_&%20Gamble
## http://stats.grok.se/json/en/201311/Procter_&%20Gamble
## http://stats.grok.se/json/en/201312/Procter_&%20Gamble
## http://stats.grok.se/json/en/201401/Procter_&%20Gamble
## http://stats.grok.se/json/en/201402/Procter_&%20Gamble
## http://stats.grok.se/json/en/201403/Procter_&%20Gamble
## http://stats.grok.se/json/en/201404/Procter_&%20Gamble
## http://stats.grok.se/json/en/201405/Procter_&%20Gamble
## http://stats.grok.se/json/en/201406/Procter_&%20Gamble
## http://stats.grok.se/json/en/201407/Procter_&%20Gamble
## http://stats.grok.se/json/en/201408/Procter_&%20Gamble
## http://stats.grok.se/json/en/201409/Procter_&%20Gamble
## http://stats.grok.se/json/en/201410/Procter_&%20Gamble
## http://stats.grok.se/json/en/201411/Procter_&%20Gamble
## http://stats.grok.se/json/en/201412/Procter_&%20Gamble
## http://stats.grok.se/json/en/201501/Procter_&%20Gamble
## http://stats.grok.se/json/en/201502/Procter_&%20Gamble
## http://stats.grok.se/json/en/201503/Procter_&%20Gamble
## http://stats.grok.se/json/en/201504/Procter_&%20Gamble
## http://stats.grok.se/json/en/201505/Procter_&%20Gamble
## http://stats.grok.se/json/en/201506/Procter_&%20Gamble
## http://stats.grok.se/json/en/201507/Procter_&%20Gamble
## http://stats.grok.se/json/en/201508/Procter_&%20Gamble
## http://stats.grok.se/json/en/201509/Procter_&%20Gamble
## http://stats.grok.se/json/en/201510/Procter_&%20Gamble
## http://stats.grok.se/json/en/201511/Procter_&%20Gamble
## http://stats.grok.se/json/en/201512/Procter_&%20Gamble
views7<-wp_trend(page ="Goldman Sachs" ,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/Goldman_Sachs
## http://stats.grok.se/json/en/201002/Goldman_Sachs
## http://stats.grok.se/json/en/201003/Goldman_Sachs
## http://stats.grok.se/json/en/201004/Goldman_Sachs
## http://stats.grok.se/json/en/201005/Goldman_Sachs
## http://stats.grok.se/json/en/201006/Goldman_Sachs
## http://stats.grok.se/json/en/201007/Goldman_Sachs
## http://stats.grok.se/json/en/201008/Goldman_Sachs
## http://stats.grok.se/json/en/201009/Goldman_Sachs
## http://stats.grok.se/json/en/201010/Goldman_Sachs
## http://stats.grok.se/json/en/201011/Goldman_Sachs
## http://stats.grok.se/json/en/201012/Goldman_Sachs
## http://stats.grok.se/json/en/201101/Goldman_Sachs
## http://stats.grok.se/json/en/201102/Goldman_Sachs
## http://stats.grok.se/json/en/201103/Goldman_Sachs
## http://stats.grok.se/json/en/201104/Goldman_Sachs
## http://stats.grok.se/json/en/201105/Goldman_Sachs
## http://stats.grok.se/json/en/201106/Goldman_Sachs
## http://stats.grok.se/json/en/201107/Goldman_Sachs
## http://stats.grok.se/json/en/201108/Goldman_Sachs
## http://stats.grok.se/json/en/201109/Goldman_Sachs
## http://stats.grok.se/json/en/201110/Goldman_Sachs
## http://stats.grok.se/json/en/201111/Goldman_Sachs
## http://stats.grok.se/json/en/201112/Goldman_Sachs
## http://stats.grok.se/json/en/201201/Goldman_Sachs
## http://stats.grok.se/json/en/201202/Goldman_Sachs
## http://stats.grok.se/json/en/201203/Goldman_Sachs
## http://stats.grok.se/json/en/201204/Goldman_Sachs
## http://stats.grok.se/json/en/201205/Goldman_Sachs
## http://stats.grok.se/json/en/201206/Goldman_Sachs
## http://stats.grok.se/json/en/201207/Goldman_Sachs
## http://stats.grok.se/json/en/201208/Goldman_Sachs
## http://stats.grok.se/json/en/201209/Goldman_Sachs
## http://stats.grok.se/json/en/201210/Goldman_Sachs
## http://stats.grok.se/json/en/201211/Goldman_Sachs
## http://stats.grok.se/json/en/201212/Goldman_Sachs
## http://stats.grok.se/json/en/201301/Goldman_Sachs
## http://stats.grok.se/json/en/201302/Goldman_Sachs
## http://stats.grok.se/json/en/201303/Goldman_Sachs
## http://stats.grok.se/json/en/201304/Goldman_Sachs
## http://stats.grok.se/json/en/201305/Goldman_Sachs
## http://stats.grok.se/json/en/201306/Goldman_Sachs
## http://stats.grok.se/json/en/201307/Goldman_Sachs
## http://stats.grok.se/json/en/201308/Goldman_Sachs
## http://stats.grok.se/json/en/201309/Goldman_Sachs
## http://stats.grok.se/json/en/201310/Goldman_Sachs
## http://stats.grok.se/json/en/201311/Goldman_Sachs
## http://stats.grok.se/json/en/201312/Goldman_Sachs
## http://stats.grok.se/json/en/201401/Goldman_Sachs
## http://stats.grok.se/json/en/201402/Goldman_Sachs
## http://stats.grok.se/json/en/201403/Goldman_Sachs
## http://stats.grok.se/json/en/201404/Goldman_Sachs
## http://stats.grok.se/json/en/201405/Goldman_Sachs
## http://stats.grok.se/json/en/201406/Goldman_Sachs
## http://stats.grok.se/json/en/201407/Goldman_Sachs
## http://stats.grok.se/json/en/201408/Goldman_Sachs
## http://stats.grok.se/json/en/201409/Goldman_Sachs
## http://stats.grok.se/json/en/201410/Goldman_Sachs
## http://stats.grok.se/json/en/201411/Goldman_Sachs
## http://stats.grok.se/json/en/201412/Goldman_Sachs
## http://stats.grok.se/json/en/201501/Goldman_Sachs
## http://stats.grok.se/json/en/201502/Goldman_Sachs
## http://stats.grok.se/json/en/201503/Goldman_Sachs
## http://stats.grok.se/json/en/201504/Goldman_Sachs
## http://stats.grok.se/json/en/201505/Goldman_Sachs
## http://stats.grok.se/json/en/201506/Goldman_Sachs
## http://stats.grok.se/json/en/201507/Goldman_Sachs
## http://stats.grok.se/json/en/201508/Goldman_Sachs
## http://stats.grok.se/json/en/201509/Goldman_Sachs
## http://stats.grok.se/json/en/201510/Goldman_Sachs
## http://stats.grok.se/json/en/201511/Goldman_Sachs
## http://stats.grok.se/json/en/201512/Goldman_Sachs
views8<-wp_trend(page ="Cisco Systems" ,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/Cisco_Systems
## http://stats.grok.se/json/en/201002/Cisco_Systems
## http://stats.grok.se/json/en/201003/Cisco_Systems
## http://stats.grok.se/json/en/201004/Cisco_Systems
## http://stats.grok.se/json/en/201005/Cisco_Systems
## http://stats.grok.se/json/en/201006/Cisco_Systems
## http://stats.grok.se/json/en/201007/Cisco_Systems
## http://stats.grok.se/json/en/201008/Cisco_Systems
## http://stats.grok.se/json/en/201009/Cisco_Systems
## http://stats.grok.se/json/en/201010/Cisco_Systems
## http://stats.grok.se/json/en/201011/Cisco_Systems
## http://stats.grok.se/json/en/201012/Cisco_Systems
## http://stats.grok.se/json/en/201101/Cisco_Systems
## http://stats.grok.se/json/en/201102/Cisco_Systems
## http://stats.grok.se/json/en/201103/Cisco_Systems
## http://stats.grok.se/json/en/201104/Cisco_Systems
## http://stats.grok.se/json/en/201105/Cisco_Systems
## http://stats.grok.se/json/en/201106/Cisco_Systems
## http://stats.grok.se/json/en/201107/Cisco_Systems
## http://stats.grok.se/json/en/201108/Cisco_Systems
## http://stats.grok.se/json/en/201109/Cisco_Systems
## http://stats.grok.se/json/en/201110/Cisco_Systems
## http://stats.grok.se/json/en/201111/Cisco_Systems
## http://stats.grok.se/json/en/201112/Cisco_Systems
## http://stats.grok.se/json/en/201201/Cisco_Systems
## http://stats.grok.se/json/en/201202/Cisco_Systems
## http://stats.grok.se/json/en/201203/Cisco_Systems
## http://stats.grok.se/json/en/201204/Cisco_Systems
## http://stats.grok.se/json/en/201205/Cisco_Systems
## http://stats.grok.se/json/en/201206/Cisco_Systems
## http://stats.grok.se/json/en/201207/Cisco_Systems
## http://stats.grok.se/json/en/201208/Cisco_Systems
## http://stats.grok.se/json/en/201209/Cisco_Systems
## http://stats.grok.se/json/en/201210/Cisco_Systems
## http://stats.grok.se/json/en/201211/Cisco_Systems
## http://stats.grok.se/json/en/201212/Cisco_Systems
## http://stats.grok.se/json/en/201301/Cisco_Systems
## http://stats.grok.se/json/en/201302/Cisco_Systems
## http://stats.grok.se/json/en/201303/Cisco_Systems
## http://stats.grok.se/json/en/201304/Cisco_Systems
## http://stats.grok.se/json/en/201305/Cisco_Systems
## http://stats.grok.se/json/en/201306/Cisco_Systems
## http://stats.grok.se/json/en/201307/Cisco_Systems
## http://stats.grok.se/json/en/201308/Cisco_Systems
## http://stats.grok.se/json/en/201309/Cisco_Systems
## http://stats.grok.se/json/en/201310/Cisco_Systems
## http://stats.grok.se/json/en/201311/Cisco_Systems
## http://stats.grok.se/json/en/201312/Cisco_Systems
## http://stats.grok.se/json/en/201401/Cisco_Systems
## http://stats.grok.se/json/en/201402/Cisco_Systems
## http://stats.grok.se/json/en/201403/Cisco_Systems
## http://stats.grok.se/json/en/201404/Cisco_Systems
## http://stats.grok.se/json/en/201405/Cisco_Systems
## http://stats.grok.se/json/en/201406/Cisco_Systems
## http://stats.grok.se/json/en/201407/Cisco_Systems
## http://stats.grok.se/json/en/201408/Cisco_Systems
## http://stats.grok.se/json/en/201409/Cisco_Systems
## http://stats.grok.se/json/en/201410/Cisco_Systems
## http://stats.grok.se/json/en/201411/Cisco_Systems
## http://stats.grok.se/json/en/201412/Cisco_Systems
## http://stats.grok.se/json/en/201501/Cisco_Systems
## http://stats.grok.se/json/en/201502/Cisco_Systems
## http://stats.grok.se/json/en/201503/Cisco_Systems
## http://stats.grok.se/json/en/201504/Cisco_Systems
## http://stats.grok.se/json/en/201505/Cisco_Systems
## http://stats.grok.se/json/en/201506/Cisco_Systems
## http://stats.grok.se/json/en/201507/Cisco_Systems
## http://stats.grok.se/json/en/201508/Cisco_Systems
## http://stats.grok.se/json/en/201509/Cisco_Systems
## http://stats.grok.se/json/en/201510/Cisco_Systems
## http://stats.grok.se/json/en/201511/Cisco_Systems
## http://stats.grok.se/json/en/201512/Cisco_Systems
views9<-wp_trend(page ="Pfizer" ,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/Pfizer
## http://stats.grok.se/json/en/201002/Pfizer
## http://stats.grok.se/json/en/201003/Pfizer
## http://stats.grok.se/json/en/201004/Pfizer
## http://stats.grok.se/json/en/201005/Pfizer
## http://stats.grok.se/json/en/201006/Pfizer
## http://stats.grok.se/json/en/201007/Pfizer
## http://stats.grok.se/json/en/201008/Pfizer
## http://stats.grok.se/json/en/201009/Pfizer
## http://stats.grok.se/json/en/201010/Pfizer
## http://stats.grok.se/json/en/201011/Pfizer
## http://stats.grok.se/json/en/201012/Pfizer
## http://stats.grok.se/json/en/201101/Pfizer
## http://stats.grok.se/json/en/201102/Pfizer
## http://stats.grok.se/json/en/201103/Pfizer
## http://stats.grok.se/json/en/201104/Pfizer
## http://stats.grok.se/json/en/201105/Pfizer
## http://stats.grok.se/json/en/201106/Pfizer
## http://stats.grok.se/json/en/201107/Pfizer
## http://stats.grok.se/json/en/201108/Pfizer
## http://stats.grok.se/json/en/201109/Pfizer
## http://stats.grok.se/json/en/201110/Pfizer
## http://stats.grok.se/json/en/201111/Pfizer
## http://stats.grok.se/json/en/201112/Pfizer
## http://stats.grok.se/json/en/201201/Pfizer
## http://stats.grok.se/json/en/201202/Pfizer
## http://stats.grok.se/json/en/201203/Pfizer
## http://stats.grok.se/json/en/201204/Pfizer
## http://stats.grok.se/json/en/201205/Pfizer
## http://stats.grok.se/json/en/201206/Pfizer
## http://stats.grok.se/json/en/201207/Pfizer
## http://stats.grok.se/json/en/201208/Pfizer
## http://stats.grok.se/json/en/201209/Pfizer
## http://stats.grok.se/json/en/201210/Pfizer
## http://stats.grok.se/json/en/201211/Pfizer
## http://stats.grok.se/json/en/201212/Pfizer
## http://stats.grok.se/json/en/201301/Pfizer
## http://stats.grok.se/json/en/201302/Pfizer
## http://stats.grok.se/json/en/201303/Pfizer
## http://stats.grok.se/json/en/201304/Pfizer
## http://stats.grok.se/json/en/201305/Pfizer
## http://stats.grok.se/json/en/201306/Pfizer
## http://stats.grok.se/json/en/201307/Pfizer
## http://stats.grok.se/json/en/201308/Pfizer
## http://stats.grok.se/json/en/201309/Pfizer
## http://stats.grok.se/json/en/201310/Pfizer
## http://stats.grok.se/json/en/201311/Pfizer
## http://stats.grok.se/json/en/201312/Pfizer
## http://stats.grok.se/json/en/201401/Pfizer
## http://stats.grok.se/json/en/201402/Pfizer
## http://stats.grok.se/json/en/201403/Pfizer
## http://stats.grok.se/json/en/201404/Pfizer
## http://stats.grok.se/json/en/201405/Pfizer
## http://stats.grok.se/json/en/201406/Pfizer
## http://stats.grok.se/json/en/201407/Pfizer
## http://stats.grok.se/json/en/201408/Pfizer
## http://stats.grok.se/json/en/201409/Pfizer
## http://stats.grok.se/json/en/201410/Pfizer
## http://stats.grok.se/json/en/201411/Pfizer
## http://stats.grok.se/json/en/201412/Pfizer
## http://stats.grok.se/json/en/201501/Pfizer
## http://stats.grok.se/json/en/201502/Pfizer
## http://stats.grok.se/json/en/201503/Pfizer
## http://stats.grok.se/json/en/201504/Pfizer
## http://stats.grok.se/json/en/201505/Pfizer
## http://stats.grok.se/json/en/201506/Pfizer
## http://stats.grok.se/json/en/201507/Pfizer
## http://stats.grok.se/json/en/201508/Pfizer
## http://stats.grok.se/json/en/201509/Pfizer
## http://stats.grok.se/json/en/201510/Pfizer
## http://stats.grok.se/json/en/201511/Pfizer
## http://stats.grok.se/json/en/201512/Pfizer
views10<-wp_trend(page ="UnitedHealth Group" ,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/UnitedHealth_Group
## http://stats.grok.se/json/en/201002/UnitedHealth_Group
## http://stats.grok.se/json/en/201003/UnitedHealth_Group
## http://stats.grok.se/json/en/201004/UnitedHealth_Group
## http://stats.grok.se/json/en/201005/UnitedHealth_Group
## http://stats.grok.se/json/en/201006/UnitedHealth_Group
## http://stats.grok.se/json/en/201007/UnitedHealth_Group
## http://stats.grok.se/json/en/201008/UnitedHealth_Group
## http://stats.grok.se/json/en/201009/UnitedHealth_Group
## http://stats.grok.se/json/en/201010/UnitedHealth_Group
## http://stats.grok.se/json/en/201011/UnitedHealth_Group
## http://stats.grok.se/json/en/201012/UnitedHealth_Group
## http://stats.grok.se/json/en/201101/UnitedHealth_Group
## http://stats.grok.se/json/en/201102/UnitedHealth_Group
## http://stats.grok.se/json/en/201103/UnitedHealth_Group
## http://stats.grok.se/json/en/201104/UnitedHealth_Group
## http://stats.grok.se/json/en/201105/UnitedHealth_Group
## http://stats.grok.se/json/en/201106/UnitedHealth_Group
## http://stats.grok.se/json/en/201107/UnitedHealth_Group
## http://stats.grok.se/json/en/201108/UnitedHealth_Group
## http://stats.grok.se/json/en/201109/UnitedHealth_Group
## http://stats.grok.se/json/en/201110/UnitedHealth_Group
## http://stats.grok.se/json/en/201111/UnitedHealth_Group
## http://stats.grok.se/json/en/201112/UnitedHealth_Group
## http://stats.grok.se/json/en/201201/UnitedHealth_Group
## http://stats.grok.se/json/en/201202/UnitedHealth_Group
## http://stats.grok.se/json/en/201203/UnitedHealth_Group
## http://stats.grok.se/json/en/201204/UnitedHealth_Group
## http://stats.grok.se/json/en/201205/UnitedHealth_Group
## http://stats.grok.se/json/en/201206/UnitedHealth_Group
## http://stats.grok.se/json/en/201207/UnitedHealth_Group
## http://stats.grok.se/json/en/201208/UnitedHealth_Group
## http://stats.grok.se/json/en/201209/UnitedHealth_Group
## http://stats.grok.se/json/en/201210/UnitedHealth_Group
## http://stats.grok.se/json/en/201211/UnitedHealth_Group
## http://stats.grok.se/json/en/201212/UnitedHealth_Group
## http://stats.grok.se/json/en/201301/UnitedHealth_Group
## http://stats.grok.se/json/en/201302/UnitedHealth_Group
## http://stats.grok.se/json/en/201303/UnitedHealth_Group
## http://stats.grok.se/json/en/201304/UnitedHealth_Group
## http://stats.grok.se/json/en/201305/UnitedHealth_Group
## http://stats.grok.se/json/en/201306/UnitedHealth_Group
## http://stats.grok.se/json/en/201307/UnitedHealth_Group
## http://stats.grok.se/json/en/201308/UnitedHealth_Group
## http://stats.grok.se/json/en/201309/UnitedHealth_Group
## http://stats.grok.se/json/en/201310/UnitedHealth_Group
## http://stats.grok.se/json/en/201311/UnitedHealth_Group
## http://stats.grok.se/json/en/201312/UnitedHealth_Group
## http://stats.grok.se/json/en/201401/UnitedHealth_Group
## http://stats.grok.se/json/en/201402/UnitedHealth_Group
## http://stats.grok.se/json/en/201403/UnitedHealth_Group
## http://stats.grok.se/json/en/201404/UnitedHealth_Group
## http://stats.grok.se/json/en/201405/UnitedHealth_Group
## http://stats.grok.se/json/en/201406/UnitedHealth_Group
## http://stats.grok.se/json/en/201407/UnitedHealth_Group
## http://stats.grok.se/json/en/201408/UnitedHealth_Group
## http://stats.grok.se/json/en/201409/UnitedHealth_Group
## http://stats.grok.se/json/en/201410/UnitedHealth_Group
## http://stats.grok.se/json/en/201411/UnitedHealth_Group
## http://stats.grok.se/json/en/201412/UnitedHealth_Group
## http://stats.grok.se/json/en/201501/UnitedHealth_Group
## http://stats.grok.se/json/en/201502/UnitedHealth_Group
## http://stats.grok.se/json/en/201503/UnitedHealth_Group
## http://stats.grok.se/json/en/201504/UnitedHealth_Group
## http://stats.grok.se/json/en/201505/UnitedHealth_Group
## http://stats.grok.se/json/en/201506/UnitedHealth_Group
## http://stats.grok.se/json/en/201507/UnitedHealth_Group
## http://stats.grok.se/json/en/201508/UnitedHealth_Group
## http://stats.grok.se/json/en/201509/UnitedHealth_Group
## http://stats.grok.se/json/en/201510/UnitedHealth_Group
## http://stats.grok.se/json/en/201511/UnitedHealth_Group
## http://stats.grok.se/json/en/201512/UnitedHealth_Group
views11<-wp_trend(page ="IBM" ,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/IBM
## http://stats.grok.se/json/en/201002/IBM
## http://stats.grok.se/json/en/201003/IBM
## http://stats.grok.se/json/en/201004/IBM
## http://stats.grok.se/json/en/201005/IBM
## http://stats.grok.se/json/en/201006/IBM
## http://stats.grok.se/json/en/201007/IBM
## http://stats.grok.se/json/en/201008/IBM
## http://stats.grok.se/json/en/201009/IBM
## http://stats.grok.se/json/en/201010/IBM
## http://stats.grok.se/json/en/201011/IBM
## http://stats.grok.se/json/en/201012/IBM
## http://stats.grok.se/json/en/201101/IBM
## http://stats.grok.se/json/en/201102/IBM
## http://stats.grok.se/json/en/201103/IBM
## http://stats.grok.se/json/en/201104/IBM
## http://stats.grok.se/json/en/201105/IBM
## http://stats.grok.se/json/en/201106/IBM
## http://stats.grok.se/json/en/201107/IBM
## http://stats.grok.se/json/en/201108/IBM
## http://stats.grok.se/json/en/201109/IBM
## http://stats.grok.se/json/en/201110/IBM
## http://stats.grok.se/json/en/201111/IBM
## http://stats.grok.se/json/en/201112/IBM
## http://stats.grok.se/json/en/201201/IBM
## http://stats.grok.se/json/en/201202/IBM
## http://stats.grok.se/json/en/201203/IBM
## http://stats.grok.se/json/en/201204/IBM
## http://stats.grok.se/json/en/201205/IBM
## http://stats.grok.se/json/en/201206/IBM
## http://stats.grok.se/json/en/201207/IBM
## http://stats.grok.se/json/en/201208/IBM
## http://stats.grok.se/json/en/201209/IBM
## http://stats.grok.se/json/en/201210/IBM
## http://stats.grok.se/json/en/201211/IBM
## http://stats.grok.se/json/en/201212/IBM
## http://stats.grok.se/json/en/201301/IBM
## http://stats.grok.se/json/en/201302/IBM
## http://stats.grok.se/json/en/201303/IBM
## http://stats.grok.se/json/en/201304/IBM
## http://stats.grok.se/json/en/201305/IBM
## http://stats.grok.se/json/en/201306/IBM
## http://stats.grok.se/json/en/201307/IBM
## http://stats.grok.se/json/en/201308/IBM
## http://stats.grok.se/json/en/201309/IBM
## http://stats.grok.se/json/en/201310/IBM
## http://stats.grok.se/json/en/201311/IBM
## http://stats.grok.se/json/en/201312/IBM
## http://stats.grok.se/json/en/201401/IBM
## http://stats.grok.se/json/en/201402/IBM
## http://stats.grok.se/json/en/201403/IBM
## http://stats.grok.se/json/en/201404/IBM
## http://stats.grok.se/json/en/201405/IBM
## http://stats.grok.se/json/en/201406/IBM
## http://stats.grok.se/json/en/201407/IBM
## http://stats.grok.se/json/en/201408/IBM
## http://stats.grok.se/json/en/201409/IBM
## http://stats.grok.se/json/en/201410/IBM
## http://stats.grok.se/json/en/201411/IBM
## http://stats.grok.se/json/en/201412/IBM
## http://stats.grok.se/json/en/201501/IBM
## http://stats.grok.se/json/en/201502/IBM
## http://stats.grok.se/json/en/201503/IBM
## http://stats.grok.se/json/en/201504/IBM
## http://stats.grok.se/json/en/201505/IBM
## http://stats.grok.se/json/en/201506/IBM
## http://stats.grok.se/json/en/201507/IBM
## http://stats.grok.se/json/en/201508/IBM
## http://stats.grok.se/json/en/201509/IBM
## http://stats.grok.se/json/en/201510/IBM
## http://stats.grok.se/json/en/201511/IBM
## http://stats.grok.se/json/en/201512/IBM
views5<-wp_trend(page ="McDonald's" ,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/McDonald's
## http://stats.grok.se/json/en/201002/McDonald's
## http://stats.grok.se/json/en/201003/McDonald's
## http://stats.grok.se/json/en/201004/McDonald's
## http://stats.grok.se/json/en/201005/McDonald's
## http://stats.grok.se/json/en/201006/McDonald's
## http://stats.grok.se/json/en/201007/McDonald's
## http://stats.grok.se/json/en/201008/McDonald's
## http://stats.grok.se/json/en/201009/McDonald's
## http://stats.grok.se/json/en/201010/McDonald's
## http://stats.grok.se/json/en/201011/McDonald's
## http://stats.grok.se/json/en/201012/McDonald's
## http://stats.grok.se/json/en/201101/McDonald's
## http://stats.grok.se/json/en/201102/McDonald's
## http://stats.grok.se/json/en/201103/McDonald's
## http://stats.grok.se/json/en/201104/McDonald's
## http://stats.grok.se/json/en/201105/McDonald's
## http://stats.grok.se/json/en/201106/McDonald's
## http://stats.grok.se/json/en/201107/McDonald's
## http://stats.grok.se/json/en/201108/McDonald's
## http://stats.grok.se/json/en/201109/McDonald's
## http://stats.grok.se/json/en/201110/McDonald's
## http://stats.grok.se/json/en/201111/McDonald's
## http://stats.grok.se/json/en/201112/McDonald's
## http://stats.grok.se/json/en/201201/McDonald's
## http://stats.grok.se/json/en/201202/McDonald's
## http://stats.grok.se/json/en/201203/McDonald's
## http://stats.grok.se/json/en/201204/McDonald's
## http://stats.grok.se/json/en/201205/McDonald's
## http://stats.grok.se/json/en/201206/McDonald's
## http://stats.grok.se/json/en/201207/McDonald's
## http://stats.grok.se/json/en/201208/McDonald's
## http://stats.grok.se/json/en/201209/McDonald's
## http://stats.grok.se/json/en/201210/McDonald's
## http://stats.grok.se/json/en/201211/McDonald's
## http://stats.grok.se/json/en/201212/McDonald's
## http://stats.grok.se/json/en/201301/McDonald's
## http://stats.grok.se/json/en/201302/McDonald's
## http://stats.grok.se/json/en/201303/McDonald's
## http://stats.grok.se/json/en/201304/McDonald's
## http://stats.grok.se/json/en/201305/McDonald's
## http://stats.grok.se/json/en/201306/McDonald's
## http://stats.grok.se/json/en/201307/McDonald's
## http://stats.grok.se/json/en/201308/McDonald's
## http://stats.grok.se/json/en/201309/McDonald's
## http://stats.grok.se/json/en/201310/McDonald's
## http://stats.grok.se/json/en/201311/McDonald's
## http://stats.grok.se/json/en/201312/McDonald's
## http://stats.grok.se/json/en/201401/McDonald's
## http://stats.grok.se/json/en/201402/McDonald's
## http://stats.grok.se/json/en/201403/McDonald's
## http://stats.grok.se/json/en/201404/McDonald's
## http://stats.grok.se/json/en/201405/McDonald's
## http://stats.grok.se/json/en/201406/McDonald's
## http://stats.grok.se/json/en/201407/McDonald's
## http://stats.grok.se/json/en/201408/McDonald's
## http://stats.grok.se/json/en/201409/McDonald's
## http://stats.grok.se/json/en/201410/McDonald's
## http://stats.grok.se/json/en/201411/McDonald's
## http://stats.grok.se/json/en/201412/McDonald's
## http://stats.grok.se/json/en/201501/McDonald's
## http://stats.grok.se/json/en/201502/McDonald's
## http://stats.grok.se/json/en/201503/McDonald's
## http://stats.grok.se/json/en/201504/McDonald's
## http://stats.grok.se/json/en/201505/McDonald's
## http://stats.grok.se/json/en/201506/McDonald's
## http://stats.grok.se/json/en/201507/McDonald's
## http://stats.grok.se/json/en/201508/McDonald's
## http://stats.grok.se/json/en/201509/McDonald's
## http://stats.grok.se/json/en/201510/McDonald's
## http://stats.grok.se/json/en/201511/McDonald's
## http://stats.grok.se/json/en/201512/McDonald's
viewdf1<-cbind(views1[,1:2],views2[,2],views3[,2],views4[,2],views5[,2],views6[,2],views7[,2],views8[,2],views9[,2],views10[,2],views11[,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:12])
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","Class")
TrainingSet<-AlldataNormalized[1:1000,]
TestSet<-AlldataNormalized[1001:1477,]
TrainClass<-TrainingSet[,19]
TrainPred<-TrainingSet[,-19]
TestClass<-TestSet[,19]
TestPred<-TestSet[,-19]
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: 6 hours 47 minutes
## H2O cluster version: 3.6.0.8
## H2O cluster name: H2O_started_from_R_mitra2_sdt787
## 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: 6 hours 47 minutes
## H2O cluster version: 3.6.0.8
## H2O cluster name: H2O_started_from_R_mitra2_sdt787
## 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:18,y = 19,training_frame = TrainH2o, activation = "MaxoutWithDropout",hidden = c(200,200),epochs = 200,rate_decay =5e-4, l1=1e-5)
##
|
| | 0%
|
| | 1%
|
|= | 1%
|
|= | 2%
|
|== | 2%
|
|== | 3%
|
|== | 4%
|
|=== | 4%
|
|=== | 5%
|
|==== | 5%
|
|==== | 6%
|
|==== | 7%
|
|===== | 7%
|
|===== | 8%
|
|====== | 9%
|
|====== | 10%
|
|======= | 10%
|
|======= | 11%
|
|======== | 12%
|
|======== | 13%
|
|========= | 13%
|
|========= | 14%
|
|========== | 15%
|
|========== | 16%
|
|=========== | 16%
|
|=========== | 17%
|
|=========== | 18%
|
|============ | 18%
|
|============ | 19%
|
|============= | 20%
|
|============= | 21%
|
|============== | 21%
|
|============== | 22%
|
|=============== | 23%
|
|=============== | 24%
|
|================ | 24%
|
|================ | 25%
|
|================= | 26%
|
|================= | 27%
|
|================== | 27%
|
|================== | 28%
|
|=================== | 29%
|
|=================== | 30%
|
|==================== | 30%
|
|==================== | 31%
|
|===================== | 32%
|
|===================== | 33%
|
|====================== | 34%
|
|======================= | 35%
|
|======================= | 36%
|
|======================== | 37%
|
|========================= | 38%
|
|========================= | 39%
|
|========================== | 40%
|
|=========================== | 41%
|
|=========================== | 42%
|
|============================ | 43%
|
|============================= | 44%
|
|============================= | 45%
|
|============================== | 46%
|
|=============================== | 47%
|
|=============================== | 48%
|
|================================ | 49%
|
|================================= | 50%
|
|=================================================================| 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 173 52
## UP 53 199
##
## Accuracy : 0.7799
## 95% CI : (0.74, 0.8163)
## No Information Rate : 0.5262
## P-Value [Acc > NIR] : <2e-16
##
## Kappa : 0.5584
## Mcnemar's Test P-Value : 1
##
## Sensitivity : 0.7655
## Specificity : 0.7928
## Pos Pred Value : 0.7689
## Neg Pred Value : 0.7897
## Prevalence : 0.4738
## Detection Rate : 0.3627
## Detection Prevalence : 0.4717
## Balanced Accuracy : 0.7792
##
## '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:18,y = 19,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_1457502557959_12
## Used hyper parameters:
## - l1
## - hidden
## Number of models: 6
## Number of failed models: 0
##
## Generated models
## ----------------
## l1 hidden status_ok
## 1e-07 [500,500,500] OK
## 1e-07 [100,300,100] OK
## 1e-07 [200,200] OK
## 1e-05 [200,200] OK
## 1e-05 [500,500,500] OK
## 1e-05 [100,300,100] OK
## model_ids
## Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_5
## Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_3
## Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_1
## Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_0
## Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_4
## Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_2
## H2O Grid Summary
## ================
##
## Grid ID: Grid_DeepLearning_TrainH2o_model_R_1457502557959_12
## Used hyper parameters:
## - l1
## - hidden
## Number of models: 6
## - Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_5
## - Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_3
## - Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_1
## - Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_0
## - Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_4
## - Grid_DeepLearning_TrainH2o_model_R_1457502557959_12_model_2
##
## Number of failed models: 0
model_ids <- model_grid@model_ids
models <- lapply(model_ids, function(id) { h2o.getModel(id)})
library(nnet)
nn <- nnet(Class ~ ., data =TrainingSet, size = 2, maxit = 200)
## # weights: 41
## initial value 690.453357
## iter 10 value 499.643631
## iter 20 value 449.938767
## iter 30 value 438.507312
## iter 40 value 432.661792
## iter 50 value 428.860083
## iter 60 value 423.816762
## iter 70 value 419.301182
## iter 80 value 416.121352
## iter 90 value 414.257897
## iter 100 value 413.159683
## iter 110 value 412.172768
## iter 120 value 411.905057
## iter 130 value 411.643371
## iter 140 value 411.457765
## iter 150 value 411.208671
## iter 160 value 410.977647
## iter 170 value 410.864897
## iter 180 value 410.846845
## iter 190 value 410.796897
## iter 200 value 410.726309
## final value 410.726309
## stopped after 200 iterations
nnPred<-predict(nn,TestSet,type = "class")
confusionMatrix(nnPred,TestClass)
## Confusion Matrix and Statistics
##
## Reference
## Prediction DOWN UP
## DOWN 164 50
## UP 62 201
##
## Accuracy : 0.7652
## 95% CI : (0.7245, 0.8025)
## No Information Rate : 0.5262
## P-Value [Acc > NIR] : <2e-16
##
## Kappa : 0.5279
## Mcnemar's Test P-Value : 0.2986
##
## Sensitivity : 0.7257
## Specificity : 0.8008
## Pos Pred Value : 0.7664
## Neg Pred Value : 0.7643
## Prevalence : 0.4738
## Detection Rate : 0.3438
## Detection Prevalence : 0.4486
## Balanced Accuracy : 0.7632
##
## 'Positive' Class : DOWN
##