# load the data and build the correct network from the model string.
data(hailfinder)
res = empty.graph(names(hailfinder))
modelstring(res) = paste("[N07muVerMo][SubjVertMo][QGVertMotion][SatContMoist]",
"[RaoContMoist][VISCloudCov][IRCloudCover][AMInstabMt][WndHodograph]",
"[MorningBound][LoLevMoistAd][Date][MorningCIN][LIfr12ZDENSd][AMDewptCalPl]",
"[LatestCIN][LLIW][CombVerMo|N07muVerMo:SubjVertMo:QGVertMotion]",
"[CombMoisture|SatContMoist:RaoContMoist][CombClouds|VISCloudCov:IRCloudCover]",
"[Scenario|Date][CurPropConv|LatestCIN:LLIW][AreaMesoALS|CombVerMo]",
"[ScenRelAMCIN|Scenario][ScenRelAMIns|Scenario][ScenRel34|Scenario]",
"[ScnRelPlFcst|Scenario][Dewpoints|Scenario][LowLLapse|Scenario]",
"[MeanRH|Scenario][MidLLapse|Scenario][MvmtFeatures|Scenario][RHRatio|Scenario]",
"[SfcWndShfDis|Scenario][SynForcng|Scenario][TempDis|Scenario]",
"[WindAloft|Scenario][WindFieldMt|Scenario][WindFieldPln|Scenario]",
"[AreaMoDryAir|AreaMesoALS:CombMoisture][AMCINInScen|ScenRelAMCIN:MorningCIN]",
"[AMInsWliScen|ScenRelAMIns:LIfr12ZDENSd:AMDewptCalPl]",
"[CldShadeOth|AreaMesoALS:AreaMoDryAir:CombClouds][InsInMt|CldShadeOth:AMInstabMt]",
"[OutflowFrMt|InsInMt:WndHodograph][CldShadeConv|InsInMt:WndHodograph]",
"[MountainFcst|InsInMt][Boundaries|WndHodograph:OutflowFrMt:MorningBound]",
"[CompPlFcst|AreaMesoALS:CldShadeOth:Boundaries:CldShadeConv]",
"[CapChange|CompPlFcst][InsChange|CompPlFcst:LoLevMoistAd]",
"[CapInScen|CapChange:AMCINInScen][InsSclInScen|InsChange:AMInsWliScen]",
"[PlainsFcst|CapInScen:InsSclInScen:CurPropConv:ScnRelPlFcst]",
"[N34StarFcst|ScenRel34:PlainsFcst][R5Fcst|MountainFcst:N34StarFcst]",
sep = "")
# there are too many nodes for plot(), use graphviz.plot().
graphviz.plot(res)
Run the code above in your browser using DataLab