# NOT RUN {
if(findJulia(test = TRUE) ) {
## even so, the Julia may not be valid
## so we catch any errors in the example, mainly to keep CRAN quiet
tryCatch( {set.seed(228)
x <- matrix(rnorm(1000),20,5)
xm <- juliaSend(x)
juliaCommand("using LinearAlgebra")
svdJ <- JuliaFunction("svd")
sxm <- svdJ(xm)
sxm
}, error = function(e) message("Julia Example error: " ,e$message))}
# }
Run the code above in your browser using DataLab