IBM® SPSS® Amos™ 28

The following program specifies a multivariate normal population with covariance matrix and mean given by

.

Then it displays the rank of the covariance matrix.

Imports System.Diagnostics
Module MainModule
    Sub Main()
        Dim arand As New AMOSRANDOMLib6.AmosRanGen
        Dim Covariances(2) As Double
        Dim Means(1) As Double
        Covariances(0) = 3
        Covariances(1) = 1
        Covariances(2) = 2
        Means(0) = 4
        Means(1) = 5
 
        Call arand.SpecifyPopulation(Covariances, Means)
 
        Debug.WriteLine("Rank = " & arand.Rank)
    End Sub
End Module