From ac1d423158fc0f625af1d3ab8b0a509fc3ae015c Mon Sep 17 00:00:00 2001
From: Benjamin Auder <benjamin.auder@somewhere>
Date: Thu, 29 Dec 2016 16:16:48 +0100
Subject: [PATCH] 'update'

---
 code/draft_R_pkg/DESCRIPTION                | 21 +++++++++++++
 code/draft_R_pkg/LICENSE                    |  2 ++
 code/draft_R_pkg/R/main.R                   | 26 ++++++++++++++++
 code/draft_R_pkg/README.md                  | 11 +++++++
 code/draft_R_pkg/man/epclust-package.Rd     | 34 +++++++++++++++++++++
 code/draft_R_pkg/tests/testthat.R           |  4 +++
 code/draft_R_pkg/tests/testthat/test.TODO.R |  0
 code/draft_R_pkg/vignettes/TODO.Rnw         |  0
 8 files changed, 98 insertions(+)
 create mode 100644 code/draft_R_pkg/DESCRIPTION
 create mode 100644 code/draft_R_pkg/LICENSE
 create mode 100644 code/draft_R_pkg/R/main.R
 create mode 100644 code/draft_R_pkg/README.md
 create mode 100644 code/draft_R_pkg/man/epclust-package.Rd
 create mode 100644 code/draft_R_pkg/tests/testthat.R
 create mode 100644 code/draft_R_pkg/tests/testthat/test.TODO.R
 create mode 100644 code/draft_R_pkg/vignettes/TODO.Rnw

diff --git a/code/draft_R_pkg/DESCRIPTION b/code/draft_R_pkg/DESCRIPTION
new file mode 100644
index 0000000..ce9129b
--- /dev/null
+++ b/code/draft_R_pkg/DESCRIPTION
@@ -0,0 +1,21 @@
+Package: epclust
+Title: Clustering individual electricity power curves
+Description: EPCLUST: Electric Power curves CLUSTering, through their wavelets decomposition.
+		The main method 'epclust' takes (usually long) time-series in input, and return as many
+		clusters centers as requested, along with their identifiers (if aplicable).
+		Several parameters can be tuned: please refer to the package vignette.
+Version: 0.1-0
+Author:
+	Benjamin Auder <Benjamin.Auder@math.u-psud.fr> [aut,cre],
+	Jairo Cugliari <Jairo.Cugliari@univ-lyon2.fr> [aut]
+Maintainer: Benjamin Auder <Benjamin.Auder@math.u-psud.fr>
+Depends:
+    R (>= 3.0.0)
+Imports:
+		MASS
+Suggests:
+    testthat,
+    parallel,
+    knitr
+License: MIT + file LICENSE
+VignetteBuilder: knitr
diff --git a/code/draft_R_pkg/LICENSE b/code/draft_R_pkg/LICENSE
new file mode 100644
index 0000000..3c29ab5
--- /dev/null
+++ b/code/draft_R_pkg/LICENSE
@@ -0,0 +1,2 @@
+YEAR: 2016-2017
+COPYRIGHT HOLDER: Jairo CUGLIARI
diff --git a/code/draft_R_pkg/R/main.R b/code/draft_R_pkg/R/main.R
new file mode 100644
index 0000000..4120b39
--- /dev/null
+++ b/code/draft_R_pkg/R/main.R
@@ -0,0 +1,26 @@
+epclust = function(data=NULL, con=NULL, raw=FALSE, K, nbPerChunk, ...)
+{
+
+
+#TODO: just a wrapper which calls ppam.exe (system("...")) and reads output (binary) file to retrieve medoids + IDs
+	#on input: can be data or con; data handled by writing it to file (ascii or bin ?!),
+	#con handled 
+
+
+	#options for tmp files: in RAM, on disk, on DB (can be distributed)
+
+
+
+	if (!is.null(data))
+	{
+		#full data matrix
+		
+	} else if (!is.null(con))
+	{
+		#incremental connection
+		#read it one by one and get coeffs until nbSeriesPerChunk
+		#then launch a clustering task............
+	} else
+		stop("at least 'data' or 'con' argument must be present")
+
+}
diff --git a/code/draft_R_pkg/README.md b/code/draft_R_pkg/README.md
new file mode 100644
index 0000000..cfe894e
--- /dev/null
+++ b/code/draft_R_pkg/README.md
@@ -0,0 +1,11 @@
+# Clustering individual power curves using wavelets decomposition
+
+This package was funded by a contract with EDF; its goal is to identify groups of customers.
+
+## Description
+
+TODO
+
+## Example
+
+TODO
diff --git a/code/draft_R_pkg/man/epclust-package.Rd b/code/draft_R_pkg/man/epclust-package.Rd
new file mode 100644
index 0000000..c6bfac0
--- /dev/null
+++ b/code/draft_R_pkg/man/epclust-package.Rd
@@ -0,0 +1,34 @@
+\name{epclust-package}
+\alias{epclust-package}
+\alias{epclust}
+\docType{package}
+
+\title{
+	\packageTitle{epclust}
+}
+
+\description{
+	\packageDescription{epclust}
+}
+
+\details{
+	The package devtools should be useful in development stage, since we rely on testthat for
+	unit tests, and roxygen2 for documentation. knitr is used to generate the package vignette.
+	Concerning the other suggested packages, 'parallel' can speed up (...TODO...)
+
+	The main function is located in R/main.R: it runs the clustering task (TODO: explain more).
+}
+
+\author{
+	\packageAuthor{epclust}
+
+	Maintainer: \packageMaintainer{epclust}
+}
+
+%\references{
+%	TODO: Literature or other references for background information
+%}
+
+%\examples{
+%	TODO: simple examples of the most important functions
+%}
diff --git a/code/draft_R_pkg/tests/testthat.R b/code/draft_R_pkg/tests/testthat.R
new file mode 100644
index 0000000..eb8bc36
--- /dev/null
+++ b/code/draft_R_pkg/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(epclust)
+
+test_check("epclust")
diff --git a/code/draft_R_pkg/tests/testthat/test.TODO.R b/code/draft_R_pkg/tests/testthat/test.TODO.R
new file mode 100644
index 0000000..e69de29
diff --git a/code/draft_R_pkg/vignettes/TODO.Rnw b/code/draft_R_pkg/vignettes/TODO.Rnw
new file mode 100644
index 0000000..e69de29
-- 
2.44.0