You can also try something like this:
x1 / x1[1, , drop = TRUE]
# x y z s t q
# 1 1 1 1.0000000 1.0000000 1.0000000 1.000000
# 2 2 8 0.6315789 0.6315789 0.6315789 5.052632
# 3 3 27 -0.3684211 -0.3684211 -0.3684211 -9.947368
# 4 4 64 -2.3157895 -2.3157895 -2.3157895 -148.210526
# 5 5 125 -5.5263158 -5.5263158 -5.5263158 -690.789474
# 6 6 216 -10.3157895 -10.3157895 -10.3157895 -2228.210526
# 7 7 343 -17.0000000 -17.0000000 -17.0000000 -5831.000000
# 8 8 512 -25.8947368 -25.8947368 -25.8947368 -13258.105263
# 9 9 729 -37.3157895 -37.3157895 -37.3157895 -27203.210526
# 10 10 1000 -51.5789474 -51.5789474 -51.5789474 -51578.947368