Dear All ,
I need help in the following two Questions:
1- I want to dynamically send any record data set e.g.: Based on Date period or any other columns, then send this dynamic parameter to be generated using an apriori algorithm and give me a result of Basket items with (LHS, RHS, Support, Confidence and lift) how I can do this task? .
2- I have the following R code:
library(arules)
library(Matrix)
setwd("C:/Data Worked")
Order_Product_Sub<-read.csv("Order_Product.csv")
Orders_Basket <- read.transactions("Order_Product.csv", format ="single",rm.duplicates=TRUE, sep = ",", cols = c("orders.guid","products.name_en"))
Order_Rules <- apriori(data=Orders_Basket, parameter = list(supp=0.001, conf=0.001,minlen = 2,maxlen=4))
Orders_Basket_Table <- as.data.frame(inspect(sort(Order_Rules, by = "confidence"), ruleSep = "", setStart = "", setEnd = ""))
Orders_Basket_Table$No_Of_LHS<- rowSums(Orders_Basket_Table == ",")
x <- Orders_Basket_Table$lhs
Orders_Basket_Table$No_Of_LHS<-sapply(regmatches(x, gregexpr(",", x)), length)+1
Orders_Basket_Table[,2]<-NULL
After I run I get the following error:
Details: "ADO.NET: R script error.
Loading required package: Matrix
Attaching package: 'arules'
The following objects are masked from 'package:base':
abbreviate, write
Warning message:
In apriori(data = Orders_Basket, parameter = list(supp = 0.001, :
Mining stopped (maxlen reached). Only patterns up to a length of 4 returned!
Error in matrix(unlist(value, recursive = FALSE, use.names = FALSE), nrow = nr, :
'data' must be of a vector type, was 'NULL'
Calls: rowSums -> Ops.data.frame -> matrix
Execution halted
"
What is the cause of the error and how we can solve it?
Thank You In Advanced
