[Robast-commits] r499 - branches/robast-0.9/pkg/ROptReg/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2012-07-02 19:12:32 +0200 (Mon, 02 Jul 2012)
New Revision: 499

Modified:
   branches/robast-0.9/pkg/ROptReg/R/AllClass.R
Log:
ROptReg: renamed slots in class "GLMLink" according to slot names in Family in glm ...

Modified: branches/robast-0.9/pkg/ROptReg/R/AllClass.R
===================================================================
--- branches/robast-0.9/pkg/ROptReg/R/AllClass.R	2012-07-02 17:09:36 UTC (rev 498)
+++ branches/robast-0.9/pkg/ROptReg/R/AllClass.R	2012-07-02 17:12:32 UTC (rev 499)
@@ -112,8 +112,9 @@
             })
 
 #Link function
-setClass("GLMLink", representation(eta="function", l="function", l1="function"),
-         prototype=prototype(eta=function(x)x, l=function(x)x, l1 = function(x) 1))
+setClass("GLMLink", representation(name = "character", linkfun="function", linkinv="function", linkjacobian="function"),
+         prototype=prototype(name="id", linkfun=function(x)x, linkinv=function(x)x,
+                             linkjacobian = function(x) 1))
 
 # Regression type families ... taken as is from ROptRegTS
 setClass("GLMTypeFamily",