XFGsummary (R 2.13.1)
Descriptive Statistics
Sat, June 16 2012 by Dedy Dwi Prastyo
-
rm(list=ls(all=TRUE)) graphics.off() summarize = function(x){ Minimum = apply(x,2,min) Maximum = apply(x,2,max) Mean = apply(x,2,mean) Median = apply(x,2,median) Std.Error = apply(x,2,sd) table = cbind(Minimum, Maximum, Mean, Median, Std.Error) print(table) } INAAA = read.table("XFGINAAA.dat") INAAA = INAAA[,4:12] colnames(INAAA) = c("3M", "6M", "1Y", "2Y", "3Y", "4Y", "5Y", "7Y", "10Y") summarize(INAAA)