data(Titanic)
str( Titanic )
str( tab2vec(Titanic) )
# convert it back into a table (names are removed)
vec2tab(
tab2vec(Titanic),
dim(Titanic)
)
# check that they are the same
all( vec2tab(tab2vec(Titanic), dim(Titanic)) == Titanic )
Run the code above in your browser using DataLab