Take 2...  Now includes plot[1-4].R