Расчет поддержки по 2 пунктам

Мне нужно рассчитать поддержку по 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)

поэтому для поддержки по одному пункту я сделал простой

t(CondProbs)%*%p

Можете ли вы дать мне подсказки по поводу следующего?

Говоря о поддержке по 2 пунктам, я имею в виду расчет вероятности появления 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

может быть, вы могли бы дать немного больше контекста. Я не из вашей области, и я понятия не имею, что такое «уверенность по двум пунктам» и «подъем по двум пунктам». Я мог бы предположительно погуглить их (например, здесь), но было бы проще, если бы вы нам сказали.

Ben Bolker 31.10.2018 13:28

@BenBolker Спасибо за ответ, внесу некоторые изменения в вопрос

Azat Aleksanyan 31.10.2018 13:52

@BenBolker, теперь все в порядке?

Azat Aleksanyan 31.10.2018 13:59

кажется несколько лучше. (что такое supthresh в вашем фрагменте кода ... ???)

Ben Bolker 31.10.2018 14:00

пороги для правил supthresh<-0.2 @BenBolker

Azat Aleksanyan 31.10.2018 14:54

дорогой @BenBolker, к сожалению, я исчерпал лимит новых вопросов, так что надеюсь только на тебя. Может у вас есть какие-нибудь идеи по этому поводу?

Azat Aleksanyan 02.11.2018 22:44
0
6
42
0

Другие вопросы по теме