Nothing
#' This example shows how to get a recent plot for any given yahoo symbol
#'
### Initialize libraries
library(rpnf) # Load rpnf library
library(quantmod) # Load quantmod library
### Define wrapper for quantmod download function
downloadData <- function(symbol="GOOG") {
stockData <- new.env() #Make a new environment for quantmod to store data in
startDate = as.Date(Sys.Date()-5*365) #Specify period of time we are interested in
endDate = as.Date(Sys.Date()) # End date is today
getSymbols(symbol, env = stockData, src = "yahoo", from = startDate, to = endDate, adjust = TRUE) #Download the stock history (for all tickers)
### extract stock quotes from enviorment, rename them and store to data.frame
symbolData <- eval(parse(text=paste("OHLC(stockData$",sub("^\\^","",symbol),")",sep="")))
names(symbolData)<-c("open","high","low","close")
symbolData
}
### The example code starts
# Define (yahoo) symbol to be processed
symbol <- "PG" # e.g. "GOOG", "^DJI", "^GDAXI", "A"
# download stock quotes for last 3 years
data <- downloadData(symbol)
# Generate point and figure informations
log <- FALSE
if (log) {
boxsize <- getLogBoxsize(percent=1)
} else {
boxsize <- 1
}
reversal<-1L
pnf <- pnfprocessor(high=data$high,low=data$low,date=index(data),
boxsize=boxsize,reversal=reversal,log=log)
# View result data
#View(pnf)
# Plot result as text to console
columns <- c((max(0,max(pnf$column)-50)):max(pnf$column))
pnfplottxt(pnf[pnf$column %in% columns,],boxsize=boxsize,log=log,main=paste("P&F Plot ",symbol))
# Plot result as graphic
pnfplot(pnf,boxsize=boxsize,log=log,main=paste("P&F Plot ",symbol))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.