Get rid of Tableregressionmodel (#194)

- The PhyloNetworkLinearModel is no longer wrapped in a TableRegression Model
- field name for evolutionary model: changed from 'model' to 'evomodel' in TraitSimulation and PhyloNetworkLinearModel.
- deprecation notices for old access to model formula and model matrix

src/PhyloNetworks.jl

@@ -33,6 +33,7 @@ module PhyloNetworks
 
     import Base: show
     import GLM: ftest
+    import StatsModels: coefnames
 
     const DEBUGC = false # even more debug messages
     global CHECKNET = false # for debugging only

src/deprecated.jl

@@ -11,3 +11,26 @@
 @deprecate getMajorParentEdge getparentedge false
 @deprecate getMinorParentEdge getparentedgeminor false
 @deprecate getPartner getpartneredge false
+
+function Base.getproperty(mm::PhyloNetworkLinearModel, f::Symbol)
+    if f === :model
+        Base.depwarn("accessing the `model` field of PhyloNetworkLinearModel.jl models is deprecated, " *
+                     "as they are no longer wrapped in a `TableRegressionModel` " *
+                     "and can be used directly now", :getproperty)
+        return mm
+    elseif f === :mf
+        Base.depwarn("accessing the `mf` field of PhyloNetworkLinearModel.jl models is deprecated, " *
+                     "as they are no longer wrapped in a `TableRegressionModel`." *
+                     "Use `formula(m)` to access the model formula.", :getproperty)
+        form = formula(mm)
+        return ModelFrame{Nothing, typeof(mm)}(form, nothing, nothing, typeof(mm))
+    elseif f === :mm
+        Base.depwarn("accessing the `mm` field of PhyloNetworkLinearModel.jl models is deprecated, " *
+                     "as they are no longer wrapped in a `TableRegressionModel`." *
+                     "Use `modelmatrix(m)` to access the model matrix.", :getproperty)
+        modmatr = modelmatrix(mm)
+        return ModelMatrix{typeof(modmatr)}(modmatr, Int[])
+    else
+        return getfield(mm, f)
+    end
+end