Summary Statistics Example (VB.NET)
[VB.NET]
' COPYRIGHT(C), SIMPLEXAR SOFTWARE LIMITED, 2006-2008.
' All rights reserved.
'
' Use of this copyright notice is precautionary only, and does not imply
' publication or disclosure. The content of this work contains confidential
' and proprietary information of Simplexar Software Limited. Any duplication,
' modification, distribution, or disclosure in any form, in whole, or in part,
' is strictly prohibited without express prior written permission.
' Get namespaces.
Imports System
Imports Simplexar.Statsar
' Start namespace.
Namespace Simplexar.Examples.Statsar
' This example uses the statistics calculator to perform summary
' statistics on a data sheet (e.g. mean, median and mode).
Module Example
' The application entry point.
Public Sub Main()
Try
RunExample()
Catch exception As Exception
Console.WriteLine(exception)
End Try
Console.WriteLine("Press ENTER to terminate.")
Console.ReadLine()
End Sub
Private Sub RunExample()
' Create a calculator.
Dim calculator As New StatsCalculator()
' Use the calculator to load the sheet.
Dim sheet As DataSheet = calculator.Load( _
"..\..\..\..\..\Data\ExamResults.csv")
Console.WriteLine(sheet)
' Calculate summary statistics for the english result column.
Console.WriteLine("Count: {0}", _
calculator.Count("EnglishResult"))
Console.WriteLine("Sum: {0}", _
calculator.Sum("EnglishResult"))
Console.WriteLine("Mean: {0}", _
calculator.Mean("EnglishResult"))
Console.WriteLine("Trimmed mean (50%): {0}", _
calculator.TrimMean("EnglishResult", 0.5))
Console.WriteLine("Geometric mean: {0}", _
calculator.GeometricMean("EnglishResult"))
Console.WriteLine("Harmonic mean: {0}", _
calculator.HarmonicMean("EnglishResult"))
Console.WriteLine("Mode: {0}", _
calculator.Mode("EnglishResult"))
Console.WriteLine("Max: {0}", _
calculator.Max("EnglishResult"))
Console.WriteLine("Max abs: {0}", _
calculator.MaxAbs("EnglishResult"))
Console.WriteLine("Min: {0}", _
calculator.Min("EnglishResult"))
Console.WriteLine("Min abs: {0}", _
calculator.MinAbs("EnglishResult"))
Console.WriteLine("Midrange: {0}", _
calculator.Midrange("EnglishResult"))
Console.WriteLine("Range: {0}", _
calculator.Range("EnglishResult"))
Console.WriteLine("Median: {0}", _
calculator.Median("EnglishResult"))
Console.WriteLine()
End Sub
End Module
End Namespace