데이터 프레임을 transaction으로 변경

#df를 transaction으로 변경 -> 작동안함

test<-as(TXT_P_MORP$MORP, "transactions")

#df를 transaction으로 변경

write(TXT_P_MORP$MORP, file = "my_basket");

trans = read.transactions("my_basket", format = "basket", sep=",");

inspect(trans) #transaction 내용 보기

wordtable <- crossTable(trans) # 교차표 작성

tranrules <- apriori(trans, parameter=list(supp=0.05, conf=0.01)) 

inspect(tranrules) # 연관규칙 생성 결과 보기