From 4ced25933fce584b759997c37cbebc58ff8654ba Mon Sep 17 00:00:00 2001
From: Kaustubh Patil <kaustubh.patil@gmail.com>
Date: Sun, 14 Mar 2021 23:18:57 +0100
Subject: [PATCH] fixing the hardcoded ncol=2 which leads to a carsh when
 number of objectives is not 2

---
 R/geneticoperator.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geneticoperator.R b/R/geneticoperator.R
index 7f803c7..1c70240 100644
--- a/R/geneticoperator.R
+++ b/R/geneticoperator.R
@@ -332,7 +332,7 @@ nsga_spCrossover <- function(object, parents) {
     children <- matrix(as.double(NA), nrow = 2, ncol = n)
     crossOverPoint <- sample(0:n, size = 1)
     if (crossOverPoint == 0) {
-        fitnessChildren <- matrix(as.double(NA), nrow = 2, ncol = 2)
+        fitnessChildren <- matrix(as.double(NA), nrow = 2, ncol = ncol(fitness))
         children[1:2, ] <- parents[2:1, ]
         fitnessChildren[1:2, ] <- fitness[2:1, ]
     } else if (crossOverPoint == n) {