Added new functions init.ets.R and mseastest.R