library(kstIO)
library(kstMatrix)
csvname <- paste0(tempdir(), "/xpl_bas.csv")
odsname <- paste0(tempdir(), "/xpl_bas.ods")
srbtname <- paste0(tempdir(), "/xpl.bas")

xpl$basis

write_kbase(xpl$basis, csvname)
cat(readLines(csvname), sep='\n')

write_kbase(xpl$basis, odsname)
odsname

read_kbase(paste0(tempdir(), "/xpl_bas.ods"))

write_kbase(xpl$basis, srbtname, format="SRBT")
cat(readLines(srbtname), sep='\n')