setScale correctly in LoadModel and moved save/load to file statismoIO.r