R-package/demo/basic_bench.R

require(mxnet)
require(methods)


shape = c(1, 1)
lr = 0.01
x = mx.nd.ones(shape)
y = mx.nd.zeros(shape)
print(x)
n = 1000


tic = proc.time()
for (i in 1 : n) {
  y = y + x *lr
}
toc = proc.time() - tic
as.array(y)
print(toc)