Update Highstock.R

Moved a function to its right place.