if (FALSE) ###dontrunbegin
# create artificial data
adata <- artificial.data(rnd_features = 1000)
write.adx(adata, file = file.path(tempdir(), "adata.adx"), target = "class")
adata <- read.adx(file = file.path(tempdir(), "adata.adx"))
###dontrunend
Run the code above in your browser using DataLab