Add R like summary function.