#1.未转换为事务性数据
transdata0 <- read.transactions("R124fang.csv", format =c("basket"),
sep = ",", cols = 1, header = TRUE, rm.duplicates= TRUE)
#2已转换为事务性数据
#2.1 CSV
transdata1<-read.transactions("R124fangshiwu.csv",format=c("single"),
sep=",",cols=c(1,2),header=TRUE,rm.duplicates=TRUE)
