#load data
data(fromXPSS)
attributes(fromXPSS)
attributes(fromXPSS$V7_2)
x <- attributesBackup(fromXPSS)
fromXPSS <- fromXPSS[order(fromXPSS$V2),]
attributes(fromXPSS)
attributes(fromXPSS$V7_2)
fromXPSS <- applyAttributes(fromXPSS, x)
attributes(fromXPSS)
attributes(fromXPSS$V7_2)
Run the code above in your browser using DataLab