R 数据输入

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

#文件输入 --- 文本文件
    #mydata<-read.table(file,header=logical_value,sep="delimiter",row.names="name")
    
    #datainput文件内容
    #SID,NAME,AGE,GRADE,SCORE
    #1,test1,35,CLASS1,88
    #2,test2,30,CLASS2,78
    #3,test3,10,CLASS3,98
    
    grades<-read.table("/home/caojj/temp/datainput",header=TRUE,sep=",",row.names="SID")
    grades
    
    #注意：文本文件需要保留一空行，否则会有告警

#文件输入 --- excel
    #install.packages("RODBC")
    #library(RODBC)
    #channel<-odbcConnectExcel("mydata.xls")
    #mydataframe<-sqlFetch(channel,"mysheet")
    #odbcClose(channel)
    
    library(xlsx)
    workbook<-"/home/caojj/temp/export.xls"
    mydataframe<-read.xlsx(workbook,1)
    mydataframe

#文件输入 --- Stata
    library(foreign)
    mydataframe<-read.dta("mydata.dta")

#键盘输入
    mydata<-data.frame(age=numeric(0),gender=character(0),weight=numeric(0))
    mydata <- edit(mydata)  #等同于：  fix(mydata)
    mydata