Fixed Sotkanet/demo2.R to get only necessary data from Sotkanet