SPLUS数据库导入导出操作
SPLUS可以直接访问下面数据库,其它可以通过ODBC访问,如下
Microsoft SQL Server (Windows only)
IBM DB2 (Windows, Solaris 32, Linux, Compaq Tru64, HP,AIX)
Sybase (Windows, Solaris 32, HP, AIX)
Oracle (Windows, Solaris 32, Linux, HP, AIX)
通过使用importData 和 exportData 命令
#建立数据集
mydata <- data.frame(COL1=c(1.2,1.3,1.51,2.1,3.9),
COL2=c("a", "b", "c", "d", "e"),
COL3=timeDate(c("1/1/2003", "2/1/2003",
"3/15/2005", "10/24/2003", "11/11/2004"),
format="%02m/%02d/%Y %02H:%02M:%02S.%03N"))
#导出数据
exportData(mydata, type="DIRECT-SYBASE",
user="testqa", password="testqa",
server="qaimage.insightful.com", database="testdb",
table="testDirectSybase", appendToTable=F)
#导入数据
mynewdata <- importData(type="direct-oracle",
user="testqa", password="testqa",
server="ORACLE.TESTDB",
table="testDirectOracle")
#通过ODBC导入数据
myDataSet <-importData(
file = "testSQLServer",
type = "ODBC",
odbcConnection =
"DSN=testSQLServer;UID=joesmith;PWD=secret; APP=SPLUS;
WSID=joesComputer;DATABASE=testdba",
odbcSqlQuery="Select * from testdba.dbo.Table23"
#通过ODBC导出数据
exportData(data="myDataSet", file="testSQLServer",
type="ODBC", odbcConnection =
"DSN=testSQLServer;UID=joesmith;PWD=secret; APP=SPLUS;
WSID=joesComputer;DATABASE=testdba",
odbcSqlQuery="Select * from testdba.dbo.Table23"
)
执行SQL操作
executeSql("DSN=mydatabase","INSERT into mytable values
('Hello')")
都文本数据函数
> auto <- read.table('auto.dat',header=T)
使用data.dump函数导出数据集共其它SPLUS应用使用
data.dump("matz")#它会导出到dumpdata文件夹下面
写表到文件
> write.table(fuel.frame, "fuel.txt")
写值到文件
> x <- 1:1000
> cat(x,file="mydata",fill=T)
建立HTML输出
html.table(catalyst, file="catalyst.htm")
> my.results<-list("Regression Coefficients" =
+ coef(lm(Mileage~Weight, fuel.frame)),
+ "Correlations"=cor(fuel.frame[,1:3]))
> html.table(my.results, file="my.htm")
也可以利用write函数来写文件
> write("<H3> S-PLUS Code for the above </H3>
Continue string: <P> Put code here </P>",
+ file="my.htm", append=T)
也可以通过 sink 函数来组织输出
> sink("my.htm")
> cat("<H3> Linear Model Results </H3> \n")
> cat("<PRE>")
> summary(lm(Mileage~Weight, fuel.frame))
> cat("</PRE>")
> sink()
然后可以通过!my.htm来查看结果
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=713980