w<-binaryMDPWriter("test_") w$setWeights(c("Duration", "Net reward")) w$process() w$stage() for (ii in 2:10 ) { w$state(label="test") w$endState() } w$endStage() w$endProcess() w$closeWriter() mdp<-loadMDP("test_", verbose = T) mdp