3

単純な質問です。R オブジェクトの PMML コードを を使用pmmlcode <- pmml(my.object)して保存しました。テキスト ファイルに直接保存する方法が必要です。write.tableデータがテーブルではないため、通常の方法は機能しません。

4

4 に答える 4

10

以下の例のように、SaveXML を簡単に使用できます。

library(randomForest)

library(pmml)

data(airquality)

ozone.out <- randomForest(Ozone ~ Wind+Temp+Month, data=na.omit(airquality), ntree=200)

saveXML(pmml(ozone.out, data=airquality), "airquality_rf.pmml")
于 2013-06-07T19:21:37.957 に答える
2

私は虹彩データを使用して、ダミーの pmml ファイルを生成し、sink コマンドを使用して pmml 出力を .pmml ファイルに入れています。

    R > library(pmml)
    R > lml <- lm(iris$Sepal.Length~iris$Sepal.Width)
    R > sink("myPmml.pmml")
    R > cat("<?xml version=\"1.0\"?>\n")
    R > pmml(lml)
    R > sink()

出力 myPmml.pmml は、 setwd が .Rprofile に設定されている場所に保存する必要があります。デフォルトは Windows の "Mydocuments" です。もちろん、sink() コマンドに .pmml の代わりに .txt を入れても、これは機能します。

sink("mypmml.txt")

編集: J.Dimeo のおかげで、XML タグを一番上に配置するための cat コマンドを追加しました

于 2013-11-19T11:13:32.090 に答える
1

これを作成するためのテスト コードがありませんが、UCLA CRAN ミラーでの pmml パッケージの可用性に関する以前の問題を解決した後です。これにより、PMML 対応アプリケーションで解釈可能な形式ではありませんが、人間が読みやすいように許容可能な出力が生成されます。

cat(paste(unlist(pmmlcode),"\n"), file="yourfile.txt")

これらのどちらも機能しませんでした:

単なる文字ベクトルの場合:

cat(pmmlcode, file="yourfile.txt")

またはそれがリストの場合：

lapply(pmmlcode, cat, file="yourfile.txt", append=TRUE)
于 2013-06-04T21:32:44.293 に答える