mainscnt/mainscnt-anomalia-detection
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial

Browse Source
This commit is contained in:
Wolfgang Hottgenroth 2021-04-10 15:41:50 +02:00
commit 6ff8d2a017
Signed by: wn
GPG Key ID: E49AF3B9EF6DD469
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mainscnt-anomalia-detection.r Normal file
View File

@ -0,0 +1,17 @@
library(influxdbr)
con <- influx_connection(group="mainscnt")
q <- influx_query(con,
db="smarthome2",
query="select freq, host from mainsfrequency where time >= '2021-03-20T14:25:10.0Z' and time < '2021-03-20T14:26:10.0Z'",
return_xts=FALSE,
simplifyList = TRUE)
q <- q[c(-1, -2, -3, -1*ncol(q))]
q <- pivot_wider(q, names_from = "host", values_from = "freq")
q$mad <- apply(q[-1], 1, mad)
print.data.frame(q)
#f <- q$mad > 0.005
#f <- replace_na(f, FALSE)
#r <- q[f,c(TRUE)]
#print.data.frame(r)