Firefly Algorithm in R