* functions.R; + demo.R

* functions.R: finished the main functionalities, the analyze.cpi()
function will give back a list of functions: short() for short text
summary, log() for showing details and report() for generating a
picture report;
+ demo.R