I have ordered a set of rows to get this:
2 1983 TRI-COUNTY TRAUTH 0.1495 0.1395 NA 452 0.0764 4 0 06/02/83 4 1983 TRI-COUNTY
Another solution, normally used when binding rows:
dataset <- rbind( dataset , make.rows.names=FALSE )