Error when running with a single parameter about hydropso HOT 2 CLOSED

Hi!
Apologies for double posting, but I only found this repo now...
This problem is generated at the initialization phase of PSO in the case of 1D optimization. The way to go is to replace this line (2076 in PSO_v2013.R file):
V = V <- t(apply(V, MARGIN = 1, FUN = velocity.boundary.treatment, vmax = Vmax))

with:
V = matrix(apply(V, MARGIN = 1, FUN = velocity.boundary.treatment, vmax = Vmax), nrow=npart,byrow=T)

from hydropso.

Thanks @cjzilverberg for reporting and @zo0z for proving a solution.
This issue has been fixed in the current under-development version (0.3-4-5).

You may try:

D <- 1

lower <- rep(-5.12, D)
upper <- rep(5.12, D)
setwd("~")

set.seed(100)
hydroPSO(fn=rastrigin, lower=lower, upper=upper, control=list(write2disk=FALSE) )

from hydropso.