how to find Particle swarm optimization (PSO) fitness function in R programming?

Question

I\'m new to Machine Learning, so kindly ask for more details if required or do point me towards the resources I should read to have a better understanding. Lets say I have a dat