Error in y[randperm[((l - 1) * batchsize + 1):(l * batchsize)], ] :
  subscript out of bounds是怎么回事？求助ing

原运行结果为：
nn <-nn.train(x, y, initW = NULL, initB = NULL, hidden = c(100), activationfun = "sigm",
+               learningrate = 0.8, momentum = 0.5, learningrate_scale = 1, output = "sigm",
+               numepochs =3, batchsize =9, hidden_dropout = 0, visible_dropout = 0)
Error in y[randperm[((l - 1) * batchsize + 1):(l * batchsize)], ] :
  subscript out of bounds
>