Added placeholder for mysubset()

R/mysubset.R

@@ -0,0 +1,13 @@
+mysubset <- function(small, large) {
+# function p=mysubset(small,large)
+# % MYSUBSET Is the small set of +ve integers a subset of the large set?
+# % p = mysubset(small, large)
+
+# % Surprisingly, this is not built-in.
+
+# if isempty(small)
+#   p = 1; % isempty(large);
+# else
+#   p = length(myintersect(small,large)) == length(small);
+# end
+}

R/triangulate.R

@@ -22,7 +22,7 @@ triangulate <- function(G, order) {
 
     exclude <- 0
     for (c in 1:length(cliques)) {
-      if (mysubset(nodes, cliques[[c]])) { # not maximal)
+      if (mysubset(nodes, cliques[[c]])) { # not maximal) # TODO: translate mysubset
         exclude <- 1
         break
       }

tests/testthat/test-spatialMixture.R

@@ -39,6 +39,7 @@ test_that("lakseKlitik() and subfunctions produce expected output", {
   # TODO: test triangulate()
   # TODO: test neighbors()
   # TODO: test myintersect()
+  # TODO: test mysubset()
   # TODO: test findCliques()
   # TODO: test cliques_to_jtree()
   # TODO: test lakseKlitik()