osvd <- OctaveFunction('svd')
osvd
osvd(matrix(1:9,3))
orand <- OctaveFunction('rand')
orand()
orand(2)
orand(2, 3)
# From source code
myfun <- OctaveFunction('function [Y] = somefun(x)
Y = x * x;
end
')
myfun
myfun(10)
Run the code above in your browser using DataLab