Мне нужно вычислить поддержку из 2 пунктов. Что касается приведенных данных, у меня есть матрица условных вероятностей, и вероятности размещения товара в качестве первого товара в корзине следующие:
c("Hammer", "Nails", "Screws", "Screwdriver", "Wrench", "Level", "Drill", "Brush")
p<-c(0.02, 0.2, 0.2, 0.2, 0.05, 0.01, 0.02, 0.3)
так что для поддержки 1 предмета я сделал просто
t(CondProbs)%*%p
Можете ли вы дать мне подсказки для следующих?
Говоря о поддержке двух предметов, я имею в виду «Расчет вероятности появления P (X, Y) для каждой пары продуктов». У меня есть поддержка из 1 предмета:
sup1=c(0.15,0.49,0.64,0.57,0.19,0.09,0.12,0.58)
с помощью этого мне нужна поддержка из 2 предметов. Я нашел один пример, но то, что я знаю наверняка, я должен вычислить без использования для функции.
>for (j in 1:n){
+ if(sup1[j]>=supthresh){
+ for (k in j:n){
+ if (sup1[k]>=supthresh){
+ sup2[j,k]<-data[,j]%*%data[,k]
+ sup2[k,j]<-sup2[j,k] } } } }
> sup2<-sup2/nobs
> sup2
p.s. supthresh - это порог для правил, у нас есть supthresh<-0.2