guidelines for R code modification w.r.t ( json input and multimodel )

guideline_R_model_and_input_json.md

R algo will require multiple algos for a particular gauge based on model information. Also there is a frequent change in input structure of input.

To handle these things a unified json will be provided which will have following #####1) header containing machine details ( model, name, company, zone etc ) #####2) All the available statistics for all the collectors of all the subassemblies of a machines. #####3) raw data in 2d array format under collector

This will be the only input everything else will be sourced statically.

1. header section

2. Statistics section (e.g. statistics of R of ac1 under blower )
   

3. Raw data will follow two dimensional array format. key used is CSV.
   for accelerometer [ [ 1, 2.2, 3] , [3, 4.4, 2], ...... ]
   for vac [ [9.2] , [10], [10.1], ........... ]

e.g. CSV of ac1

e.g. CSV of vac1

how to generate json string from R Objects

> library(RJSONIO)
> oilCheck = list( "color"="red", "trend"=3 )
> beltTension = list("color"="green","trend"=2)
>
>
> all = list( "Oil Check"=oilCheck, "Belt Tension"=beltTension)
> toJSON(all)
[1] "{\n \"Oil Check\": {\n \"color\": \"red\",\n\"trend\":      3 \n},\n\"Belt Tension\": {\n \"color\": \"green\",\n\"trend\":      2 \n} \n}"