made tests conform to WRE, added coo test

tests/coo.R

@@ -0,0 +1,25 @@
+if(require(slam))
+{
+  library(slam)
+  library(fastcosim)
+
+  set.seed(1234)
+
+  m <- 30
+  n <- 10
+  x <- matrix(0, m, n)
+  x[sample(m*n, size=25)] <- 10
+
+  coo <- as.simple_triplet_matrix(x)
+
+  t1 <- cosine(x)
+  t2 <- cosine(coo)
+
+
+  stopifnot(all.equal(t1, t2))
+
+  #t1[which(is.nan(t1))] <- 0
+  #t2[which(is.nan(t2))] <- 0
+  #stopifnot(all.equal(t1, t2))
+}
+

tests/matrix.R

@@ -1,21 +1,26 @@
-x <- matrix(rnorm(30), 10)
+if (require(lsa))
+{
+  x <- matrix(rnorm(30), 10)
+
+  t1 <- lsa::cosine(x)
+  t2 <- fastcosim::cosine(x)
+  stopifnot(all.equal(t1, t2, check.attributes=FALSE))
+
+
+
+  x <- t(x)
+
+  t1 <- lsa::cosine(x)
+  t2 <- fastcosim::cosine(x)
+  stopifnot(all.equal(t1, t2, check.attributes=FALSE))
+
+
+
+  x <- tcrossprod(x)
+
+  t1 <- lsa::cosine(x)
+  t2 <- fastcosim::cosine(x)
+  stopifnot(all.equal(t1, t2, check.attributes=FALSE))
+}
 
-t1 <- lsa::cosine(x)
-t2 <- fastcosim::cosine(x)
-stopifnot(all.equal(t1, t2, check.attributes=FALSE))
 
-
-
-x <- t(x)
-
-t1 <- lsa::cosine(x)
-t2 <- fastcosim::cosine(x)
-stopifnot(all.equal(t1, t2, check.attributes=FALSE))
-
-
-
-x <- tcrossprod(x)
-
-t1 <- lsa::cosine(x)
-t2 <- fastcosim::cosine(x)
-stopifnot(all.equal(t1, t2, check.attributes=FALSE))

tests/vecvec.R

@@ -1,7 +1,10 @@
-x <- rnorm(30)
-y <- rnorm(30)
-
-t1 <- as.vector(lsa::cosine(x, y))
-t2 <- fastcosim::cosine(x, y)
-stopifnot(all.equal(t1, t2, check.attributes=FALSE))
+if (require(lsa))
+{
+  x <- rnorm(30)
+  y <- rnorm(30)
+
+  t1 <- as.vector(lsa::cosine(x, y))
+  t2 <- fastcosim::cosine(x, y)
+  stopifnot(all.equal(t1, t2, check.attributes=FALSE))
+}