unit test solutions

Author: LaurentGatto

unittesting.Rmd

@@ -164,9 +164,9 @@ isExactIn("a", c("abc", letters))
 isExactIn(c("a", "z"), c("abc", letters))
 ```
 
-<!-- ### Solution -->
+### Solution
 
-```{r, echo=FALSE, eval=FALSE}
+```{r}
 ## Unit test:
 library("RUnit")
 test_isExactIn <- function() {

unittesting.md

@@ -57,7 +57,7 @@ isIn(x, LETTERS)
 ```
 
 ```
-## [1] "B" "Y" "A" "T" "J"
+## [1] "I" "K" "S" "Y" "W"
 ```
 But
 
@@ -68,7 +68,7 @@ isIn(c(x, "a"), LETTERS)
 ```
 
 ```
-## [1] "B" "Y" "A" "T" "J" NA
+## [1] "I" "K" "S" "Y" "W" NA
 ```
 
 ### Solution
@@ -263,9 +263,37 @@ isExactIn(c("a", "z"), c("abc", letters))
 ## [1] "abc" "a"
 ```
 
-<!-- ### Solution -->
+### Solution
+
 
+```r
+## Unit test:
+library("RUnit")
+test_isExactIn <- function() {
+    checkIdentical("a", isExactIn("a", letters))
+    checkIdentical("a", isExactIn("a", c("abc", letters)))
+    checkIdentical(c("a", "z"), isExactIn(c("a", "z"), c("abc", letters)))
+}
 
+test_isExactIn()
+```
+
+```
+## Error in checkIdentical("a", isExactIn("a", c("abc", letters))): FALSE 
+## 
+```
+
+```r
+## updated function:
+isExactIn <- function(x, y)
+    x[x %in% y]
+
+test_isExactIn()
+```
+
+```
+## [1] TRUE
+```
 
 ## If conditions with length > 1
 
@@ -387,12 +415,12 @@ y <- rnorm(5)
 ```
 
 ```
-##              x           y
-## [1,]  2.301199  0.60939751
-## [2,]  1.380715  1.49984771
-## [3,]  1.237685  0.58034293
-## [4,] -1.723762 -0.45066731
-## [5,] -1.389801 -0.05480788
+##               x           y
+## [1,] -3.1164934 -1.81741540
+## [2,]  1.5741209 -0.05377479
+## [3,] -0.6298675  0.68829382
+## [4,] -1.3595685 -1.09019047
+## [5,]  0.9666774  0.76398426
 ```
 
 ```r
@@ -401,15 +429,15 @@ y <- rnorm(5)
 
 ```
 ##         x         y 
-## 2.3011991 0.6093975
+## -3.116493 -1.817415
 ```
 
 ```r
 distances(p, m)
 ```
 
 ```
-## [1] 0.000000 1.280700 1.063910 4.162217 3.750287
+## [1] 0.000000 5.011217 3.530140 1.901484 4.830725
 ```
 
 ```r
@@ -418,21 +446,21 @@ distances(p, m)
 ```
 
 ```
-##           x           y
-## 1  2.301199  0.60939751
-## 2  1.380715  1.49984771
-## 3  1.237685  0.58034293
-## 4 -1.723762 -0.45066731
-## 5 -1.389801 -0.05480788
+##            x           y
+## 1 -3.1164934 -1.81741540
+## 2  1.5741209 -0.05377479
+## 3 -0.6298675  0.68829382
+## 4 -1.3595685 -1.09019047
+## 5  0.9666774  0.76398426
 ```
 
 ```r
 (q <- dd[1, ])
 ```
 
 ```
-##          x         y
-## 1 2.301199 0.6093975
+##           x         y
+## 1 -3.116493 -1.817415
 ```
 
 ```r