I have temperature data (mg$Data) in a list:
I got rid of the singleton dimensions with:
mg$Data<-drop(mg$Data)
After proce