scriptInit function

Prepare R for an interactive script