// ~->[DNET-1]->~ // File created by AlmondR at FloridaStateU using Netica 4.16 on Apr 16, 2015 at 09:50:40. bnet CostOfTesting1 { AutoCompile = TRUE; autoupdate = TRUE; whenchanged = 1429195831; visual V1 { defdispform = BELIEFBARS; nodelabeling = TITLE; NodeMaxNumEntries = 50; nodefont = font {shape= "Arial"; size= 9;}; linkfont = font {shape= "Arial"; size= 9;}; windowposn = (8, 5, 1042, 518); resolution = 72; drawingbounds = (1184, 778); showpagebreaks = FALSE; usegrid = TRUE; gridspace = (6, 6); NodeSet Node {BuiltIn = 1; Color = 0xe1e1e1;}; NodeSet Nature {BuiltIn = 1; Color = 0xf8eed2;}; NodeSet Deterministic {BuiltIn = 1; Color = 0xd3caa6;}; NodeSet Finding {BuiltIn = 1; Color = 0xc8c8c8;}; NodeSet Constant {BuiltIn = 1; Color = 0xffffff;}; NodeSet ConstantValue {BuiltIn = 1; Color = 0xffffb4;}; NodeSet Utility {BuiltIn = 1; Color = 0xffbdbd;}; NodeSet Decision {BuiltIn = 1; Color = 0xdee8ff;}; NodeSet Documentation {BuiltIn = 1; Color = 0xf0fafa;}; NodeSet Title {BuiltIn = 1; Color = 0xffffff;}; PrinterSetting A { margins = (1270, 1270, 1270, 1270); landscape = FALSE; magnify = 1; }; }; node Skill1 { kind = NATURE; discrete = TRUE; chance = CHANCE; states = (Low, High); levels = (0, 1); parents = (); probs = // Low High (0.5, 0.5); numcases = 100; equation = "p(Skill1) = Skill1==Low ? 100-BaseRate : BaseRate"; title = "Skill At Time 1"; whenchanged = 1429193887; belief = (0.5, 0.5); visual V1 { center = (330, 300); height = 1; }; }; node Test { kind = DECISION; discrete = TRUE; chance = DETERMIN; states = (Yes, No); parents = (); functable = (Yes); title = "Test?"; whenchanged = 1427489065; belief = (1, 0); visual V1 { center = (546, 66); height = 4; }; }; node Screening { kind = NATURE; discrete = TRUE; chance = CHANCE; states = (Unknown, Pass, Fail); parents = (Skill1, Test); probs = // Unknown Pass Fail // Skill1 Test (0.4736842, 0.05263158, 0.4736842, // Low Yes 1, 0, 0, // Low No 0.1304348, 0.7391304, 0.1304348, // High Yes 1, 0, 0); // High No ; numcases = // Skill1 Test (190, // Low Yes 100, // Low No 115, // High Yes 100); // High No ; equation = "p (Screening | Skill1, Test) = \n\ Test==No ? (Screening==Unknown ? 100 : 0) :\n\ Skill1==High ? (Screening==Pass ? Sensitivity : (100-Sensitivity)) :\n\ (Screening==Pass ? 100-Specificity : Specificity)\n\ "; title = "Screening Test"; whenchanged = 1429193834; belief = (0.6510298, 0.1979405, 0.1510298); visual V1 { center = (306, 66); height = 3; }; }; node Instruction { kind = DECISION; discrete = TRUE; chance = DETERMIN; states = (Tier1, Tier2); parents = (Test, Screening); functable = // Test Screening (Tier2, // Yes Unknown Tier1, // Yes Pass Tier2, // Yes Fail Tier2, // No Unknown Tier1, // No Pass Tier1); // No Fail ; whenchanged = 1424616650; belief = (0, 1); visual V1 { center = (534, 168); height = 11; link 2 { path = ((389, 104), (470, 139)); }; }; }; node Skill2 { kind = NATURE; discrete = TRUE; chance = CHANCE; states = (Low, High); levels = (0, 1); parents = (Skill1, Instruction); probs = // Low High // Skill1 Instruction (0.75, 0.25, // Low Tier1 0.25, 0.75, // Low Tier2 0.01, 0.99, // High Tier1 0.01, 0.99); // High Tier2 ; numcases = 100; equation = "p (Skill2 | Skill1, Instruction) = \n\ Skill1==High ? (Skill2==High?100-Forgetting:Forgetting):\n\ Instruction==Tier1 ?(Skill2==High?T1Effect:100-T1Effect):\n\ (Skill2==High?T2Effect:100-T2Effect)"; title = "Skill At Time 2"; whenchanged = 1429195831; belief = (0.255, 0.745); visual V1 { center = (654, 300); height = 2; }; }; node Benefit { kind = UTILITY; discrete = FALSE; measure = RATIO; chance = DETERMIN; parents = (Skill2); functable = // Skill2 (0, // Low 5); // High ; equation = "Benefit (Skill2) = Skill2 == High ? B1 : 0"; title = "Benefit of final result"; whenchanged = 1424615953; visual V1 { center = (870, 300); height = 7; }; }; node TestCost { kind = UTILITY; discrete = FALSE; measure = RATIO; chance = DETERMIN; parents = (Test); functable = // Test (0, // Yes 0); // No ; equation = "TestCost (Test) = Test== Yes ? -C1 : 0"; title = "CostOfTesting"; whenchanged = 1427489808; visual V1 { center = (852, 66); height = 6; }; }; node InstructionCost { kind = UTILITY; discrete = FALSE; measure = RATIO; chance = DETERMIN; parents = (Instruction); functable = // Instruction (0, // Tier1 -1); // Tier2 ; equation = "InstructionCost (Instruction) = \nInstruction == Tier2 ? -C2 : 0"; title = "Cost Of Instruction"; whenchanged = 1424616537; visual V1 { center = (846, 168); height = 5; }; }; node C1 { kind = CONSTANT; discrete = FALSE; levels = (0, 10); parents = (); EqnDirty = TRUE; title = "Cost of Testing"; whenchanged = 1427489804; evidence = #0; value = 0; visual V1 { center = (1026, 66); height = 8; }; }; node C2 { kind = CONSTANT; discrete = FALSE; levels = (0, 10); parents = (); EqnDirty = TRUE; title = "Marginal Cost of Tier 2"; whenchanged = 1424615585; evidence = #0; value = 1; visual V1 { center = (1038, 168); height = 9; }; }; node B1 { kind = CONSTANT; discrete = FALSE; levels = (0, 10); parents = (); EqnDirty = TRUE; title = "MarginalBenefit of High Skill"; whenchanged = 1427489006; evidence = #0; value = 7; visual V1 { center = (1056, 294); height = 10; }; }; node Sensitivity { kind = CONSTANT; discrete = FALSE; chance = CHANCE; levels = (0, 100); parents = (); EqnDirty = TRUE; comment = "Probability that a person who is High in the skill passes."; whenchanged = 1429191547; evidence = #0; value = 85; visual V1 { center = (96, 126); height = 12; }; }; node Specificity { kind = CONSTANT; discrete = FALSE; chance = CHANCE; levels = (0, 100); parents = (); EqnDirty = TRUE; comment = "Probability that a person who is low in the skill fails the test"; whenchanged = 1429191656; evidence = #0; value = 90; visual V1 { center = (96, 168); height = 13; }; }; node BaseRate { kind = CONSTANT; discrete = FALSE; chance = CHANCE; levels = (0, 100); parents = (); EqnDirty = TRUE; title = "Base Rate"; comment = "Base Rate of skill in population"; whenchanged = 1429193789; evidence = #0; value = 50; visual V1 { center = (102, 282); height = 14; }; }; node T1Effect { kind = CONSTANT; discrete = FALSE; chance = CHANCE; levels = (0, 100); parents = (); EqnDirty = TRUE; title = "Tier 1 effect"; comment = "The probability that a person who is low in Skill 1 and given Tier 1 instruction will move to \ high"; whenchanged = 1429195826; evidence = #0; value = 25; visual V1 { center = (540, 354); height = 16; }; }; node T2Effect { kind = CONSTANT; discrete = FALSE; chance = CHANCE; levels = (0, 100); parents = (); EqnDirty = TRUE; title = "Tier 2 effect"; comment = "Probability that somebody who is low in the skill will move to high if they are givien Tier 2 \ instruction"; whenchanged = 1429195819; evidence = #0; value = 75; visual V1 { center = (540, 384); height = 15; }; }; node Forgetting { kind = CONSTANT; discrete = FALSE; chance = CHANCE; levels = (0, 100); parents = (); EqnDirty = TRUE; comment = "Probability that a person who is high in the skill at time 1 will drop to low at time 2"; whenchanged = 1429195785; evidence = #0; value = 1; visual V1 { center = (702, 372); height = 17; }; }; ElimOrder = (Skill2, Skill1, Instruction, Screening, Test); };