added th par(mfrow=c(1,1)) to the other R files
to make sure they reset when someone tries to run them out
of sequence