Fixing plot4.R - changing Active to Reactive