Inspired by the program above, here is another subroutine
to read (libsvm-format) datasets in R