Wrapper checklist

Wc.md

supress all warning messages

options(warn=-1)

suppress all library messages

 suppressMessages(library("dplyr"))

output is stringified Jason, key and value are both string. follow this example

output <- sprintf('
{
        "r": {
                "aqd": "%s",
                "saqd": "%s",
                "waqd": "%s",
                "tail_aqd": "%s",
                "tail_saqd": "%s",
                "tail_waqd": "%s"
        },
        "theta": {
                "aqd": "%s",
                "saqd": "%s",
                "waqd": "%s",
                "tail_aqd": "%s",
                "tail_saqd": "%s",
                "tail_waqd": "%s"
        },
        "phi": {
                "aqd": "%s",
                "saqd": "%s",
                "waqd": "%s",
                "tail_aqd": "%s",
                "tail_saqd": "%s",
                "tail_waqd": "%s"
        }
}
'
,  avg_quan_diff[1], std_avg_quan_diff[1], waqd_avg_quan_diff[1]  , tail_avg_quan_diff[1] , tail_std_avg_quan_diff[1]  ,  tail_waqd_avg_quan_diff[1] ,  avg_quan_diff[2], std_avg_quan_diff[2], waqd_avg_quan_diff[2]  , tail_avg_quan_diff[2] , tail_std_avg_quan_diff[2]  ,  tail_waqd_avg_quan_diff[2] ,avg_quan_diff[3], std_avg_quan_diff[3], waqd_avg_quan_diff[3]  , tail_avg_quan_diff[3] , tail_std_avg_quan_diff[3]  ,  tail_waqd_avg_quan_diff[3] )

cat(output)

don't print anything except output, e.g.

[root@cloud-server-07 tmp]# Rscript CalculationOfAqdSaqdAndWaqd_neeraj.R xyz.csv

{
        "r": {
                "aqd": "22.2322875145663",
                "saqd": "0.430131367081051",
                "waqd": "19.1873215079447",
                "tail_aqd": "84.7725257711657",
                "tail_saqd": "1.64010664116209",
                "tail_waqd": "92.7142077553854"
        },
        "theta": {
                "aqd": "0.177631704380289",
                "saqd": "0.415949835473482",
                "waqd": "0.152189068567651",
                "tail_aqd": "0.667285220367388",
                "tail_saqd": "1.56254300770252",
                "tail_waqd": "0.73223182212333"
        },
        "phi": {
                "aqd": "0.0195150663428415",
                "saqd": "0.378335742152337",
                "waqd": "0.0165080463168417",
                "tail_aqd": "0.0743840984447331",
                "tail_saqd": "1.44207365709231",
                "tail_waqd": "0.0821879236251228"
        }
}

run and verify output with online Jason validator or include a Jason test in R

http://jsonlint.com/