Description Usage Arguments Details Author(s) See Also Examples
Plots the periodic returns as a bar chart overlayed with a risk metric calculation.
1 2 3 4 5 6 7 8 9 10 11 12  | chart.BarVaR(R, width = 0, gap = 12, methods = c("none", "ModifiedVaR",
  "GaussianVaR", "HistoricalVaR", "StdDev", "ModifiedES", "GaussianES",
  "HistoricalES"), p = 0.95, clean = c("none", "boudt", "geltner"),
  all = FALSE, ..., show.clean = FALSE, show.horizontal = FALSE,
  show.symmetric = FALSE, show.endvalue = FALSE,
  show.greenredbars = FALSE, legend.loc = "bottomleft", ylim = NA,
  lwd = 2, colorset = 1:12, lty = c(1, 2, 4, 5, 6), ypad = 0,
  legend.cex = 0.8)
charts.BarVaR(R, main = "Returns", cex.legend = 0.8, colorset = 1:12,
  ylim = NA, ..., perpanel = NULL, show.yaxis = c("all", "firstonly",
  "alternating", "none"))
 | 
R | 
 an xts, vector, matrix, data frame, timeSeries or zoo object of asset returns  | 
width | 
 periods specified for rolling-period calculations. Note that VaR, ES, and Std Dev with width=0 are calculated from the start of the timeseries  | 
gap | 
 numeric number of periods from start of series to use to train risk calculation  | 
methods | 
 Used to select the risk parameter of trailing  
  | 
p | 
 confidence level for   | 
clean | 
 the method to use to clean outliers from return data prior to
risk metric estimation. See   | 
all | 
 if TRUE, calculates risk lines for each column given in R. If FALSE, only calculates the risk line for the first column  | 
show.clean | 
 if TRUE and a method for 'clean' is specified, overlays
the actual data with the "cleaned" data.  See   | 
show.horizontal | 
 if TRUE, shows a line across the timeseries at the value of the most recent VaR estimate, to help the reader evaluate the number of exceptions thus far  | 
show.symmetric | 
 if TRUE and the metric is symmetric, this will show the metric's positive values as well as negative values, such as for method "StdDev".  | 
show.endvalue | 
 if TRUE, show the final (out of sample) value  | 
show.greenredbars | 
 if TRUE, show the per-period returns using green and red bars for positive and negative returns  | 
legend.loc | 
 legend location, such as in   | 
ylim | 
 set the y-axis limit, same as in   | 
lwd | 
 set the line width, same as in   | 
colorset | 
 color palette to use, such as in
  | 
lty | 
 set the line type, same as in   | 
ypad | 
 adds a numerical padding to the y-axis to keep the data away when legend.loc="bottom". See examples below.  | 
legend.cex | 
 sets the legend text size, such as in
  | 
main | 
 sets the title text, such as in   | 
cex.legend | 
 sets the legend text size, such as in
  | 
perpanel | 
 default NULL, controls column display  | 
show.yaxis | 
 one of "all", "firstonly", "alternating", or "none" to control where y axis is plotted in multipanel charts  | 
... | 
 any other passthru parameters to   | 
Note that StdDev and VaR are symmetric calculations, so a high
and low measure will be plotted.  ModifiedVaR, on the other hand, is
assymetric and only a lower bound will be drawn.
Creates a plot of time on the x-axis and vertical lines for each period to indicate value on the y-axis. Overlays a line to indicate the value of a risk metric calculated at that time period.
charts.BarVaR places multile bar charts in a single 
graphic, with associated risk measures
Peter Carl
chart.TimeSeries 
 plot 
ES 
 VaR 
 Return.clean
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46  | data(managers)
# plain
chart.BarVaR(managers[,1,drop=FALSE], main="Monthly Returns")
# with risk line
chart.BarVaR(managers[,1,drop=FALSE], 
		methods="HistoricalVaR", 
		main="... with Empirical VaR from Inception")
# with lines for all managers in the sample
chart.BarVaR(managers[,1:6], 
		methods="GaussianVaR", 
		all=TRUE, lty=1, lwd=2, 
		colorset= c("red", rep("gray", 5)), 
		main="... with Gaussian VaR and Estimates for Peers")
## Not run: 
# not run on CRAN because of example time
# with multiple methods
chart.BarVaR(managers[,1,drop=FALSE],
		methods=c("HistoricalVaR", "ModifiedVaR", "GaussianVaR"), 
		main="... with Multiple Methods")
# cleaned up a bit
chart.BarVaR(managers[,1,drop=FALSE],
		methods=c("HistoricalVaR", "ModifiedVaR", "GaussianVaR"), 
		lwd=2, ypad=.01, 
		main="... with Padding for Bottom Legend")
# with 'cleaned' data for VaR estimates
chart.BarVaR(managers[,1,drop=FALSE],
		methods=c("HistoricalVaR", "ModifiedVaR"), 
		lwd=2, ypad=.01, clean="boudt", 
		main="... with Robust ModVaR Estimate")
# Cornish Fisher VaR estimated with cleaned data, 
# with horizontal line to show exceptions
chart.BarVaR(managers[,1,drop=FALSE],
		methods="ModifiedVaR", 
		lwd=2, ypad=.01, clean="boudt", 
		show.horizontal=TRUE, lty=2, 
		main="... with Robust ModVaR and Line for Identifying Exceptions")
## End(Not run)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.