# NOT RUN {
params <-list(sElevator=NULL,
sCustomer=NULL,
currentState=NULL,
nextState=NULL,
counter=NULL,
nStates=12,
nElevators=2,
probNewCustomer=0.1,
weightsPerceptron=rep(0.1, 24),
nWeights=NULL,
nIterations=100,
randomSeed=1234)
init_ring(params)
# }
Run the code above in your browser using DataLab