Update STTools.R