Code :

> library(plyr)

> x<-rnorm(50)

>each(max,min,mean,median,sd)(x)

???????max???????? min??????? mean????? median????????? sd

?1.88221163 -1.52919038? 0.01542068 -0.01443496? 0.80924832

> x

?[1] -0.03896171? 1.05968843?0.60683138? 0.79635301 -0.28065734-0.14786892

?[7] -0.95131844? 0.38734777?1.88221163 -0.07776889 -0.37887712?1.05016316

[13] -0.65355046? 0.28679027 -1.07974448? 0.48795803?0.77793701 -0.66422108

[19] -0.94495008 -0.50267731? 0.26920767 -0.11112345? 1.49338686 -1.38668512

[25]? 0.71392881?0.07792029 -0.42848838?0.39862112? 0.01009179 -1.32298277

[31]? 0.41386912?0.92087498? 0.52594607? 0.46603867 -0.35325559 -1.25671916

[37] -0.21924526 -0.32232343? 1.28370409?1.13865978? 1.07994270 -0.28619480

[43]? 0.22691893 -0.58377522 -1.52919038? 0.27830182 -0.87762173? 0.41305739

[49] -0.94360299 -0.93291290