This example demonstrates adding confidence bands to a trend line. It also demonstrates how to display linear regression parameters on the chart.
In linear regression, the data points are assumed to be related by:
y = m * x + c + err
where m and c are constants, and err is a random variable. Linear regression estimates m, c and err based on available data.
As m and c are estimated values, the trend line y = m * x + c may be inaccurate. In ChartDirector, the uncertainties can be represented as a confidence band using
TrendLayer.addConfidenceBand. For example, the 95% confidence band means there are 95% probability that the "real" trend line is in that band.
To predict a data point (infer y given x), we use y = m * x + c + err. As m, c and err are estimated values, the predicted data point may be inaccurate. In ChartDirector, the uncertainties can be represented as a prediction band using
TrendLayer.addPredictionBand.
Note that the prediction band is always wider than the confidence band because of the extra uncertainties contributed by the err term.
In ChartDirector, the linear regression parameters slope, intercept, correlation coefficient and standard error can be obtained by using
TrendLayer.getSlope,
TrendLayer.getIntercept,
TrendLayer.getCorrelation and
TrendLayer.getStdError. (Please refer to appropriate statistics text books for explanation of these values.)
In this example, the linear regression parameters are formatted into a table using
CDML, which is then added to the chart as custom text box using
BaseChart.addText.
[Web Version (in ASP)] aspdemo\confidenceband.asp
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The XY data of the first data series
dataX = Array(50, 55, 37, 24, 42, 49, 63, 72, 83, 59)
dataY = Array(3.6, 2.8, 2.5, 2.3, 3.8, 3.0, 3.8, 5.0, 6.0, 3.3)
' Create a XYChart object of size 450 x 420 pixels
Set c = cd.XYChart(450, 420)
' Set the plotarea at (55, 65) and of size 350 x 300 pixels, with white background and a light grey
' border (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color
' (0xc0c0c0)
Call c.setPlotArea(55, 65, 350, 300, &Hffffff, -1, &Hc0c0c0, &Hc0c0c0, -1)
' Add a title to the chart using 18 point Times Bold Itatic font.
Call c.addTitle("Server Performance", "Times New Roman Bold Italic", 18)
' Add titles to the axes using 12pt Arial Bold Italic font
Call c.yAxis().setTitle("Response Time (sec)", "Arial Bold Italic", 12)
Call c.xAxis().setTitle("Server Load (TPS)", "Arial Bold Italic", 12)
' Set the axes line width to 3 pixels
Call c.yAxis().setWidth(3)
Call c.xAxis().setWidth(3)
' Add a scatter layer using (dataX, dataY)
Set scatterLayer = c.addScatterLayer(dataX, dataY, "", cd.DiamondSymbol, 11, &H008000)
' tool tip for scatter layer
Call scatterLayer.setHTMLImageMap("", "", "title='Response time at {x} TPS: {value} sec'")
' Add a trend line layer for (dataX, dataY)
Set trendLayer = c.addTrendLayer2(dataX, dataY, &H008000)
' Set the line width to 3 pixels
Call trendLayer.setLineWidth(3)
' Add a 95% confidence band for the line
Call trendLayer.addConfidenceBand(0.95, &H806666ff)
' Add a 95% confidence band (prediction band) for the points
Call trendLayer.addPredictionBand(0.95, &H8066ff66)
' tool tip for trend layer
Call trendLayer.setHTMLImageMap("", "", _
"title='Slope = {slope|4} sec/TPS; Intercept = {intercept|4} sec'")
' Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 10pt Arial Bold Italic
' font. Set the background and border color to Transparent.
Set legendBox = c.addLegend(50, 30, False, "Arial Bold Italic", 10)
Call legendBox.setBackground(cd.Transparent)
' Add entries to the legend box
Call legendBox.addKey("95% Line Confidence", &H806666ff)
Call legendBox.addKey("95% Point Confidence", &H8066ff66)
' Display the trend line parameters as a text table formatted using CDML
Set textbox = c.addText(56, 65, _
"<*block*>Slope<*br*>Intercept<*br*>Correlation<*br*>Std Error<*/*> <*block*>" & _
FormatNumber(trendLayer.getSlope(), 4) & " sec/tps<*br*>" & FormatNumber( _
trendLayer.getIntercept(), 4) & " sec<*br*>" & FormatNumber(trendLayer.getCorrelation(), 4) & _
"<*br*>" & FormatNumber(trendLayer.getStdError(), 4) & " sec<*/*>", "Arial Bold", 8)
' Set the background of the text box to light grey, with a black border, and 1 pixel 3D border
Call textbox.setBackground(&Hc0c0c0, 0, 1)
' Output the chart
Set viewer = cd.WebChartViewer(Request, "chart1")
Call viewer.setChart(c, cd.SVG)
' include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap("")
%>
<!DOCTYPE html>
<html>
<head>
<title>Confidence Band</title>
<!-- Include ChartDirector Javascript Library to support chart interactions -->
<script type="text/javascript" src="cdjcv.js"></script>
</head>
<body style="margin:5px 0px 0px 5px">
<div style="font:bold 18pt verdana;">
Confidence Band
</div>
<hr style="border:solid 1px #000080; background:#000080" />
<div style="font:10pt verdana; margin-bottom:1.5em">
<a href="viewsource.asp?file=<%= Request("SCRIPT_NAME") %>">View Chart Source Code</a>
</div>
<!-- ****** Here is the chart image ****** -->
<%= viewer.renderHTML() %>
</body>
</html>
[Windows Version (in Visual Basic)] vbdemo\confidenceband.cls
Public Sub createChart(viewer As Object, chartIndex As Integer)
Dim cd As New ChartDirector.API
' The XY data of the first data series
Dim dataX()
dataX = Array(50, 55, 37, 24, 42, 49, 63, 72, 83, 59)
Dim dataY()
dataY = Array(3.6, 2.8, 2.5, 2.3, 3.8, 3.0, 3.8, 5.0, 6.0, 3.3)
' Create a XYChart object of size 450 x 420 pixels
Dim c As XYChart
Set c = cd.XYChart(450, 420)
' Set the plotarea at (55, 65) and of size 350 x 300 pixels, with white background and a light
' grey border (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color
' (0xc0c0c0)
Call c.setPlotArea(55, 65, 350, 300, &Hffffff, -1, &Hc0c0c0, &Hc0c0c0, -1)
' Add a title to the chart using 18 point Times Bold Itatic font.
Call c.addTitle("Server Performance", "timesbi.ttf", 18)
' Add titles to the axes using 12pt Arial Bold Italic font
Call c.yAxis().setTitle("Response Time (sec)", "arialbi.ttf", 12)
Call c.xAxis().setTitle("Server Load (TPS)", "arialbi.ttf", 12)
' Set the axes line width to 3 pixels
Call c.yAxis().setWidth(3)
Call c.xAxis().setWidth(3)
' Add a scatter layer using (dataX, dataY)
Dim scatterLayer As ScatterLayer
Set scatterLayer = c.addScatterLayer(dataX, dataY, "", cd.DiamondSymbol, 11, &H008000)
' tool tip for scatter layer
Call scatterLayer.setHTMLImageMap("", "", "title='Response time at {x} TPS: {value} sec'")
' Add a trend line layer for (dataX, dataY)
Dim trendLayer As TrendLayer
Set trendLayer = c.addTrendLayer2(dataX, dataY, &H008000)
' Set the line width to 3 pixels
Call trendLayer.setLineWidth(3)
' Add a 95% confidence band for the line
Call trendLayer.addConfidenceBand(0.95, &H806666ff)
' Add a 95% confidence band (prediction band) for the points
Call trendLayer.addPredictionBand(0.95, &H8066ff66)
' tool tip for trend layer
Call trendLayer.setHTMLImageMap("", "", _
"title='Slope = {slope|4} sec/TPS; Intercept = {intercept|4} sec'")
' Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 10pt Arial Bold
' Italic font. Set the background and border color to Transparent.
Dim legendBox As LegendBox
Set legendBox = c.addLegend(50, 30, False, "arialbi.ttf", 10)
Call legendBox.setBackground(cd.Transparent)
' Add entries to the legend box
Call legendBox.addKey("95% Line Confidence", &H806666ff)
Call legendBox.addKey("95% Point Confidence", &H8066ff66)
' Display the trend line parameters as a text table formatted using CDML
Dim textbox As ChartDirector.TextBox
Set textbox = c.addText(56, 65, _
"<*block*>Slope<*br*>Intercept<*br*>Correlation<*br*>Std Error<*/*> <*block*>" & _
FormatNumber(trendLayer.getSlope(), 4) & " sec/tps<*br*>" & FormatNumber( _
trendLayer.getIntercept(), 4) & " sec<*br*>" & FormatNumber(trendLayer.getCorrelation(), 4 _
) & "<*br*>" & FormatNumber(trendLayer.getStdError(), 4) & " sec<*/*>", "arialbd.ttf", 8)
' Set the background of the text box to light grey, with a black border, and 1 pixel 3D border
Call textbox.setBackground(&Hc0c0c0, 0, 1)
' Output the chart
Set viewer.Picture = c.makePicture()
' include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap("clickable")
End Sub
© 2021 Advanced Software Engineering Limited. All rights reserved.