> mydata<-swiss
> mydata2<-scale(mydata,center=T,scale=T)
> mydata2[order(mydata2$Infant.Mortality,-mydata2$Catholic),]
Error in mydata2$Infant.Mortality :
  $ operator is invalid for atomic vectors