jiaju_cao的专栏

#数据库输入 #ODBC接口 library(RODBC) myconn<- odbcConnect("test",uid="root",pwd="123456") crimedat<-sqlFetch(myconn,Crime) pundat<-sqlQuery(myconn,"select * from zt_bug") co

# 图形创建 pdf("mygraph.pdf") attach(mtcars) plot(wt,mpg) abline(lm(mpg~wt)) title("Regression of mpg on weight") detach(mtcars) #说明： pdf("mygraph.pdf") 为保存开启文件，

#向量 vec1 <-c(1,2,3,4,5) vec1 #矩阵 tm <- matrix(1:20,nrow=5,ncol=4) tm cells <- c(1,26,24,68) rnames<- c("R1","R2") cnames<- c("C1","C2") mym <-matrix(cells,nrow=2,ncol=2,byrow=TRUE,dimnames=list(rnam

manager<-c(1,2,3,4,5) date<- c("10/24/08","10/28/08","10/1/08","10/12/08","5/1/09") country<-c("US","US","UK","UK","UK") gender<-c("M","F","F","M","F") age<-c(32,45,25,39,99) q1<-c(5,3,3,3,2) q2<-c(4,

student<-c("John Davis","Angela williams","Bullwinkle Moose","David Jones","Janice Markhammer","Cheryl Cushing","Reuven Ytzrhak","Greg Knox","Joel England","Mary Rayburn") math<-c(502,600,412,358,495,