Testing code snippets.
DecayNetworkPlot[s_, size_, ratio_] :=
LayeredGraphPlot[
Sort[
Select[
Transpose[
{Network[s], DecaySymbols[s, 12]}
], (Not[#[[1, 2, 1, 1]] === Missing["Variable"]] \[And]
Not[#[[2, 1, 1, 1, 1, 3]] === "SF"]) &
] // Quiet
],
VertexLabeling -> True,
ImageSize -> size,
AspectRatio -> ratio,
PlotRangePadding -> 0,
VertexRenderingFunction -> (Text[
Framed[Style[#2, 8], Background -> LightYellow,
RoundingRadius -> 5], #1] &)
]