0

私の目標は、学校のプロジェクト用に Rattle で決定木モデルを作成することです。研究課題に必要な変数を特定し、元の .csv ファイルから新しいデータセットを作成することができました。新しいデータセットを .xls ファイルと .rdata ファイルだけでなく保存した後、ファイルを Rattle にロードした後にエラー メッセージを受け取りました。決定木モデルを作成するのはこれが初めてなので、少し苦労しています。よろしくお願いします。

これが私がこれまでに持っているものです:

install.packages(readxl)

library(readxl)
library(rattle)

setwd("C:/Users/river/OneDrive/Documents/Random Data")

edu <- read_excel('pfi_pu.xlsx')



eduu <- data.frame(c("P1HRSWK" = c(edu$P1HRSWK),
                   "P1EMPL" = c(edu$P1EMPL),
                   "P2HRSWK" = c(edu$P2HRSWK),
                   "P2EMPL" = c(edu$P2EMPL),
                   "P1ENRL" = c(edu$P1ENRL),
                   "P2ENRL" = c(edu$P2ENRL),
                   "P1EDUC" = c(edu$P1EDUC),
                   "P2EDUC" = c(edu$P2EDUC),
                   "P1HISPRM" = c(edu$P1HISPRM),
                   "P2HISPRM" = c(edu$P2HISPRM),
                   "P1PACI" = c(edu$P1PACI),
                   "P2PACI" = c(edu$P2PACI),
                   "P1BLACK" = c(edu$P1BLACK),
                   "P2BLACK" = c(edu$P2BLACK),
                   "P1ASIAN" = c(edu$P1ASIAN),
                   "P2ASIAN" = c(edu$P2ASIAN),
                   "P1AMIND" = c(edu$P1AMIND),
                   "P2AMIND" = c(edu$P2AMIND),
                   "P1HISPAN" = c(edu$P1HISPAN),
                   "P2HISPAN" = c(edu$P2HISPAN),
                   "P1LKWRK" = c(edu$P1LKWRK),
                   "P2LKWRK" = c(edu$P2LKWRK),
                   "P1MTHSWRK" = c(edu$P1MTHSWRK),
                   "P1REL" = c(edu$P1REL),
                   "P2REL" = c(edu$P2REL),
                   "P1SEX" = c(edu$P1SEX),
                   "P2SEX" = c(edu$P2SEX),
                   "P1MRSTA" = c(edu$P1MRSTA),
                   "SEFUTUREX" = c(edu$SEFUTUREX),
                   "HSFUTUREX" = c(edu$HSFUTUREX),
                   "PARGRADEX" = c(edu$PARGRADEX),
                   "TTLHHINC" = c(edu$TTLHHINC),
                   "PAR1EMPL" = c(edu$PAR1EMPL),
                   "PAR2EMPL" = c(edu$PAR2EMPL),
                   "SEEXPEL" = c(edu$SEEXPEL),
                   "SESUSPIN" = c(edu$SESUSPIN),
                   "SESUSOUT" = c(edu$SESUSOUT),
                   "SEGRADEQ" = c(edu$SEGRADEQ)
                    ,dim = c(14075,38,1))


save(eduu,file="eduu.xls")

エラーメッセージ

ここに画像の説明を入力

4

1 に答える 1