X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=statistics%2Ffunctions.r;h=e02ee67d27ac25db37fa98ed322b766886ab8798;hb=4fdb3f1a73ed9a8f48c120670cd6e0533bcb9741;hp=d9e402385d9485528a6023b581fbc529aee9d90b;hpb=a403ef9f15068971de470ce7c66c59252b118f39;p=monitor.git

diff --git a/statistics/functions.r b/statistics/functions.r
index d9e4023..e02ee67 100644
--- a/statistics/functions.r
+++ b/statistics/functions.r
@@ -414,3 +414,9 @@ tstamp <- function (date, format="%Y-%m-%d")
     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);
+}