五月天婷亚洲天久久综合网,婷婷丁香五月激情亚洲综合,久久男人精品女人,麻豆91在线播放

  • <center id="8gusu"></center><rt id="8gusu"></rt>
    <menu id="8gusu"><small id="8gusu"></small></menu>
  • <dd id="8gusu"><s id="8gusu"></s></dd>

    r語言回歸方程中的字符串遍歷問題-經(jīng)管之家官網(wǎng)!

    人大經(jīng)濟(jì)論壇-經(jīng)管之家 收藏本站
    您當(dāng)前的位置> 會計>>

    會計庫

    >>

    r語言回歸方程中的字符串遍歷問題

    r語言回歸方程中的字符串遍歷問題

    發(fā)布:shi1duxinxia | 分類:會計庫

    關(guān)于本站

    人大經(jīng)濟(jì)論壇-經(jīng)管之家:分享大學(xué)、考研、論文、會計、留學(xué)、數(shù)據(jù)、經(jīng)濟(jì)學(xué)、金融學(xué)、管理學(xué)、統(tǒng)計學(xué)、博弈論、統(tǒng)計年鑒、行業(yè)分析包括等相關(guān)資源。
    經(jīng)管之家是國內(nèi)活躍的在線教育咨詢平臺!

    經(jīng)管之家新媒體交易平臺

    提供"微信號、微博、抖音、快手、頭條、小紅書、百家號、企鵝號、UC號、一點(diǎn)資訊"等虛擬賬號交易,真正實(shí)現(xiàn)買賣雙方的共贏!菊堻c(diǎn)擊這里訪問】

    提供微信號、微博、抖音、快手、頭條、小紅書、百家號、企鵝號、UC號、一點(diǎn)資訊等虛擬賬號交易,真正實(shí)現(xiàn)買賣雙方的共贏!菊堻c(diǎn)擊這里訪問】

    回歸方程中希望對每個變量進(jìn)行遍歷,計算每個變量的回歸準(zhǔn)確率,有什么方法可以實(shí)現(xiàn)呢?例如:install.packages("AER")mylr=glm(CHOICE~PURPOSE+OVTRAIL+TCRAIL+CHANGES,family=binomial(link="logit"),data ...
    壇友互助群


    掃碼加入各崗位、行業(yè)、專業(yè)交流群


    回歸方程中希望對每個變量進(jìn)行遍歷,計算每個變量的回歸準(zhǔn)確率,有什么方法可以實(shí)現(xiàn)呢?
    例如:
    install.packages("AER")
    mylr=glm(CHOICE~PURPOSE+OVTRAIL+TCRAIL+CHANGES,family=binomial(link="logit"),data=traindata)
    logodds<-predict(mylr)
    traindata<-data.frame(traindata,logodds)
    odds<-exp(traindata$logodds)
    traindata<-data.frame(traindata,odds)
    p=traindata$odds/(1+traindata$odds)
    traindata<-data.frame(traindata,p)
    Class<-numeric(length(traindata$p))
    Class[traindata$p<0.5]<-0
    Class[traindata$p>=0.5]<-1
    traindata<-data.frame(traindata,Class)
    confusionmatrix<-table(traindata$CHOICE,traindata$Class)
    confusionmatrix
    accuracy=(confusionmatrix[1,1]+confusionmatrix[2,2])/sum(confusionmatrix)
    accuracy
    現(xiàn)在希望CHOICE變量對purpose、ovtrail、tcrail、changes分別進(jìn)行回歸分析,本來希望通過for循環(huán)來做的。
    如:
    install.packages("AER")
    for (i in 2:nrow(mydata))
    {
    traindata$variable<-traindata[,i]
    mylr=glm(CHOICE~variable,family=binomial(link="logit"),data=traindata)
    logodds<-predict(mylr)
    traindata<-data.frame(traindata,logodds)
    odds<-exp(traindata$logodds)
    traindata<-data.frame(traindata,odds)
    p=traindata$odds/(1+traindata$odds)
    traindata<-data.frame(traindata,p)
    Class<-numeric(length(traindata$p))
    Class[traindata$p<0.5]<-0
    Class[traindata$p>=0.5]<-1
    traindata<-data.frame(traindata,Class)
    confusionmatrix<-table(traindata$CHOICE,traindata$Class)
    confusionmatrix
    accuracy=(confusionmatrix[1,1]+confusionmatrix[2,2])/sum(confusionmatrix)
    accuracy
    }
    顯示錯誤:
    Error in `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]) :
    對比只適用于有兩個或多于兩個層次的因子
    要不就是:
    變量只能使用character變量,想請教下各位,這種回歸遍歷有什么辦法能夠?qū)崿F(xiàn),而不需要每個都手動輸入獲得訓(xùn)練數(shù)據(jù)的準(zhǔn)確率。
    附圖,如果代碼看不清,可以看圖片。。。
    掃碼或添加微信號:壇友素質(zhì)互助


    「經(jīng)管之家」APP:經(jīng)管人學(xué)習(xí)、答疑、交友,就上經(jīng)管之家!
    免流量費(fèi)下載資料----在經(jīng)管之家app可以下載論壇上的所有資源,并且不額外收取下載高峰期的論壇幣。
    涵蓋所有經(jīng)管領(lǐng)域的優(yōu)秀內(nèi)容----覆蓋經(jīng)濟(jì)、管理、金融投資、計量統(tǒng)計、數(shù)據(jù)分析、國貿(mào)、財會等專業(yè)的學(xué)習(xí)寶庫,各類資料應(yīng)有盡有。
    來自五湖四海的經(jīng)管達(dá)人----已經(jīng)有上千萬的經(jīng)管人來到這里,你可以找到任何學(xué)科方向、有共同話題的朋友。
    經(jīng)管之家(原人大經(jīng)濟(jì)論壇),跨越高校的圍墻,帶你走進(jìn)經(jīng)管知識的新世界。
    掃描下方二維碼下載并注冊APP
    本文關(guān)鍵詞:

    本文論壇網(wǎng)址:http://xalimeijing.com/thread-6595224-1-1.html

    人氣文章

    1.凡人大經(jīng)濟(jì)論壇-經(jīng)管之家轉(zhuǎn)載的文章,均出自其它媒體或其他官網(wǎng)介紹,目的在于傳遞更多的信息,并不代表本站贊同其觀點(diǎn)和其真實(shí)性負(fù)責(zé);
    2.轉(zhuǎn)載的文章僅代表原創(chuàng)作者觀點(diǎn),與本站無關(guān)。其原創(chuàng)性以及文中陳述文字和內(nèi)容未經(jīng)本站證實(shí),本站對該文以及其中全部或者部分內(nèi)容、文字的真實(shí)性、完整性、及時性,不作出任何保證或承若;
    3.如本站轉(zhuǎn)載稿涉及版權(quán)等問題,請作者及時聯(lián)系本站,我們會及時處理。
    數(shù)據(jù)分析師 人大經(jīng)濟(jì)論壇 大學(xué) 專業(yè) 手機(jī)版