"RoughSets"패키지의 복제

Question

"RoughSets"패키지를 사용하여 일부 데이터를 내 데이터 세트에 복제하려고합니다. 하지만 그렇게하지 못했습니다.

처음에는 pdf 패키지의 코드를 사용하고 있습니다.

data(RoughSetData) 
decision.table <- RoughSetData$hiring.dt 
decision.table 
    Diploma Experience French Reference Decision 
1  MBA  Medium Yes Excellent Accept 
2  MSc  High Yes Neutral Accept 
3  MSc  High Yes Excellent Accept 
4  MBA  High  No  Good Accept 
5  MBA  Low Yes Neutral Reject 
6  MCE  Low Yes  Good Reject 
7  MSc  Medium Yes Neutral Reject 
8  MCE  Low  No Excellent Reject 
## build the decision-relation discernibility matrix 
res.2 <- BC.discernibility.mat.RST(decision.table, range.object = NULL) 
## generate all reducts 
reduct <- FS.all.reducts.computation(res.2) 
## generate new decision table 
new.decTable <- SF.applyDecTable(decision.table, reduct, control = list(indx.reduct = 1)) 
new.decTable 
    Diploma Experience Decision 
1  MBA  Medium Accept 
2  MSc  High Accept 
3  MSc  High Accept 
4  MBA  High Accept 
5  MBA  Low Reject 
6  MCE  Low Reject 
7  MSc  Medium Reject 
8  MCE  Low Reject 

복제하기 위해 자체 데이터 세트를 사용하려고했지만 작동하지 않습니다. 또한 "write.csv"를 사용하여 내 로컬 PC에서 decision.table을 작성한 다음 "read.csv"로 다시 호출하려고했습니다. 그러나 오류 메시지가 나타납니다.

write.csv(decision.table, "decision.table.csv") 
decision.table <- read.csv("decision.table.csv") 
decision.table <- decision.table[-c(1)] 
    Diploma Experience French Reference Decision 
1  MBA  Medium Yes Excellent Accept 
2  MSc  High Yes Neutral Accept 
3  MSc  High Yes Excellent Accept 
4  MBA  High  No  Good Accept 
5  MBA  Low Yes Neutral Reject 
6  MCE  Low Yes  Good Reject 
7  MSc  Medium Yes Neutral Reject 
8  MCE  Low  No Excellent Reject 

res.2 <- BC.discernibility.mat.RST(decision.table, range.object = NULL) 
Error in BC.discernibility.mat.RST(decision.table, range.object = NULL) : 
Provided data should inherit from the 'DecisionTable' class. 

도움을 주시면 감사하겠습니다.

Answer 1

나는 거의 연구하지 않았다. 나중에 나는 website에서 데이터 세트 (외부 데이터)를 다루는 방법을 언급했다.

다음과 같이 변경하면 문제가 해결됩니다.

decision.table <- SF.asDecisionTable(dataset = decision.table, decision.attr = 4, indx.nominal = c(1,3:4))