2012年9月10日
摘要: View Code 1 setwd("C:\\RBook\\数据研究\\重庆数据研究\\面积\\") 2 3 mhist<-function(sData,freq="T",Color="black",lty="solid",brk=NULL) 4 { 5 exf<-hist(sData,plot="F",breaks=brk) 6 brk<-exf$breaks 7 if(freq) 8 cnt<-exf$intensities 9 else10 cnt<-exf$ 阅读全文
posted @ 2012-09-10 17:48 davyfamer 阅读(1021) 评论(0) 推荐(0) 编辑