# NOT RUN {
tanx()
for (i in 1:4) tanx(i)
path_f <- system.file("fortunes/fortunes.csv", package = "fortunes")
path_s <- system.file("sinxs/sinxs.csv", package = "sinx")
ftns <- sinx::read.sinxs(c(path_f, path_s), sep = c(";", ","))
sinx::tanx(sinxs.data = ftns)
jinyong <- read.sinxs(lib = "jinyong")
tanx(sinxs.data = jinyong)
libs <- read.sinxs(lib = c("tangshi", "songshi", "chinese", "yangsheng", "english",
"jinyong"))
tanx(42, sinxs.data = libs)
# }
Run the code above in your browser using DataLab