最美情侣中文字幕电影,在线麻豆精品传媒,在线网站高清黄,久久黄色视频

歡迎光臨散文網(wǎng) 會(huì)員登陸 & 注冊(cè)

R語(yǔ)言用rle,svm和rpart決策樹進(jìn)行時(shí)間序列預(yù)測(cè)

2021-01-05 08:44 作者:拓端tecdat  | 我要投稿

原文鏈接:http://tecdat.cn/?p=3072

?

?

下面顯示了四種預(yù)測(cè)時(shí)間序列的方法。

支持向量機(jī)(R package e1071。“Chih-Chung Chang and Chih-Jen Lin,LIBSVM:a library for support vector machines,2005.”的實(shí)現(xiàn))。

遞歸分區(qū)(R package rpart?!癇reiman,F(xiàn)riedman,Olshen and Stone。Classification and Regression Trees,1984”的實(shí)現(xiàn))。

將最后兩種方法的性能與rle進(jìn)行比較,得到svm的95%和rpart的94%。

R :


  1. m$rle(Xvar ='sleep',Xlmin =60)m$setZoo()+

  2. rleplot(m$zo[,c(5,7,8)],type ='l')


  1. # Subset a week


  1. # Plot correlation matrix


  2. w$correlation(Xvars =w$nm[c(2:7,9)])

  1. # SVM and Recursive partitioning


  2. plot(tune.gamma.cost)

  1. rpart.p <- predict(rpart.m, data[,-1],type ='class')

  2. sdt$svm = as.integer(svm.p)

  3. dt$rpart = as.integer(rpart.p)

  4. plot(w$dt2zoo(dt)[,c(5,8,9,10)],type ='l')

?


R語(yǔ)言用rle,svm和rpart決策樹進(jìn)行時(shí)間序列預(yù)測(cè)的評(píng)論 (共 條)

分享到微博請(qǐng)遵守國(guó)家法律
南丹县| 秭归县| 宿松县| 洪湖市| 汾阳市| 张家港市| 江永县| 舟曲县| 百色市| 达州市| 淳化县| 哈密市| 咸阳市| 越西县| 广东省| 安溪县| 通辽市| 应城市| 青河县| 潞城市| 珲春市| 故城县| 内丘县| 静海县| 淅川县| 玉门市| 永兴县| 沾益县| 贵溪市| 林甸县| 唐山市| 江津市| 邮箱| 邛崃市| 青岛市| 汽车| 宁安市| 东乌珠穆沁旗| 吴桥县| 北京市| 泗阳县|