Calculatated
Hi All,
Can help to modify the following coding. Basically I want to calculate the standard deviation, but base on this coding the error message is come out as "Invalid procedure call or argument."
Dim Jumlah as long
Jumlah = SumSD(Mean, tempArr, Countq)
Public Function SumSD(Mean, tempArr, Countq)
Dim sumSample(10) As Long
For dataSample = 1 To Countq
sumSample(dataSample) = Sqr((tempArr(dataSample) - Mean))
Next dataSample
For dataSample = 1 To Countq
SumSD = SumSD + sumSample(dataSample)
Next dataSample
End Function
|