predict.rpart()运行不了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

DROP PROCEDURE DTREE_WITH_R;
CREATE PROCEDURE DTREE_WITH_R(IN train "CENSUSINCOME", IN test "CENSUSINCOME_PREDICT", OUT result "DTREE_RESULT_R")
LANGUAGE RLANG AS
BEGIN
library(rpart)
fit <- rpart(CLASS ~ .,
                      method="class", data=train, control=rpart.control(minsplit=0.71))
        result <- data.frame(cbind(ID=test$ID, CLASS=as.character(predict(fit, newdata=test, type=c("class")))))
END;


DROP TABLE CENSUSINCOME;
CREATE TABLE CENSUSINCOME ("AGE" INT,"CLASS_WORKER" VARCHAR(100),"DETAILED_IND_RECODE" INT,"DETAILED_OCC_RECODE" INT,"EDUCATION" VARCHAR(100),"WAGE" INT,
"ENROLL_IN_WK" VARCHAR(100),"MARITAL_STATE" VARCHAR(100), "MAJOR_IND_CODE" VARCHAR(100),"MAJOR_OCC_CODE" VARCHAR(100),"RACE" VARCHAR(100),"HISPANIC_ORIGIN" VARCHAR(100),
"SEX" VARCHAR(100),"LABOR_UNION" VARCHAR(100),"REASON4UNEMPLOYMENT" VARCHAR(100),"FULLORPARTTIME" VARCHAR(100),"CAPITAL_GAINS" INT,"CAPITAL_LOSSES" INT,"DIVIDENDS_STOCKS" INT,
"TAX_FILER" VARCHAR(100),"REGION_PRE_RESIDENCE" VARCHAR(100),"STATE_PRE_RESIDENCE" VARCHAR(100),"HOUSEHOLD_FAMILY" VARCHAR(100),"HOUSEHOLD_SUMMARY" VARCHAR(100),
"INSTANCE_WEIGHT" DOUBLE,"MIGRATION_IN_MSA" VARCHAR(100),"MIGRATION_IN_REG" VARCHAR(100),"MIGRATION_CODE_MOVE" VARCHAR(100),"LIVE_IN_HOUSE_ONE_AGO" VARCHAR(100),
"PREV_SUNBELT" VARCHAR(100),"NUM_PERSONS" INT,"FAMILY_MEM_UNDER_18" VARCHAR(100),"COUNTRY_BIRTH_FATHER" VARCHAR(100),"COUNTRY_BIRTH_MOTHER" VARCHAR(100),
"COUNTRY_BIRTH_SELF" VARCHAR(100),"CITIZENSHIP" VARCHAR(100),"OWN_BUSINESS" INT,"FILL_INC" VARCHAR(100),"VETERANS" INT,"WEEKS_IN_YEARS" INT,"YEAR" INT,"CLASS" VARCHAR(100));


DROP TABLE CENSUSINCOME_PREDICT;
CREATE TABLE CENSUSINCOME_PREDICT ("ID" INT,"AGE" INT,"CLASS_WORKER" VARCHAR(100),"DETAILED_IND_RECODE" INT,"DETAILED_OCC_RECODE" INT,"EDUCATION" VARCHAR(100),"WAGE" INT,
"ENROLL_IN_WK" VARCHAR(100),"MARITAL_STATE" VARCHAR(100), "MAJOR_IND_CODE" VARCHAR(100),"MAJOR_OCC_CODE" VARCHAR(100),"RACE" VARCHAR(100),"HISPANIC_ORIGIN" VARCHAR(100),
"SEX" VARCHAR(100),"LABOR_UNION" VARCHAR(100),"REASON4UNEMPLOYMENT" VARCHAR(100),"FULLORPARTTIME" VARCHAR(100),"CAPITAL_GAINS" INT,"CAPITAL_LOSSES" INT,"DIVIDENDS_STOCKS" INT,
"TAX_FILER" VARCHAR(100),"REGION_PRE_RESIDENCE" VARCHAR(100),"STATE_PRE_RESIDENCE" VARCHAR(100),"HOUSEHOLD_FAMILY" VARCHAR(100),"HOUSEHOLD_SUMMARY" VARCHAR(100),
"INSTANCE_WEIGHT" DOUBLE,"MIGRATION_IN_MSA" VARCHAR(100),"MIGRATION_IN_REG" VARCHAR(100),"MIGRATION_CODE_MOVE" VARCHAR(100),"LIVE_IN_HOUSE_ONE_AGO" VARCHAR(100),
"PREV_SUNBELT" VARCHAR(100),"NUM_PERSONS" INT,"FAMILY_MEM_UNDER_18" VARCHAR(100),"COUNTRY_BIRTH_FATHER" VARCHAR(100),"COUNTRY_BIRTH_MOTHER" VARCHAR(100),
"COUNTRY_BIRTH_SELF" VARCHAR(100),"CITIZENSHIP" VARCHAR(100),"OWN_BUSINESS" INT,"FILL_INC" VARCHAR(100),"VETERANS" INT,"WEEKS_IN_YEARS" INT,"YEAR" INT);

这是用的两个表。
执行时报错，说表里面凡是类型为varchar的都与fit不匹配。。。。。。。
怎么整合下数据啊！！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：predict rpart PART Pred ART result train

variables ‘CLASS_WORKER’, ‘EDUCATION’, ‘ENROLL_IN_WK’, ‘MARITAL_STATE’, ‘MAJOR_IND_CODE’, ‘MAJOR_OCC_CODE’, ‘RACE’, ‘HISPANIC_ORIGIN’, ‘SEX’, ‘LABOR_UNION’, ‘REASON4UNEMPLOYMENT’, ‘FULLORPARTTIME’, ‘TAX_FILER’, ‘REGION_PRE_RESIDENCE’, ‘STATE_PRE_RESIDENCE’, ‘HOUSEHOLD_FAMILY’, ‘HOUSEHOLD_SUMMARY’, ‘MIGRATION_IN_MSA’, ‘MIGRATION_IN_REG’, ‘MIGRATION_CODE_MOVE’, ‘LIVE_IN_HOUSE_ONE_AGO’, ‘PREV_SUNBELT’, ‘FAMILY_MEM_UNDER_18’, ‘COUNTRY_BIRTH_FATHER’, ‘COUNTRY_BIRTH_MOTHER’, ‘COUNTRY_BIRTH_SELF’, ‘CITIZENSHIP’, ‘FILL_INC’ were specified with different types from the fit

因为不是数据框吧
感觉你这类型不是数据框