Question

我知道我对逻辑回归的理解中缺少一些东西，并且非常感谢任何帮助。

我已经构建了一个logit模型，我可以通过计算预测概率用手进入“顶部”，“底部”，“右侧”，“左侧”，见下文：

Form

我也使用apriori算法得到26行“top”，“bottom”，“right”，“left”的组合，我的问题是可以将这些全部循环到logit回归模型来计算概率自动。

    >QPI<-read.csv("QPI_combine2.csv")
    >spec_q2<-glm(result ~ Top + Right + Left + Bottom + I(Top^2) + I(Left^2) + 
                 I(Bottom^2) + Top:Right + Top:Bottom + Right:
    >test_predict <- with(QPI, data.frame(Top=54,Bottom=-48,Right=17,Left=-20))
    >test_predict$prob<-predict(spec_q2, newdata=test_predict,type="response")
    >test_predict
      Top Bottom Right Left      prob
   1  54    -48    17  -20 0.9117354

我将“数据”中的组合存储为数据框，然后传递给newdata参数，但似乎徒劳无功。

    >rules_both<-apriori(QPI2, control = list(verbose=F), 
            parameter=list(minlen=5, supp=0.001, conf=0.01),
            appearance = list(rhs=c("PASS=1","PASS=0"),
                              default="lhs"))

    >rules2.sorted<-sort(rules_both, by="lift")
    >as(rules2.sorted, "data.frame")

                                           rules             support confidence lift
    1  {Top=59,Bottom=-51,Right=15,Left=-19} => {PASS=0} 0.001071429          1  3.5
    2  {Top=57,Bottom=-52,Right=17,Left=-24} => {PASS=0} 0.001071429          1  3.5
    5  {Top=51,Bottom=-54,Right=15,Left=-24} => {PASS=0} 0.001071429          1  3.5
    11 {Top=52,Bottom=-53,Right=15,Left=-23} => {PASS=0} 0.001428571          1  3.5
    14 {Top=53,Bottom=-49,Right=16,Left=-22} => {PASS=0} 0.001071429          1  3.5
    16 {Top=48,Bottom=-54,Right=16,Left=-20} => {PASS=0} 0.001071429          1  3.5
    19 {Top=52,Bottom=-54,Right=17,Left=-22} => {PASS=0} 0.001428571          1  3.5
    24 {Top=48,Bottom=-50,Right=14,Left=-22} => {PASS=0} 0.001428571          1  3.5

R-使用循环组合logit回归和关联规则

0 个答案: