update version, doc, and tests

DESCRIPTION

@@ -2,7 +2,7 @@ Package: eive
 Type: Package
 Title: An Algorithm for Reducing Errors-in-Variable Bias in Simple
         Linear Regression
-Version: 3.1
+Version: 3.1.0
 Date: 2022-07-22
 Author: Mehmet Hakan Satman (Ph.D.), Erkin Diyarbakirlioglu (Ph.D.)
 Maintainer: Mehmet Hakan Satman <mhsatman@istanbul.edu.tr>
@@ -16,4 +16,4 @@ Repository: CRAN
 Date/Publication: 2018-05-16 21:38:11 UTC
 Suggests: 
     testthat
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.1

man/cga_generate_chromosome.Rd

@@ -7,13 +7,16 @@ cga_generate_chromosome
 Generates vector of zeros and ones for a given probability vector. 
 }
 \usage{
-cga_generate_chromosome(prob_vec)
+cga_generate_chromosome(prob_vec, vect)
 }
 %- maybe also 'usage' for other objects documented here.
 \arguments{
-  \item{prob_vec}{
+\item{prob_vec}{
 Vector of probabilities. 
 }
+\item{vect}{
+Integer vector with the same number elements of probabilities. The returned 0-1 vector is held by this variable.
+}
 }
 \details{
 This function is not directly called by user. CGA (Compact genetic algorithms) sample chromosomes using this probability vector.
@@ -22,7 +25,7 @@ of BK having the value of 1 is PK. So, it has more chance to have [1,1,1,0,0] th
 [0.9,0.9,0.9,0.1,0.1]. 
 }
 \value{
-Returns the generated chromosome for a given probability vector. Return type is vector.
+Returns NULL. The wrapped C++ function returns void. The result is held by the `vect` argument.
 }
 \author{
 Mehmet Hakan Satman <mhsatman@istanbul.edu.tr>

tests/testthat/test-cga.R

@@ -29,11 +29,14 @@ test_that("CGA - All 100 bits are 0s", {
 })
 
 test_that("CGA - Generate Chromosome", {
-    probs <- rep(0.5, 10)
-    v <- rep(0, 10)
-    cga_generate_chromosome(probs, v)
-    for (element in v) {
-        expect_gte(element, 0.0)
-        expect_lte(element, 1.0)
-    }
+    probs <- rep(0.5, 1000)
+    v <- rep(0, 1000)
+    result <- cga_generate_chromosome(probs, v)
+
+    # Function returns NULL
+    expect_null(result)
+
+    # Not all of the values are same
+    expect_false(all(v == 0))
+    expect_false(all(v == 1))
 })