# NOT RUN {
InvT_Eng <- read.table(system.file("extdata", "InvT_Eng.txt",package = "svs"),
header = TRUE, sep = "\t", quote = "\"", encoding = "UTF-8",
stringsAsFactors = FALSE)
sca.InvT_Eng <- fast_sca(InvT_Eng)
sca.InvT_Eng
lsa.InvT_Eng <- fast_lsa(InvT_Eng)
lsa.InvT_Eng
# }
Run the code above in your browser using DataLab