IBM SPSS Modeler - Essentials for R for Windowsのインストール [データサイエンス、統計モデル]
SPSS Modeler上でRを動かしてみようってことで、IBM SPSS Modeler - Essentials for R for Windowsをインストールしました。
IBM SPSS Modeler - Essentials for R for Windows
http://www.ibm.com/developerworks/spssdevcentral
からダウンロードできます。
その際に、"pasw.rstats"拡張がインストールされているフォルダーのパスを求められます。
SPSS Modeler15だと、"pasw.rstats"は存在しません。
IBM SPSS Analytic Serverが必要みたいです
SPSS Modeler 16からはインストール時に自動で"pasw.rstats"作られます。
データ処理の例として、与えられた日に1日追加するコードがあったので、試しに実行して正常に動くことを確認。
サンプルストリーム
ユーザ入力ノード
R変換ノード
ということで、とりあえず、動くことが確認できました。
入力した、シンタックスは、こちら。
******************************************************
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
******************************************************
コンソール出力をみると、こんな感じになっていました。
*****************R Scripts****************************
while(ibmspsscfdata.HasMoreData()){
modelerDataModel <- ibmspsscfdatamodel.GetDataModel()
modelerData <- ibmspsscfdata.GetData(rowCount=1000,missing=NA,rDate="POSIXct",logicalFields=FALSE)
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
ibmspsscfdatamodel.SetDataModel(modelerDataModel)
ibmspsscfdata.SetData(modelerData)
}******************************************************
IBM SPSS Modeler - Essentials for R for Windows
http://www.ibm.com/developerworks/spssdevcentral
からダウンロードできます。
その際に、"pasw.rstats"拡張がインストールされているフォルダーのパスを求められます。
SPSS Modeler15だと、"pasw.rstats"は存在しません。
IBM SPSS Analytic Serverが必要みたいです
SPSS Modeler 16からはインストール時に自動で"pasw.rstats"作られます。
データ処理の例として、与えられた日に1日追加するコードがあったので、試しに実行して正常に動くことを確認。
サンプルストリーム
ユーザ入力ノード
R変換ノード
ということで、とりあえず、動くことが確認できました。
入力した、シンタックスは、こちら。
******************************************************
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
******************************************************
コンソール出力をみると、こんな感じになっていました。
*****************R Scripts****************************
while(ibmspsscfdata.HasMoreData()){
modelerDataModel <- ibmspsscfdatamodel.GetDataModel()
modelerData <- ibmspsscfdata.GetData(rowCount=1000,missing=NA,rDate="POSIXct",logicalFields=FALSE)
day<-as.Date(modelerData$dob, format="%Y-%m-%d")
next_day<-day + 1
modelerData<-cbind(modelerData,next_day)
var1<-c(fieldName="Next day",fieldLabel="",fieldStorage="date",fieldMeasure="",fieldFormat="",
fieldRole="")
modelerDataModel<-data.frame(modelerDataModel,var1)
ibmspsscfdatamodel.SetDataModel(modelerDataModel)
ibmspsscfdata.SetData(modelerData)
}******************************************************
コメント 0