library(mxnet)
library(dplyr)
supply_tensor = mxnet::mx.nd.array(
array(
rep(
c(c(c(1,2,3,4,5),
c(1,2,3,4,5),
c(1,2,3,4,5),
c(1,2,3,4,5),
c(1,2,3,4,5))
),4)
,dim=c(5,5,4,1)
),ctx = mxnet::mx.cpu()
)
demand_tensor = mxnet::mx.nd.array(
array(
seq(1,100),dim=c(5,5,4,1))
,ctx = mxnet::mx.cpu()
)
sum_supply_tensor = mxnet::mx.nd.sum.axis(data = supply_tensor,axis = c(2,3))
supply_tensor %>%
mxnet::mx.nd.broadcast.div(
sum_supply_tensor %>%
mxnet::mx.nd.expand.dims(1) %>%
mxnet::mx.nd.expand.dims(1)
)