> df=data.frame(x=numeric(), y=numeric(), z=numeric())
> xyzmatrix(df) <- xyzmatrix(df)
Error in value[[jvseq[[jjj]]]] : subscript out of bounds