1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/env Rscript
git_version <- tryCatch ({
readLines (".tarball-version")
}, error = function (cond) {
"0.0.0.9000"
})
parts <- strsplit (git_version, "-", fixed = TRUE)[[1]]
tag <- parts[1]
commit <- NA
if (length (parts) > 1) {
commit <- 9000 + as.numeric (parts[2])
}
r_version <- tag
if (!is.na (commit)) {
r_version <- sprintf ("%s.%d", tag, commit)
}
library ("devtools")
writeLines (c (
"Package: strats",
"Type: Package",
"Title: Semi-supervised Transductive Residual Analysis of Time Series",
sprintf ("Version: %s", r_version),
"Author: Vivien Kraus <vivien@planete-kraus.eu>",
"Maintainer: Vivien Kraus <vivien@planete-kraus.eu>",
"Description: Implementation of for anomaly detection.",
"License: Proprietary",
"LazyData: true"),
"DESCRIPTION")
use_namespace (roxygen = TRUE)
document ()
load_all ()
check_matrix_product ()
check_gradient ()
build ()
|