RSNNS array returning error as names function is returning null

Question

I\'m studying Neural Nets in R , and currently on the RSNNS subject I\'m doing the following :

data("iris")
library(RSNNS)

iris = iris[sample(1:nro