# 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