Mechanical loss characterization at cryogenic temperature of a tungsten wire: An automated measurement system