git://git.onelab.eu
/
monitor.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add comon_analysis graph
[monitor.git]
/
statistics
/
functions.r
diff --git
a/statistics/functions.r
b/statistics/functions.r
index
bc6b8d4
..
e02ee67
100644
(file)
--- a/
statistics/functions.r
+++ b/
statistics/functions.r
@@
-397,10
+397,15
@@
add_timestamp <- function (t)
return (t);
}
return (t);
}
-abline_at_date <- function (date, col='black', lty=1, format="%Y-%m-%d")
+abline_at_date <- function (date, col='black', lty=1, format="%Y-%m-%d"
, height=0
)
{
ts <-unclass(as.POSIXct(date, format=format, origin="1970-01-01"))[1]
{
ts <-unclass(as.POSIXct(date, format=format, origin="1970-01-01"))[1]
- abline(v=ts, col=col, lty=lty)
+ if ( height == 0 )
+ {
+ abline(v=ts, col=col, lty=lty)
+ } else {
+ lines(c(ts,ts),c(0,height), col=col, lty=lty)
+ }
return (ts);
}
return (ts);
}
@@
-409,3
+414,9
@@
tstamp <- function (date, format="%Y-%m-%d")
ts <- unclass(as.POSIXct(date, format=format, origin="1970-01-01"))[1]
return (ts)
}
ts <- unclass(as.POSIXct(date, format=format, origin="1970-01-01"))[1]
return (ts)
}
+
+lowess_smooth <- function (x, y, delta=(60*60*24), f=0.02)
+{
+ a<-lowess(x, y, delta=delta, f=f)
+ return (a);
+}