摘要：
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$ 阅读全文
