getwd()
txt<-read.table("test.txt",header = FALSE,sep = "",skip = 7)
head(txt)
getwd()
txt<-scan("test.txt",what = "",sep = "",na.strings = "NA",skip = 7)
txt
scan()比read.table效率更好
C#調(diào)用R腳本
1.安裝R.NET
2.using RDotNet;
3.調(diào)用r腳本
REngine.SetEnvironmentVariables();
REngine engine = REngine.GetInstance();
engine.Initialize();
engine.Evaluate("source('C:/Users/JackChen/Desktop/test.r')");
engine.Dispose();
4.r腳本示例
setwd("c://")
jpeg(file="test123.jpeg")
plot(1:10,main = "主標題",sub="子標題",xlab="x軸標題",ylab="y軸標題",col="red",col.main='red')
#rect(1, 5, 3, 7, col="red")
dev.off()
R語言連接Sql Server數(shù)據(jù)庫
#Windows身份驗證
install.packages("RODBC")
library(RODBC)
conStr <- odbcDriverConnect('driver={SQL Server};server=(local);database=ForecastDataSystem;trusted_connection=true')
sql<-sqlQuery(conStr,"select top 100* from Weather_H_SpiData")
print(sql)
#Sql Server身份驗證
install.packages("RODBC")
library(RODBC)
conStr <- odbcDriverConnect('driver={SQL Server};server=10.10.10.20;database=ForecastDataSystem;uid=Develop;pwd=Develop;')
sql<-sqlQuery(conStr,"select top 100* from City")
print(sql)
