From 40b896ed4b018ab79cecf2db108b0966dc453ca9 Mon Sep 17 00:00:00 2001
From: Rob J Goedman <goedman@mac.com>
Date: Wed, 29 Jul 2020 08:29:29 -0600
Subject: [PATCH] Rel 0.1.1

---
 Project.toml    |  2 +-
 research/ops.jl | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+), 1 deletion(-)
 create mode 100644 research/ops.jl

diff --git a/Project.toml b/Project.toml
index c319fca..e9e277b 100644
--- a/Project.toml
+++ b/Project.toml
@@ -1,7 +1,7 @@
 name = "StructuralCausalModels"
 uuid = "a41e6734-49ce-4065-8b83-aff084c01dfd"
 authors = ["Rob J Goedman <goedman@mac.com>"]
-version = "0.1.0"
+version = "0.1.1"
 
 [deps]
 CSV = "336ed68f-0bac-5ca0-87d4-7b16caf5d00b"
diff --git a/research/ops.jl b/research/ops.jl
new file mode 100644
index 0000000..59089b9
--- /dev/null
+++ b/research/ops.jl
@@ -0,0 +1,19 @@
+using StructuralCausalModels
+import StructuralCausalModels.SymbolList
+
+
+import Base.-
+
+-(x::SymbolList, y::SymbolList) = (type=:line, x=x, y=y)
+
+↔(x, y) = (type=:darrow, x=x, y=y)
+
+→(x, y) = (type=:rarrow, x=x, y=y)
+
+println(:b - :A)
+println(:b ↔ [:A, :D])
+println([:X, :T] → :A)
+
+m = (:b - :A, [:X, :T] → :A, :b ↔ [:A, :D])
+
+m[3] |> display