The code is a bit inefficient, but it works fine. What you need to do is make sure the PlotRange is showing everything in the Plots. Evaluate this to see the plots you want:
Show[fullTarget, PlotRange -> All] Show[fullSource, PlotRange -> All]
Thanks!
