sensor: merged reporting module
[oweals/gnunet.git] / src / sensor / plugin_sensor_model_gaussian.c
1 /*
2  * This file is part of GNUnet
3  * (C) 2013 Christian Grothoff (and other contributing authors)
4  *
5  * GNUnet is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published
7  * by the Free Software Foundation; either version 3, or (at your
8  * option) any later version.
9  *
10  * GNUnet is distributed in the hope that it will be useful, but
11  * WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with GNUnet; see the file COPYING.  If not, write to the
17  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18  * Boston, MA 02111-1307, USA.
19  */
20
21 /*
22  * @file sensor/plugin_sensor_model_gaussian.c
23  * @brief Gaussian model for sensor analysis
24  * @author Omar Tarabai
25  */
26
27 #include "platform.h"
28 #include "gnunet_sensor_model_plugin.h"
29 #include "gnunet_sensor_service.h"
30 #include "sensor.h"
31
32 #define LOG(kind,...) GNUNET_log_from (kind, "sensor-model-gaussian", __VA_ARGS__)
33
34 /*
35  * Plugin state information
36  */
37 struct Plugin
38 {
39
40   /*
41    * Configuration handle
42    */
43   const struct GNUNET_CONFIGURATION_Handle *cfg;
44
45   /*
46    * Number of initial readings to be used for training only
47    */
48   int training_window;
49
50   /*
51    * Number of standard deviations considered within "normal"
52    */
53   int confidence_interval;
54
55 };
56
57 /*
58  * State of single model instance
59  */
60 struct Model
61 {
62
63   /*
64    * Pointer to the plugin state
65    */
66   struct Plugin *plugin;
67
68   /*
69    * Number of readings so far
70    */
71   int n;
72
73   /*
74    * Sum of readings
75    */
76   long double sum;
77
78   /*
79    * Sum square of readings
80    */
81   long double sumsq;
82
83 };
84
85 /**
86  * Update local sums of model with a new value.
87  *
88  * @param model Targe model
89  * @param val New value
90  */
91 static void
92 update_sums (struct Model *model, double val)
93 {
94   model->sum += val;
95   model->sumsq += val * val;
96   model->n++;
97 }
98
99
100 /**
101  * Feed a new value to a model
102  *
103  * @param cls closure (model state)
104  * @param val value to be fed to the model
105  * @return #GNUNET_YES in case of a detected outlier, #GNUNET_NO otherwise
106  */
107 static int
108 sensor_gaussian_model_feed (void *cls, double val)
109 {
110   struct Model *model = cls;
111   struct Plugin *plugin = model->plugin;
112   long double mean;
113   long double stddev;
114   long double allowed_variance;
115
116   if (model->n < plugin->training_window)
117   {
118     update_sums (model, val);
119     return GNUNET_NO;
120   }
121   mean = model->sum / model->n;
122   stddev =
123       sqrt ((model->sumsq - 2 * mean * model->sum +
124              model->n * mean * mean) / (model->n - 1));
125   allowed_variance = (plugin->confidence_interval * stddev);
126   if ((val < (mean - allowed_variance)) || (val > (mean + allowed_variance)))
127     return GNUNET_YES;
128   return GNUNET_NO;
129 }
130
131
132 /**
133  * Destroy a model instance
134  *
135  * @param cls closure (model state)
136  */
137 static void
138 sensor_gaussian_model_destroy_model (void *cls)
139 {
140   struct Model *model = cls;
141
142   GNUNET_free (model);
143 }
144
145
146 /**
147  * Create a model instance
148  *
149  * @param cls closure (plugin state)
150  * @return model state to be used for later calls
151  */
152 static void *
153 sensor_gaussian_model_create_model (void *cls)
154 {
155   struct Plugin *plugin = cls;
156   struct Model *model;
157
158   model = GNUNET_new (struct Model);
159
160   model->plugin = plugin;
161   return model;
162 }
163
164
165 /**
166  * Entry point for the plugin.
167  *
168  * @param cls The struct GNUNET_CONFIGURATION_Handle.
169  * @return NULL on error, otherwise the plugin context
170  */
171 void *
172 libgnunet_plugin_sensor_model_gaussian_init (void *cls)
173 {
174   static struct Plugin plugin;
175   const struct GNUNET_CONFIGURATION_Handle *cfg = cls;
176   struct GNUNET_SENSOR_ModelFunctions *api;
177   unsigned long long num;
178
179   if (NULL != plugin.cfg)
180     return NULL;                /* can only initialize once! */
181   memset (&plugin, 0, sizeof (struct Plugin));
182   plugin.cfg = cfg;
183   if (GNUNET_OK !=
184       GNUNET_CONFIGURATION_get_value_number (cfg, "sensor-model-gaussian",
185                                              "TRAINING_WINDOW", &num))
186   {
187     LOG (GNUNET_ERROR_TYPE_ERROR,
188          _("Missing `TRAINING_WINDOW' value in configuration.\n"));
189     return NULL;
190   }
191   plugin.training_window = (int) num;
192   if (GNUNET_OK !=
193       GNUNET_CONFIGURATION_get_value_number (cfg, "sensor-model-gaussian",
194                                              "CONFIDENCE_INTERVAL", &num))
195   {
196     LOG (GNUNET_ERROR_TYPE_ERROR,
197          _("Missing `CONFIDENCE_INTERVAL' value in configuration.\n"));
198     return NULL;
199   }
200   plugin.confidence_interval = (int) num;
201   api = GNUNET_new (struct GNUNET_SENSOR_ModelFunctions);
202
203   api->cls = &plugin;
204   api->create_model = &sensor_gaussian_model_create_model;
205   api->destroy_model = &sensor_gaussian_model_destroy_model;
206   api->feed_model = &sensor_gaussian_model_feed;
207   LOG (GNUNET_ERROR_TYPE_DEBUG, "Gaussian model plugin is running.\n");
208   return api;
209 }
210
211
212 /**
213  * Exit point from the plugin.
214  *
215  * @param cls The plugin context (as returned by "init")
216  * @return Always NULL
217  */
218 void *
219 libgnunet_plugin_sensor_model_gaussian_done (void *cls)
220 {
221   struct GNUNET_SENSOR_ModelFunctions *api = cls;
222   struct Plugin *plugin = api->cls;
223
224   plugin->cfg = NULL;
225   GNUNET_free (api);
226   LOG (GNUNET_ERROR_TYPE_DEBUG, "Guassian model plugin is finished\n");
227   return NULL;
228
229 }
230
231 /* end of plugin_sensor_model_gaussian.c */