'#Reference {BE35B7EB-0D00-44D8-B3A5-0727DF5AD7C1}#1.0#0#
'#Reference {C9E29001-3D45-11D4-9FF4-00C04FA0D540}#1.0#0#
'#Language "WWB-COM"
Option Base 1

Sub Main
Dim s As Spreadsheet
Set s = ActiveSpreadsheet
'v promenne v1 je ulozena prevalence'
'v promenne v2 je ulozen pocet pozitivnich objektu, ktere test oznacil za pozitivni'
'v promenne v3 je ulozen pocet negativnich objektu, ktere test oznacil za pozitivni'
'v promenne v4 je ulozen pocet pozitivnich objektu, ktere test oznacil za negativni'
'v promenne v5 je ulozen pocet negativnich objektu, ktere test oznacil za negativni'
'v promenne v6 je ulozen odhad prediktivni validity pozitiviho testu'
'v promenne v7 je ulozen odhad prediktivni validity negativiho testu'
s.VariableLongName(6) = "=(prevalence*a/(a+c))/(prevalence*a/(a+c)+(1-prevalence)*b/(b+d))"
s.VariableLongName(7) = "=((1-prevalence)*d/(b+d))/(prevalence*c/(a+c)+(1-prevalence)*d/(b+d))"
s.Recalculate
End Sub

'STATISTICA MACRO FILE VERSION 4
'BEGINPROPERTIES
'NAME=diagnosticky_test
'DESCRIPTION=
'LANGUAGE=0
'SCRIPTING=0
'ENDPROPERTIES