[Subgroup-commits] r19 - in pkg: R inst/java man subgroup subgroup/R subgroup/man subgroup/tests tests

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Sun Aug 3 22:20:50 CEST 2014


Author: atzmueller
Date: 2014-08-03 22:20:49 +0200 (Sun, 03 Aug 2014)
New Revision: 19

Removed:
   pkg/R/AAAonLoad.R
   pkg/R/classes.R
   pkg/R/randomSeed.R
   pkg/R/subgroup.R
   pkg/inst/java/subgroup.jar
   pkg/man/CreateSDTask.Rd
   pkg/man/DiscoverSubgroups.Rd
   pkg/man/DiscoverSubgroupsByTask.Rd
   pkg/man/Pattern-class.Rd
   pkg/man/SDTaskConfig-class.Rd
   pkg/man/ToDataframe.Rd
   pkg/man/as.target.Rd
   pkg/man/credit.data.Rd
   pkg/man/subgroup-package.Rd
Modified:
   pkg/subgroup/DESCRIPTION
   pkg/subgroup/R/AAAonLoad.R
   pkg/subgroup/R/classes.R
   pkg/subgroup/R/subgroup.R
   pkg/subgroup/man/subgroup-package.Rd
   pkg/subgroup/tests/test.R
   pkg/tests/test.R
Log:
reorganize package in pkg/<subdirectory>

Deleted: pkg/R/AAAonLoad.R
===================================================================
--- pkg/R/AAAonLoad.R	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/R/AAAonLoad.R	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,28 +0,0 @@
-###############################################################################
-#    subgroup.discovery package R classes
-# 
-#    This file is part of the R subgroup.discovery package.
-#    Copyright (C) 2011-2014 by Martin Atzmueller
-#    
-#    This program is free software: you can redistribute it and/or modify
-#    it under the terms of the GNU General Public License as published by
-#    the Free Software Foundation, either version 3 of the License, or
-#    (at your option) any later version.
-
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU General Public License for more details.
-#    
-#    You should have received a copy of the GNU General Public License
-#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#
-#    Contact: Martin Atzmueller (martin at atzmueller.net)
-###############################################################################
-
-require(rJava)
-
-.onLoad <- function(libname, pkgname) {
-	   rJava::.jpackage(pkgname, lib.loc=libname)
-	   #.jengine(TRUE)
-}

Deleted: pkg/R/classes.R
===================================================================
--- pkg/R/classes.R	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/R/classes.R	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,49 +0,0 @@
-###############################################################################
-#    subgroup.discovery package R classes
-# 
-#    This file is part of the R subgroup.discovery package.
-#    Copyright (C) 2011-2014 by Martin Atzmueller
-#    
-#    This program is free software: you can redistribute it and/or modify
-#    it under the terms of the GNU General Public License as published by
-#    the Free Software Foundation, either version 3 of the License, or
-#    (at your option) any later version.
-
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU General Public License for more details.
-#    
-#    You should have received a copy of the GNU General Public License
-#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#
-#    Contact: Martin Atzmueller (martin at atzmueller.net)
-###############################################################################
-
-
-setClass("SDTaskConfig",
-    representation(
-        qf          = "character",
-        method      = "character",
-        k           = "numeric",
-        minqual     = "numeric",
-        minsize     = "numeric",
-        maxlen      = "numeric",
-        nodefaults  = "logical",
-        relfilter   = "logical",
-        postfilter  = "character",
-        attributes  = "character"
-    ),
-    prototype(qf="ps", method="sdmap", k = as.integer(20), minqual = as.integer(0), minsize = as.integer(0),
-        maxlen = as.integer(7), nodefaults = FALSE, relfilter = FALSE, postfilter = "", attributes = character(0))
-)
-
-
-setClass("Pattern",
-    representation(
-        description="character",
-        quality="numeric",
-        size="numeric",
-        parameters="list"
-    )
-)
\ No newline at end of file

Deleted: pkg/R/randomSeed.R
===================================================================
--- pkg/R/randomSeed.R	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/R/randomSeed.R	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,126 +0,0 @@
-.Random.seed <-
-c(403L, 52L, -1126363859L, 1438563303L, 1818442510L, 2110782696L, 
--48687381L, 1013381001L, -859782376L, -72100282L, 696436385L, 
--435123917L, -1829443422L, 494708628L, 723355159L, 1563963917L, 
-144688932L, -125533430L, -513749387L, -1837093425L, 1499125462L, 
--897394048L, 1606812867L, -819895711L, -1855522096L, -111551442L, 
-1537896921L, -689017365L, 243427418L, -204953060L, 1978616607L, 
--1502167179L, -1907464692L, 455491554L, 287114429L, 1361281847L, 
--1396757538L, -1566447336L, 1667636347L, 459080217L, -175349080L, 
--372815786L, 174671057L, -120831869L, -313634030L, 393561764L, 
--1147145625L, 2118937533L, 1107739956L, -1601618278L, -197718811L, 
--2142687617L, -784975866L, -1932002416L, -1257339341L, 1863751121L, 
--263067776L, -1422394786L, 822124969L, -224587685L, -495892374L, 
-1002629388L, -893639857L, 731906053L, -519020868L, -583141486L, 
--359488371L, -537525561L, -964234322L, 796339720L, 491586059L, 
--692071703L, -163324488L, -1795417498L, 1713727233L, 689721747L, 
-750381634L, 1239383540L, 594069495L, -1386824723L, -1136847740L, 
--1068365142L, -1893933035L, -1443690321L, -393673034L, -1061956384L, 
--10160093L, -193435839L, -2068575696L, -1835984818L, 1036011705L, 
-1531542731L, -461749894L, 748977276L, -784271169L, 1764969877L, 
--828174932L, -274053246L, 323997021L, 46285911L, 1050665790L, 
-2056457080L, -129882021L, 985034681L, -1415008760L, -806683466L, 
-913075185L, 430806563L, 1620199026L, 1694211268L, -875603321L, 
--2036346275L, 1497289812L, -1897611654L, -60310075L, -1427587297L, 
-263613094L, -763704272L, 682389203L, 1855065329L, 1478707232L, 
--637391170L, -1272821047L, -1187790725L, 1395424842L, -409507156L, 
--1725145681L, 946679141L, 416594716L, 579903346L, 1131475949L, 
-1766405159L, 992554062L, -232632152L, 924565163L, -1794401335L, 
--1529940008L, -1292984698L, 2103109473L, 949738227L, 1929168226L, 
-667964372L, 1370642135L, -864740147L, 585628772L, 1927123530L, 
--1705691211L, -2078586097L, 1711945750L, 1301496512L, 1754633347L, 
-1670447265L, 802924176L, -1452739218L, 1559290649L, 1378609067L, 
--1067104870L, 606331228L, 38500447L, 589617205L, 1351424972L, 
--1916481758L, -1792208515L, 1409047159L, -701791330L, -779677096L, 
--431318085L, 341994841L, -1280514328L, 1492915990L, 1784903825L, 
--1562815165L, 834342994L, -663252252L, -316472025L, 321437053L, 
--1240820620L, -403931558L, 1617848997L, -78049089L, -1765412026L, 
--533192240L, 411747315L, 1299897105L, -652326080L, 302691102L, 
-1192934377L, 2072105243L, -162182358L, 1649396812L, -1027570673L, 
--1742262459L, -1683175172L, -590334126L, -1890158387L, -1876678521L, 
--1999226002L, 2016881992L, -197510837L, 376499369L, -523088392L, 
-1230968102L, -2082388415L, -1053569069L, -984398462L, -1988138572L, 
-744437047L, -1645150163L, 1512000836L, 749423210L, 386163925L, 
-1483199087L, -982206602L, 2097551520L, 1188188515L, 1742930433L, 
-507908464L, 429977870L, -1794628743L, 1919544075L, -2043603910L, 
--1158712516L, -1315788673L, 1159711701L, 291808748L, 1235035970L, 
-165316765L, -386871017L, 471648382L, 696989364L, 363864082L, 
--788996128L, 465408972L, 1819964896L, 931666978L, 1312625960L, 
--81870580L, -593617348L, -604646158L, 533969136L, 607594308L, 
--976912296L, 482359866L, -438884112L, -2081443140L, 1081831956L, 
--1188737854L, -1170536864L, -1976314500L, -1654969136L, -2021958622L, 
-199100584L, -747192948L, -752178756L, -156649422L, -1028547776L, 
--178035020L, -1317498552L, -1645280582L, 298407696L, 1466132716L, 
--132786092L, 858287890L, 1058628000L, -908357684L, -713050272L, 
-1908257986L, 445799976L, -397833812L, -1840975044L, -1409641614L, 
-1272780592L, 1193592868L, 647814712L, 250819290L, -1054496880L, 
--1580569348L, 1833014676L, -157641918L, 1834560000L, -691271620L, 
-728492624L, 217923746L, 2054853448L, -2088287732L, -281423140L, 
--1128366L, 1153207424L, 2012786516L, 354443240L, 1268931322L, 
-597180240L, -1127787476L, 1616499060L, -703048046L, 2113444448L, 
-1412700300L, -1856050848L, -252000030L, 1861747880L, -165224756L, 
--151270916L, 2000434098L, -1833296912L, 1578895812L, -1829106344L, 
--83166854L, 1022122416L, -2093825604L, 1073540692L, -161596990L, 
-723626784L, -800162884L, 1241862224L, -881957918L, 2050770792L, 
--31228084L, -439259396L, 1609862898L, 517090560L, 588178548L, 
-1158966792L, 773184954L, 684287440L, -1335816212L, -626791532L, 
-2047054034L, -133055392L, 841733452L, 483134240L, 1465809538L, 
-1401414120L, -1680350228L, -1048086980L, 277061234L, -2130496656L, 
-217492772L, 2101262904L, -494595686L, -921664048L, -1609882180L, 
-2044839572L, -1059782014L, -1525672512L, -1053257924L, -1121480048L, 
-1379321634L, -1157097976L, -1964883188L, 1003559836L, -360586222L, 
--1077038208L, -469783788L, 458593576L, 222261306L, -1093823536L, 
-527686252L, -2065261516L, 1557878930L, -530931360L, -823849652L, 
--950153760L, -1029819486L, 420875176L, -1450226548L, -1822694468L, 
-2087722098L, -610797584L, 675976260L, -1440810920L, -1120681926L, 
--805228432L, 1975932476L, 1576130324L, -1534448958L, -416468256L, 
-155643004L, -1775936304L, 1190472610L, -2068083160L, -1399965428L, 
--1150486596L, 536316210L, 1624678592L, 935535156L, -2095904056L, 
-938810042L, -1662212976L, -945137940L, 1577795156L, 512771730L, 
-382531360L, -404903988L, 1747828960L, 1266400962L, 564921384L, 
-1258867628L, -193987908L, -449000974L, -264776144L, -1968199772L, 
-1933398456L, 1745105754L, 1527706768L, -2097333380L, -1390700780L, 
--370340542L, 846438144L, -543435844L, -41488560L, 626719010L, 
-1706820168L, 1081815052L, -712125348L, 2001273298L, 795844096L, 
-2133938516L, 1925066984L, -1378381574L, 702629584L, -179736276L, 
-1217466612L, -2088841838L, 324929888L, 1919535116L, 1775534816L, 
-808483426L, 2046227112L, 1727867468L, 2070339452L, -1886108366L, 
-1430476400L, -447868092L, -728094760L, -1192831110L, -1035327952L, 
-1532450748L, -835643820L, 1322655810L, 2072260768L, 1855919804L, 
--1699128880L, 1044886370L, -804670744L, 1250713804L, 601424380L, 
-1114284530L, 2001930880L, -1941881356L, 1523000968L, 1273274170L, 
--538037424L, 470969452L, -982732396L, -929426350L, -1545797152L, 
-708106816L, -535448663L, -1540542949L, -601708564L, 443518970L, 
--907660241L, 1434485817L, 170554958L, -796096868L, 934886413L, 
-1736900727L, -1669199744L, -1060253986L, -941546069L, -314444115L, 
-848349978L, 114979800L, 503066689L, -830021901L, 732135700L, 
--1483156318L, 1687048631L, 382326145L, 368976774L, -101617212L, 
-992180469L, -24372897L, 848303032L, -1358678378L, 1657864355L, 
-40823397L, -250773630L, -1686366992L, -303960935L, 1203537035L, 
-1047891324L, -1853637718L, -1074562081L, 757199209L, 1531682174L, 
--895255188L, 855975357L, 804398727L, -1893440912L, 1107101966L, 
--813263301L, -884259555L, 639324106L, 971397352L, 1926822865L, 
-930004419L, 658036420L, 982015346L, -1891790777L, 1172837393L, 
-2046891414L, -733288204L, 1233642117L, 1153420239L, -629275960L, 
-2142045030L, -807487085L, 830862069L, 2000415442L, 1074877728L, 
-1108270345L, 2021976635L, -1417068660L, -1050763750L, 1679337103L, 
-535683545L, 2140018286L, -1712876036L, -397070483L, -1354147561L, 
--32639776L, -2100380994L, 1030862987L, 950642445L, 579069754L, 
-1348837240L, 1989956897L, 2080130515L, 2089510132L, 2100469122L, 
-1217636375L, 851644129L, 328800294L, -97444572L, -427129387L, 
-1548388735L, -2095876072L, 821626678L, -1850867261L, 772902917L, 
-526652322L, -1108607088L, -1832182983L, -1389088789L, -2147266340L, 
-2080583946L, -933658625L, 1341641289L, 1858525150L, -1600489588L, 
--158636195L, -2114986137L, -466410352L, 999443118L, 717743963L, 
--1388792003L, 145769898L, 1182804552L, 2123393649L, -1603482653L, 
-39360228L, -498356718L, -1367377433L, -1948109391L, 551744502L, 
-1046388244L, 817135909L, -1383847377L, 1100738536L, 1235048646L, 
--552059533L, -601315883L, -1925912142L, -541923456L, -1385112727L, 
--1489506341L, 430913324L, -800483014L, 65505263L, 223908473L, 
-1779840270L, -1542546212L, -2093583539L, -1778394441L, -239208384L, 
--840402658L, 1644651499L, -1910485139L, -1079335462L, 2082248600L, 
-1246582273L, -305309773L, -1872296236L, -2096603166L, -560299401L, 
--261841983L, 892135750L, -192898940L, -137503179L, 62162463L, 
--1766137480L, -363298730L, -1663324957L, -1046336859L, 502757186L, 
-189957424L, -446966439L, 886265547L, 783126332L, 5637994L, -373701217L, 
-1485904937L, -635093314L, -1000460372L, 1650130875L)

Deleted: pkg/R/subgroup.R
===================================================================
--- pkg/R/subgroup.R	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/R/subgroup.R	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,266 +0,0 @@
-###############################################################################
-#    subgroup.discovery package R classes
-# 
-#    This file is part of the R subgroup.discovery package.
-#    Copyright (C) 2011-2014 by Martin Atzmueller
-#    
-#    This program is free software: you can redistribute it and/or modify
-#    it under the terms of the GNU General Public License as published by
-#    the Free Software Foundation, either version 3 of the License, or
-#    (at your option) any later version.
-    
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU General Public License for more details.
-#    
-#    You should have received a copy of the GNU General Public License
-#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#
-#    Contact: Martin Atzmueller (martin at atzmueller.net)
-###############################################################################
-
-library(foreign)
-library(rJava)
-
-setGeneric(".CreateARFFProvider",
-    function(source, name, ...) {
-      standardGeneric(".CreateARFFProvider")
-    }
-)
-
-setMethod(".CreateARFFProvider", signature(source = "data.frame", name = "character"),
-    function(source, name, ...) {
-      # Creates a dataset provider (converting the dataframe)
-      con <- textConnection("arffVector", "w")
-      write.arff(source, con)
-      flush(con)
-      close(con)
-      rm(con)
-      arff <- paste(arffVector, "", collapse="\n")
-      provider <- .jnew("org/vikamine/kernel/xpdl/ARFFAsStringDatasetProvider", arff, name)
-      return(provider)
-    }
-)
-
-setMethod(".CreateARFFProvider", signature(source = "character", name = "character"),
-    function(source, name, ...) {
-      # Creates a dataset provider given a file name
-      provider <- .jnew("org/vikamine/kernel/xpdl/FileDatasetProvider", source)
-      return(provider)
-    }
-)
-
-.CreateOntologyForData <- function(provider, dataset) {
-  # Creates the ontology object for the respective dataset
-  ontology <- .jcall(provider, "Lorg/vikamine/kernel/data/Ontology;","getDataset", dataset)
-  return(ontology)
-}
-
-.CreateSimpleSDTask <- function(ontology, target) {
-  # Creates a simple subgroup discovery task
-  .FreeMemory()
-  simpleTask <- new(J("org/vikamine/kernel/subgroup/search/SDSimpleTask"), ontology)
-  if (!is.null(target$value)) {
-    selector <- new(J("org/vikamine/kernel/subgroup/selectors/DefaultSGSelector"), ontology, target$attribute, target$value)
-    target <- new(J("org/vikamine/kernel/subgroup/target/SelectorTarget"), selector)
-  } else {
-    attribute <- J(ontology, "getAttribute", target$attribute)
-    target <- new(J("org/vikamine/kernel/subgroup/target/NumericTarget"), attribute)
-  }
-  J(simpleTask, "setTarget", target)
-  return(simpleTask)
-}
-
-CreateSDTask <- function(source, target, config = new("SDTaskConfig")) {
-  # Creates a subgroup discovery task
-  #
-  # Args:
-  #   source: A data source, i.e., dataframe or file (name)
-  #   target: The target variable
-  #   config: A SDTaskConfig
-  #
-  # Returns:
-  #   A subgroup discovery task
-  .FreeMemory()
-  provider <- .CreateARFFProvider(source, "data")
-  ontology <- .CreateOntologyForData(provider, "data")
-  task <- .CreateSimpleSDTask(ontology, target)
-  J(task, "setQualityFunction", config at qf)
-  J(task, "setSDMethod", config at method)
-  J(task, "setMaxSGCount", as.integer(config at k))
-  J(task, "setMinQualityLimit", as.double(config at minqual))
-  J(task, "setMinSubgroupSize", as.double(config at minsize))
-  J(task, "setMaxSGDSize", as.integer(config at maxlen))
-  J(task, "setSuppressStrictlyIrrelevantSubgroups", config at relfilter)
-  J(task, "setIgnoreDefaultValues", config at nodefaults)
-  if (config at postfilter != "") {
-    J(task, "setPostFilter", config at postfilter)
-  }
-  if ((!is.null(config at attributes)) && (length(config at attributes) > 0)) {
-    J(task, "setAttributes", .jarray(config at attributes))
-  }
-  return(task)
-}
-
-as.target <- function(attribute=NULL, value=NULL) {
-  # Creates a target variable object given attribute and value (for nominals)
-  #
-  # Args:
-  #   attribute: The respective attribute
-  #   value: For nominals, the respective value; for numeric NULL
-  #
-  # Returns:
-  #   A target object representation
-  if (!is.null(attribute) && !is.null(value))
-    return(list(attribute=attribute, value=value))
-  else if (!is.null(attribute))
-    return(list(attribute=attribute))
-  else
-    return(NULL)
-}
-
-.GetParameters <- function(task, sg) {
-  target <- J(task, "getTarget")
-  if (J(target, "isBoolean")) {
-    size <- J(J(sg, "getStatistics"), "getSubgroupSize")
-    p <- J(J(sg, "getStatistics"), "getP")
-    p0 <- J(J(sg, "getStatistics"), "getP0")
-    return(list(p = p, p0 = p0, size = size))
-  } else if (J(target, "isNumeric")) {
-    size <- J(J(sg, "getStatistics"), "getSubgroupSize")
-    mean <- J(J(sg, "getStatistics"), "getSGMean")
-    popMean <- J(J(sg, "getStatistics"), "getPopulationMean")
-    return(list(mean = mean, populationMean = popMean, size = size))
-  } else {
-    stop("Unknown target")
-  }
-}
-
-.ConvertDescription <- function(sgDescription) {
-  # Internal function for converting a (Java) SGDescription consisting
-  # of a set of selection expressions into a character vector of strings
-  # representing these
-  # Args:
-  #   sgDescription: A (Java) SGDescription object
-  #
-  # Returns:
-  #   A character vector
-  sgSelectorArray <-
-      J("org.vikamine.kernel.subgroup.search.SDSimpleTask")$getSimpleDescription(sgDescription)
-  return(as.character(sgSelectorArray))
-}
-
-DiscoverSubgroupsByTask <- function(task, as.df=FALSE) {
-  # Internal function for setting up and performing subgroup discovery
-  # Args:
-  #   task: A subgroup discovery task
-  #
-  # Returns:
-  #   A list of subgroup patterns
-  sgSet <- J(task, "performSubgroupDiscovery")
-  sgList <- J(sgSet, "toSortedList", FALSE)
-  sgArray <- .jevalArray(J(sgList, "toArray"))
-  
-  patterns = list()
-  for (sg in sgArray) {
-    #description <- as.character(J(J(sg, "getSGDescription"), "getDescription"))
-    sgDescription <- J(sg, "getSGDescription")
-    description <- .ConvertDescription(sgDescription)
-    quality <- J(sg, "getQuality")
-    size <- J(J(sg, "getStatistics"), "getSubgroupSize")
-    parameters = .GetParameters(task, sg)    
-    pattern <- new("Pattern", description=description, quality=quality, size=size, parameters=parameters)
-    patterns = append(patterns, pattern)
-  }
-  
-  if (as.df) {
-    dataFrameRules <- ToDataFrame(patterns)
-    return(dataFrameRules)
-  } else {
-    return(patterns)
-  }
-}
-
-DiscoverSubgroups <- function(source, target, config=new("SDTaskConfig"), as.df=FALSE) {
-  # Performs subgroup discovery according to target and config on data
-  #
-  # Args:
-  #   data: A dataframe
-  #   target: A target variable (constructed by as.target)
-  #   config: a SDTaskConfig configuration for the algorithm
-  #
-  # Returns:
-  #   A list of subgroup patterns
-  task <- CreateSDTask(source, target, config)
-  result <- DiscoverSubgroupsByTask(task, as.df)
-  return(result)
-}
-
-
-.FormatDoubleSignificantDigits <- function(double, ndigits=2) {
-  # Internal function: Prints double according to
-  if (is.numeric(ndigits)) {
-    sprintf(paste("%.", ndigits, "f", sep=""), double)
-  } else {
-    double
-  }
-}
-
-
-
-ToDataFrame <- function(patterns, ndigits=2) {
-  # Transforms a list/vector of patterns into a dataframe
-  #
-  # Args:
-  #   patterns: List of patterns
-  #   ndigits: Number of significant digits for floats
-  #
-  # Returns:
-  #   The dataframe containing the pattern information
-  isNumeric = FALSE  
-  descriptions <- list()
-  length(descriptions) = length(patterns)
-  qualities <-list()
-  length(qualities) = length(patterns)
-  sizes <- list()
-  length(sizes) <- length(patterns)
-  ps <- list()
-  
-  i = 1
-  for (pattern in patterns) {
-    descriptions[i] = paste(pattern at description, collapse=", ")
-    qualities[i] = .FormatDoubleSignificantDigits(pattern at quality, ndigits)
-    sizes[i] = pattern at size
-    if (!is.null(pattern at parameters$mean)) {
-      ps[i] = .FormatDoubleSignificantDigits(pattern at parameters$mean, ndigits)
-      isNumeric = TRUE
-    } else {
-      ps[i] = .FormatDoubleSignificantDigits(pattern at parameters$p, ndigits)
-      isNumeric = FALSE
-    }
-    i = i + 1
-  }
-  if (isNumeric) {
-    dataframe <- data.frame(
-        quality=as.vector(qualities, "numeric"),
-        mean=as.vector(ps, "numeric"), 
-        size=as.vector(sizes, "numeric"),
-        description=as.vector(descriptions, "character"))
-  } else {
-    dataframe <- data.frame(
-        quality=as.vector(qualities, "numeric"),
-        p=as.vector(ps, "numeric"), 
-        size=as.vector(sizes, "numeric"),
-        description=as.vector(descriptions, "character"))
-  }
-  return(dataframe)
-}
-
-.FreeMemory <- function(...) {
-  # Call the R garbage collection
-  # Then call Java garbage collection
-  gc(...)
-  .jcall("java/lang/System", method = "gc")
-  invisible()
-}
\ No newline at end of file

Deleted: pkg/inst/java/subgroup.jar
===================================================================
(Binary files differ)

Deleted: pkg/man/CreateSDTask.Rd
===================================================================
--- pkg/man/CreateSDTask.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/CreateSDTask.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,33 +0,0 @@
-\name{CreateSDTask}
-\alias{CreateSDTask}
-\title{Creates a Subgroup Discovery Task}
-\description{
-Performs subgroup discovery according to the given task.
-}
-\usage{
-CreateSDTask(source, target, config=new("SDTaskConfig"))
-}
-\arguments{
-\item{source}{a data.frame or the a character string giving
-the filename of an ARFF file to use.}
-\item{target}{the target variable (constructed by as.target)
-to consider for subgroup discovery.}
-\item{config}{an instance of SDTaskConfig providing various
-parameters for subgroup discovery.}
-}
-\seealso{
-\code{\link{DiscoverSubgroups}}.
-\code{\link{DiscoverSubgroupsByTask}}
-\code{\link{SDTaskConfig}}
-}
-\examples{
-# creating a task
-data(credit.data)
-
-# task with binary target
-task <- CreateSDTask(credit.data, as.target("class", "good"))
-
-# task with numeric target
-taskNum <- CreateSDTask(credit.data, as.target("credit_amount"))
-}
-\keyword{subgroup task}

Deleted: pkg/man/DiscoverSubgroups.Rd
===================================================================
--- pkg/man/DiscoverSubgroups.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/DiscoverSubgroups.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,44 +0,0 @@
-\name{DiscoverSubgroups}
-\alias{DiscoverSubgroups}
-\title{Performs Subgroup Discovery}
-\description{
-Performs subgroup discovery according to the given target and
-the configuration on the data.
-}
-\usage{
-DiscoverSubgroups(source, target, config=new("SDTaskConfig"), as.df=FALSE)
-}
-\arguments{
-\item{source}{a data.frame or the a character string giving
-the filename of an ARFF file to use.}
-\item{target}{the target variable (constructed by as.target)
-to consider for subgroup discovery.}
-\item{config}{an instance of SDTaskConfig providing various
-parameters for subgroup discovery.}
-\item{as.df}{TRUE, if the result patterns should be returned as
-a data.frame using \code{\link{ToDataFrame}}}
-}
-\seealso{
-\code{\link{DiscoverSubgroupsByTask}}.
-\code{\link{as.target}}
-\code{\link{CreateSDTask}}
-\code{\link{SDTaskConfig}}
-}
-\examples{
-# subgroup discovery on a data.frame, for binary target
-data(credit.data)
-result1 <- DiscoverSubgroups(credit.data, as.target("class", "good"))
-result2 <- DiscoverSubgroups(
-    credit.data, as.target("class", "good"), new("SDTaskConfig",
-    attributes=c("checking_status", "employment")))
-
-ToDataFrame(result1)
-ToDataFrame(result2)
-
-# subgroup discovery for numeric target variable
-result3 <- DiscoverSubgroups(credit.data, as.target("credit_amount"))
-
-ToDataFrame(result3)
-}
-\keyword{subgroup discovery}
-

Deleted: pkg/man/DiscoverSubgroupsByTask.Rd
===================================================================
--- pkg/man/DiscoverSubgroupsByTask.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/DiscoverSubgroupsByTask.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,31 +0,0 @@
-\name{DiscoverSubgroupsByTask}
-\alias{DiscoverSubgroupsByTask}
-\title{Performs Subgroup Discovery for a given Task}
-\description{
-Performs subgroup discovery according to the given task.
-}
-\usage{
-DiscoverSubgroupsByTask(task, as.df=FALSE)
-}
-\arguments{
-\item{task}{a subgroup discovery task constructed by
- CreateSDTask.}
- \item{as.df}{TRUE, if the result patterns should be returned
-as a data.frame using \code{\link{ToDataFrame}}}
-}
-\seealso{
-\code{\link{DiscoverSubgroups}}.
-\code{\link{CreateSDTask}}
-}
-\examples{
-# creating a task
-data(credit.data)
-task <- CreateSDTask(credit.data, as.target("class", "bad"))
-taskNum <- CreateSDTask(credit.data, as.target("credit_amount"))
-
-# running the tasks
-DiscoverSubgroupsByTask(task)
-DiscoverSubgroupsByTask(taskNum)
-}
-\keyword{subgroup task}
-

Deleted: pkg/man/Pattern-class.Rd
===================================================================
--- pkg/man/Pattern-class.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/Pattern-class.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,34 +0,0 @@
-\name{Pattern-class}
-\docType{class}
-\alias{Pattern-class}
-\alias{Pattern}
-
-\title{Class ``Pattern'' --- A Simple Subgroup Description Container}   
-\description{A Simple Container holding the results (subgroups, description and
-    parameters) for the Subgroup and Pattern Mining Algorithms}
-
-\section{Objects from the Class}{
-  Objects are created by calls of the form
-  \code{new("Pattern", ...)}.
-}
-
-\section{Slots}{
-  \describe{
-    \item{\code{description}:}{The subgroup description,
-    as a character vector.
-    }
-    \item{\code{quality}:}{The numeric value denoting the
-    quality of the subgroup pattern as determined by the applied
-    quality function.
-    }
-    \item{\code{size}:}{The size of the subgroup.}
-    \item{\code{parameters}}{Additional quality parameters of the subgroup.}
-    }
- }
-\seealso{
-\code{\link{DiscoverSubgroups}}.
-\code{\link{DiscoverSubgroupsByTask}}
-\code{\link{CreateSDTask}}
-}
-  
-\keyword{classes}

Deleted: pkg/man/SDTaskConfig-class.Rd
===================================================================
--- pkg/man/SDTaskConfig-class.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/SDTaskConfig-class.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,72 +0,0 @@
-\name{SDTaskConfig-class}
-\docType{class}
-\alias{SDTaskConfig-class}
-\alias{SDTaskConfig}
-
-\title{Class ``SDTaskConfig'' --- A Set of Configuration
-	Settings}	
-\description{A Set of Configuration Settings for the Subgroup
-	and Pattern Mining Algorithms}
-
-\section{Objects from the Class}{
-  Objects are created by calls of the form
-  \code{new("SDTaskConfig", ...)}.
-}
-
-\section{Slots}{
-  \describe{
-    \item{\code{qf}:}{A quality function; one of:
-	Binomial-Test \code{bin},
-	Chi-Square-Test \code{chi2},
-	Lift \code{lift},
-	Piatetsky-Shapiro \code{ps},
-	Gain \code{gain},
-	Relative Gain \code{relgain},
-	Weighted Relative Accuracy \code{wracc}.
-	}
-    \item{\code{method}:}{A mining method; one of
-	Beam-Search \code{beam},
-	BSD \code{bsd},
-	SD-Map \code{sdmap},
-	SD-Map enabling internal disjunctions \code{sdmap-dis}.
-	}
-    \item{\code{k}:}{The maximum number (top-k) of patterns
-	to discover.}
-	\item{\code{minqual}}{The minimal quality.}
-	\item{\code{minsize}}{The minimal size of a subgroup
-	(minimal coverage of database records).}
-	\item{\code{maxlen}}{The maximal description length of
-	a pattern, i.e., the maximal number of conjunctions.}
-	\item{\code{nodefaults}}{Ignore default values, i.e.,
-	do not include the respective first value of each
-	attribute}
-	\item{\code{relfilter}}{Controls, whether irrelevant
-	patterns are filtered during pattern mining; negatively
-	impacts performance.}
-	\item{\code{postfilter}}{Controls, whether a post-processing
-	filter is applied; one of:
-	Minimum Improvement (Global) \code{min-improve-global},
-	checks the patterns against all possible generalizations,
-	Minimum Improvement (Pattern Set) \code{min-improve-set},
-	checks the patterns against all their generalizations
-	in the result set,
-	Relevancy Filter \code{relevancy}, removes patterns that
-	are strictly irrlevant,
-	Significant Improvement (Global) \code{sig-improve-global},
-	removes patterns that do not significantly improve
-	(0.05 level) w.r.t. all their possible generalizations,
-	Significant Improvement (Set) \code{sig-improve-set},
-	removes patterns that do not significantly improve
-	(0.05 level) w.r.t. all generalizations in the result set.
-	}
-	\item{\code{attributes}}{The list of attributes to consider for mining.}
-	}
- }
-\seealso{
-\code{\link{DiscoverSubgroups}}.
-\code{\link{DiscoverSubgroupsByTask}}
-\code{\link{CreateSDTask}}
-}
-  
-\keyword{classes}
-	
\ No newline at end of file

Deleted: pkg/man/ToDataframe.Rd
===================================================================
--- pkg/man/ToDataframe.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/ToDataframe.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,18 +0,0 @@
-\name{ToDataFrame}
-\alias{ToDataFrame}
-\title{Transforms patterns into a data frame}
-\description{
-  Transforms a list/vector of patterns into a data frame
-  for inspection and analysis.
-}
-\usage{
-ToDataFrame(patterns, ndigits = 2)
-}
-\arguments{
-\item{patterns}{List/vector of patterns.}
-\item{ndigits}{Number of significant digits when printing floats (optional).}
-}
-\seealso{
-\code{\link{DiscoverSubgroups}}.
-}
-\keyword{subgroup analysis}

Deleted: pkg/man/as.target.Rd
===================================================================
--- pkg/man/as.target.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/as.target.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,28 +0,0 @@
-\name{as.target}
-\alias{as.target}
-\title{Constructs a target variable (for subgroup discovery)}
-\description{
-Constructs a target variable, i.e., an object suitable to
-be passed to DiscoverSubgroups or CreateSDTask.
-}
-\usage{
-as.target(attribute, value=NULL)
-}
-\arguments{
-\item{attribute}{The attribute of the target variable.}
-\item{value}{For binary targets, the respective attribute
-		 value; the value is NULL for numeric
-		 targets.}
-}
-\seealso{
-\code{\link{DiscoverSubgroups}}.
-}
-\examples{
-# creating a target variable
-# binary:
-as.target("class", "true")
-
-#numeric:
-as.target("numeric_class")
-}
-\keyword{target variable}

Deleted: pkg/man/credit.data.Rd
===================================================================
--- pkg/man/credit.data.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/credit.data.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,11 +0,0 @@
-\name{credit.data}
-\docType{data}
-\alias{credit}
-\title{Statlog (German Credit Data) Data Set}
-\description{
-  This dataset classifies people described by a set of attributes as good or bad credit risks.
-}
-\usage{credit.data}
-\format{A vector containing 1000 observations.}
-\source{UCI Repository, https://archive.ics.uci.edu/ml/datasets/Statlog+(German+Credit+Data).}
-\keyword{datasets}
\ No newline at end of file

Deleted: pkg/man/subgroup-package.Rd
===================================================================
--- pkg/man/subgroup-package.Rd	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/man/subgroup-package.Rd	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,35 +0,0 @@
-\name{subgroup.discovery}
-\alias{subgroup.discovery}
-\docType{package}
-\title{
-subgroup.discovery Package
- - Algorithms and Tools for Efficient Subgroup Discovery
-}
-\description{
-The subgroup discovery package contains a set of efficient and effective
- tools and algorithms for subgroup discovery.
-}
-\details{
-\tabular{ll}{
-Package: \tab subgroup.discovery\cr
-Type: \tab Package\cr
-Version: \tab 0.4\cr
-Date: \tab 2014-08-01\cr
-License: \tab GPL (>= 3)\cr
-LazyLoad: \tab yes\cr
-}
-}
-\author{
-Martin Atzmueller
-
-Maintainer: Martin Atzmueller <martin at atzmueller.net>
-}
-\references{
-  \enumerate{
-	\item Martin Atzmueller and Frank Puppe. SD-Map - A Fast Algorithm for Exhaustive Subgroup Discovery. Knowledge Discovery in Databases: PKDD 2006, LNAI 4213, pp. 6-17, Springer Verlag, 2006.
-	\item Martin Atzmueller and Florian Lemmerich. Fast Subgroup Discovery for Continuous Target Concepts. In: Foundations of Intelligent Systems, LNCS 5722, pp. 35-44, Springer Verlag, 2009.
-	\item Florian Lemmerich and Mathias Rohlfs and Martin Atzmueller. Fast Discovery of Relevant Subgroup Patterns. In: Proc. 23rd FLAIRS Conference, AAAI Press, 2010.
-  }
-}
-\keyword{ package }
-

Modified: pkg/subgroup/DESCRIPTION
===================================================================
--- pkg/subgroup/DESCRIPTION	2014-08-03 20:18:51 UTC (rev 18)
+++ pkg/subgroup/DESCRIPTION	2014-08-03 20:20:49 UTC (rev 19)
@@ -1,4 +1,4 @@
-Package: subgroup.discovery
+Package: subgroup
[TRUNCATED]

To get the complete diff run:
    svnlook diff /svnroot/subgroup -r 19


More information about the Subgroup-commits mailing list