[Subgroup-commits] r53 - in pkg/rsubgroup: R man

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

Author: pommedeterre
Date: 2014-10-05 20:54:49 +0200 (Sun, 05 Oct 2014)
New Revision: 53

Modified:
   pkg/rsubgroup/R/classes.R
   pkg/rsubgroup/man/CreateSDTask.Rd
   pkg/rsubgroup/man/DiscoverSubgroups.Rd
   pkg/rsubgroup/man/DiscoverSubgroupsByTask.Rd
   pkg/rsubgroup/man/SDTaskConfig-class.Rd
Log:
Improve API by removing the S4 specific syntax to create a new SDTaskConfig  object . Updated documentation accordingly.

Modified: pkg/rsubgroup/R/classes.R
===================================================================
--- pkg/rsubgroup/R/classes.R	2014-10-05 18:44:50 UTC (rev 52)
+++ pkg/rsubgroup/R/classes.R	2014-10-05 18:54:49 UTC (rev 53)
@@ -47,6 +47,9 @@
         maxlen = as.integer(7), nodefaults = FALSE, relfilter = FALSE, postfilter = "", attributes = NULL)
 )
 
+SDTaskConfig <- function(...){
+  new("SDTaskConfig", ...)
+}
 
 setClass("Pattern",
     representation(

Modified: pkg/rsubgroup/man/CreateSDTask.Rd
===================================================================
--- pkg/rsubgroup/man/CreateSDTask.Rd	2014-10-05 18:44:50 UTC (rev 52)
+++ pkg/rsubgroup/man/CreateSDTask.Rd	2014-10-05 18:54:49 UTC (rev 53)
@@ -5,7 +5,7 @@
 Performs subgroup discovery according to the given task.
 }
 \usage{
-CreateSDTask(source, target, config=new("SDTaskConfig"))
+CreateSDTask(source, target, config = SDTaskConfig())
 }
 \arguments{
 \item{source}{a data.frame or the a character string giving

Modified: pkg/rsubgroup/man/DiscoverSubgroups.Rd
===================================================================
--- pkg/rsubgroup/man/DiscoverSubgroups.Rd	2014-10-05 18:44:50 UTC (rev 52)
+++ pkg/rsubgroup/man/DiscoverSubgroups.Rd	2014-10-05 18:54:49 UTC (rev 53)
@@ -6,7 +6,7 @@
 the configuration on the data.
 }
 \usage{
-DiscoverSubgroups(source, target, config=new("SDTaskConfig"), as.df=FALSE)
+DiscoverSubgroups(source, target, config= SDTaskConfig(), as.df=FALSE)
 }
 \arguments{
 \item{source}{a data.frame or the a character string giving

Modified: pkg/rsubgroup/man/DiscoverSubgroupsByTask.Rd
===================================================================
--- pkg/rsubgroup/man/DiscoverSubgroupsByTask.Rd	2014-10-05 18:44:50 UTC (rev 52)
+++ pkg/rsubgroup/man/DiscoverSubgroupsByTask.Rd	2014-10-05 18:54:49 UTC (rev 53)
@@ -21,10 +21,10 @@
 # creating a task
 data(credit.data)
 task <- CreateSDTask(
-    credit.data, as.target("class", "bad"), new("SDTaskConfig",
+    credit.data, as.target("class", "bad"), SDTaskConfig(
     attributes=c("checking_status", "employment"))) 
 taskNum <- CreateSDTask(
-    credit.data, as.target("credit_amount"), new("SDTaskConfig",
+    credit.data, as.target("credit_amount"), SDTaskConfig(
     attributes=c("checking_status", "employment")))
 
 # running the tasks

Modified: pkg/rsubgroup/man/SDTaskConfig-class.Rd
===================================================================
--- pkg/rsubgroup/man/SDTaskConfig-class.Rd	2014-10-05 18:44:50 UTC (rev 52)
+++ pkg/rsubgroup/man/SDTaskConfig-class.Rd	2014-10-05 18:54:49 UTC (rev 53)
@@ -10,7 +10,7 @@
 
 \section{Objects from the Class}{
   Objects are created by calls of the form
-  \code{new("SDTaskConfig", ...)}.
+  \code{SDTaskConfig(...)}.
 }
 
 \section{Slots}{