久久精品精选,精品九九视频,www久久只有这里有精品,亚洲熟女乱色综合一区
    分享

    R語言梯度下降和牛頓法

     醫(yī)學(xué)數(shù)據(jù)科學(xué) 2019-04-07

    梯度下降和牛頓法都是用來求解最優(yōu)化問題的,在機(jī)器學(xué)習(xí)中應(yīng)用甚廣,尤其是梯度下降,它在各種分類和回歸模型的求解中都會(huì)用到。那什么是梯度下降,什么是牛頓法呢,本文就帶你一探究竟。

    梯度下降

    假定最優(yōu)化的目標(biāo)是求解使得取最小值時(shí)的待估參數(shù),我們來看梯度下降是如何來求解待估參數(shù)的:

    1 初始化待估參數(shù)

    初始化,可以認(rèn)為設(shè)定一個(gè)初值,當(dāng)然也可以讓計(jì)算機(jī)隨機(jī)生成。

    2 循環(huán)迭代

    采用如下公式對(duì)待估參數(shù)就行循環(huán)迭代:

    其中,為一階偏導(dǎo)數(shù)即所謂的梯度,可以看到每次迭代,會(huì)向梯度相反的方向移動(dòng),這里 為步長,如果步長太小,迭代可能導(dǎo)致太慢,如果步長太大,可能可能跳過局部最小值,不能保證收斂,所以計(jì)算時(shí)需要選取合適的進(jìn)行迭代運(yùn)算。

    3 計(jì)算完成

    當(dāng)不再減小或者達(dá)到預(yù)設(shè)的循環(huán)上界時(shí),計(jì)算終止。

    實(shí)際上,上述梯度下降算法為批量梯度下降,本文以僅此為例來講解,因?yàn)楫?dāng)你理解之后你會(huì)發(fā)現(xiàn),其他類型的梯度下降算法均為此算法的變種。

    牛頓法

    待優(yōu)化問題同上述梯度下降算法。

    1 初始化待估參數(shù)

    同上。

    2 循環(huán)迭代

    循環(huán)迭代的公式如下:

    其中,為一階偏導(dǎo)數(shù),為二階導(dǎo),這個(gè)公式實(shí)際上是在 處的二階泰勒展開式的變形,由于它考慮了目標(biāo)函數(shù)的二階導(dǎo),因此它的收斂速度也更快,但是它對(duì)目標(biāo)函數(shù)的要求也更嚴(yán)格,需要存在二階導(dǎo)。而且從上式中還可以看到它與梯度下降的另外一個(gè)區(qū)別是不需要設(shè)置步長參數(shù)了。

    3 計(jì)算完成

    當(dāng)不再減小或者達(dá)到預(yù)設(shè)的循環(huán)上界時(shí),計(jì)算終止。

    R語言實(shí)現(xiàn)

    了解了兩種算法的基本概念后,我們嘗試封裝R函數(shù),來實(shí)現(xiàn)對(duì)一元線性回歸模型系數(shù)的估計(jì)。
    1 樣例數(shù)據(jù)

    采用蒙特卡洛模擬生成一組變量數(shù)據(jù)x和y:

    # generate random data 
    # y ~ a + b*x
    set.seed(2017)
    n <- 100
    x <- runif(n,1,10)
    y <- x + rnorm(n)
    plot(x,y,pch=20,main = "Monte Carlo Simulation for Simple Linear Regression")

    可以看到這兩組數(shù)據(jù)之間存在明顯的線性相關(guān)。于是我們可以采用一元線性回歸模型去擬合,形如:

    求解上述模型就是要估計(jì)出上式中截距項(xiàng)和斜率的大小。接下來我們就分別采用梯度下降和牛頓法來求解上述模型。

    2 編寫函數(shù)

    構(gòu)造普通線性回歸的損失函數(shù):

    梯度下降和牛頓算法的目的就是要極小化上述殘差平方和。上代碼:

    # gradient descent algorithm
    gd <- function(x,y,a0,a1,alpha=0.01,tol=1e-5,M=5000){  # Args:  #   x     -- independent variable  #   y     -- dependent variable  #   a0    -- initial value for intercept  #   a1    -- initial value for slope  #   alpha -- step size  #   tol   -- tolerance  #   M     -- Maximum Iterations    # Returns:  # Iterated value sequence, is a dataframe.      i <- 1  res <- data.frame(a0=a0,a1=a1)  repeat{        J0 <- 1/2*sum((a0+a1*x-y)^2)    a0_hat <- a0 - alpha*mean(a0+a1*x-y)    a1_hat <- a1 - alpha*mean((a0+a1*x-y)*x)        a0 <- a0_hat    a1 <- a1_hat    J1 <- 1/2*sum((a0_hat+a1_hat*x-y)^2)        res <- rbind(res,data.frame(a0=a0,a1=a1))        if( abs(J1-J0) < tol | i >= M )      break    i <- i + 1  }  return(res)
    }

    # Newton's method
    nt <- function(x,y,a0,a1,tol=1e-5,M=500){  # Args:  #   x     -- independent variable  #   y     -- dependent variable  #   a0    -- initial value for intercept  #   a1    -- initial value for slope  #   tol   -- tolerance  #   M     -- Maximum Iterations    # Returns:  # Iterated value sequence, is a dataframe.      i <- 1  res <- data.frame(a0=a0,a1=a1)    repeat{        J0 <- 1/2*sum((a0+a1*x-y)^2)    a0_hat <- a0 - mean(a0+a1*x-y)    a1_hat <- a1 - mean((a0+a1*x-y)*x)/mean(x^2)            a0 <- a0_hat    a1 <- a1_hat    J1 <- 1/2*sum((a0_hat+a1_hat*x-y)^2)        res <- rbind(res,data.frame(a0=a0,a1=a1))    if( abs(J1-J0) < tol | i >= M )      break    i <- i + 1  }  return(res)
    }
    3 對(duì)比算法效果

    查看梯度下降和牛頓算法的效果,并將其與系統(tǒng)自帶函數(shù)的估計(jì)結(jié)果做對(duì)比:

    # compare two algorithms
    res.gd <- gd(x = x,y = y,a0 = 0,a1 = 0,tol=1e-8)
    tail(res.gd,1)
    ##             a0        a1
    ## 2964 0.2515242 0.9429152
    res.nt <- nt(x = x,y = y,a0 = 0,a1 = 0,tol=1e-8)
    tail(res.nt,1)
    ##            a0        a1
    ## 123 0.2520766 0.9428287
    # use lm function
    fit <- lm(y~x)
    (a <- coef(fit))
    ## (Intercept)           x 
    ##   0.2520778   0.9428331

    可以看到,梯度下降經(jīng)過2964步后收斂,牛頓算法經(jīng)過僅僅123步就收斂。這是因?yàn)榕nD算法考慮了二階導(dǎo),即梯度的變化,所以他在迭代次數(shù)上顯得比梯度下降更有優(yōu)勢(shì)。

    3 迭代路徑可視化
    # plot for gradient descent algorithm 
    nr <- nrow(res.gd)
    ind <- c(1:10,1:floor(nr/100)*100,nr)
    a0 <- res.gd$a0[ind]
    a1 <- res.gd$a1[ind]
    plot(a0,a1,cex=0.5,xlim = c(0,0.3),ylim = c(0,1),pch=20,main = "Gradient Descent Algorithm")
    arrows(head(a0,-1),head(a1,-1),tail(a0,-1),tail(a1,-1),length=0.05)
    points(a[1],a[2],col=2,cex=1.5,pch=20)

    # plot for Newton's method 
    a0 <- res.nt$a0
    a1 <- res.nt$a1
    plot(a0,a1,xlim = c(0,6),ylim = c(0,1),pch=20,main = "Newton's method")
    arrows(head(a0,-1),head(a1,-1),tail(a0,-1),tail(a1,-1),length=0.08)
    points(a[1],a[2],col=2,cex=1.5,pch=20)

    總結(jié)

    梯度下降算法和牛頓法各有優(yōu)劣:

    梯度下降法考慮了目標(biāo)函數(shù)的一階偏導(dǎo)、以負(fù)梯度方向作為搜索方向去尋找最小值,需要認(rèn)定合適的步長,迭代次數(shù)多,容易陷入局部最小值。

    牛頓法同時(shí)考慮了目標(biāo)函數(shù)的一、二階偏導(dǎo)數(shù),相當(dāng)于考慮了梯度的梯度,所以能確定合適的搜索方向加快收斂,但牛頓法要求也更嚴(yán)格,目標(biāo)函數(shù)必須存在連續(xù)的一、二階偏導(dǎo)數(shù),且海森矩陣必須正定,迭代次數(shù)雖少,但是當(dāng)待估參數(shù)較多時(shí),單次的運(yùn)算量會(huì)遠(yuǎn)大于梯度下降算法。

    所以在具體的數(shù)據(jù)分析和挖掘中,需要權(quán)衡利弊后再選擇更為合適的算法。

      本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
      轉(zhuǎn)藏 分享 獻(xiàn)花(0

      0條評(píng)論

      發(fā)表

      請(qǐng)遵守用戶 評(píng)論公約

      類似文章 更多

      主站蜘蛛池模板: 9色国产深夜内射| 国产乱码1卡二卡3卡四卡5| 亚洲一区二区精品偷拍| 毛片大全真人在线| 美女内射毛片在线看免费人动物 | 国产在线午夜不卡精品影院 | 国内不卡不区二区三区| 国产乱了伦视频大全亚琴影院| 亚洲制服丝袜系列AV无码| 日本高清一区免费中文视频| 亚洲综合欧美色五月俺也去| 国产午夜福利在线视频| 国产SUV精品一区二区88L| 美女无遮挡免费视频网站| 伊人久久精品无码麻豆一区| 麻豆一区二区中文字幕| 精品无码久久久久久久动漫| 日韩中文字幕人妻一区| 亚洲综合激情另类小说区| 羞羞影院午夜男女爽爽免费视频| 国产丝袜视频一区二区三区| 亚洲欧美日韩愉拍自拍美利坚| 精品少妇人妻AV无码久久| 四虎永久地址WWW成人久久| 亚洲av永久无码精品漫画| 手机看片AV永久免费| A毛片终身免费观看网站| 午夜亚洲乱码伦小说区69堂| 国色天香成人一区二区| 中文文字幕文字幕亚洲色| 国产香蕉一区二区三区在线视频| 亚洲国产午夜精品福利| 久久6久久66热这里只是精品| 亚洲香蕉网久久综合影视| 亚洲国产成人欧美在线观看| 蜜桃臀无码AV在线观看| 男女激情一区二区三区| 国产精品国产精品国产专区不卡| 成人无码视频在线观看免费播放| 亚洲综合色AAA成人无码| 日韩国产亚洲一区二区三区|