projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update biblio
[epclust.git]
/
epclust
/
R
/
utils.R
diff --git
a/epclust/R/utils.R
b/epclust/R/utils.R
index
1e4ea30
..
72f59ec
100644
(file)
--- a/
epclust/R/utils.R
+++ b/
epclust/R/utils.R
@@
-36,9
+36,9
@@
#' @return A matrix of size log(L) x n containing contributions in columns
#'
#' @export
#' @return A matrix of size log(L) x n containing contributions in columns
#'
#' @export
-curvesToContribs <- function(
seri
es, wav_filt, contrib_type)
+curvesToContribs <- function(
curv
es, wav_filt, contrib_type)
{
{
- series <- as.matrix(
seri
es)
+ series <- as.matrix(
curv
es)
L <- nrow(series)
D <- ceiling( log2(L) )
# Series are interpolated to all have length 2^D
L <- nrow(series)
D <- ceiling( log2(L) )
# Series are interpolated to all have length 2^D
@@
-96,7
+96,7
@@
curvesToContribs <- function(series, wav_filt, contrib_type)
#' assignMedoids
#'
#' assignMedoids
#'
-#' Find the closest medoid for each curve in input
(by-columns matrix)
+#' Find the closest medoid for each curve in input
#'
#' @param curves (Chunk) of series whose medoids indices must be found
#' @param medoids Matrix of medoids (in columns)
#'
#' @param curves (Chunk) of series whose medoids indices must be found
#' @param medoids Matrix of medoids (in columns)
@@
-128,7
+128,7
@@
filterMA <- function(M_, w_)
#' cleanBin
#'
#' Remove binary files to re-generate them at next run of \code{claws()}.
#' cleanBin
#'
#' Remove binary files to re-generate them at next run of \code{claws()}.
-#'
Note: run it in the folder where th
e computations occurred (or no effect).
+#'
To be run in the folder wher
e computations occurred (or no effect).
#'
#' @export
cleanBin <- function()
#'
#' @export
cleanBin <- function()