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