diegousaiuk / market_basket_analysis Goto Github PK

I appreciate, that you share your implementation of the improved CF in your part3 script. I am still wondering though, how to extract the results of the prediction, created by predict_cf().

My first guess was to extract the predicted items like this:

items_recom <- recomm@i
results <- data.table(Items = retail$Description[items_recom])
results 

I believe that I am wrong, because I keep getting the same 6 results, no matter how I change the fake order input.

@DiegoUsaiUK I ran into an error with dgCMatrix while running part 3 of the Market Basket Analysis Code, what do you suggest ? I have tried to different things but I couldn't figure it out
Here is the code and the error message is below:
new_order <- item_list %>%
mutate(value = as.numeric(Description %in% customer_order)) %>%
spread(key = Description, value = value) %>%
as.matrix() %>%
as("dgCMatrix")
Error in item_list %>% mutate(value = as.numeric(Description %in% customer_order)) %>% :
could not find function "%>%"