| 19 | 1/1 | 返回列表 |
| 查看: 1175 | 回復(fù): 18 | |||
寒山聽(tīng)雪鐵蟲(chóng) (小有名氣)
|
[交流]
R 包 qkerntool已經(jīng)更新到 1.19版本,歡迎使用
|
||
|
說(shuō)明 這是一個(gè)關(guān)于以核方法為主的r包介紹,這個(gè)包包含了許多用于分類,聚類降維和可視化的非線性機(jī)器學(xué)習(xí)工具。該包使用了條件負(fù)定核(cnd kernel),共集成了26個(gè)核,包含q核版本和cnd版本,其中包含dbscan,譜聚類,廣義判別分析 (gda),主成分分析(pca),isomap,線性判別分析(lle),sammon mapping和tsne。 1.在r中直接輸入代碼在cran上查找安裝 install.packages("qkerntool" ) 2 直接下載好的qkerntool_1.19.tar.gz install.packages("e:/qkerntool_1.18.tar.gz" ) 3 rstudio中在菜單欄tools-install packages中查找安裝 install from下拉菜單可以選擇是從cran還是本地安裝包安裝 cnd kernel 由于用于數(shù)據(jù)分析的經(jīng)典核方法通常被認(rèn)為僅限于正定核,因此,在qkerntools中提出了新的距離算法,新核方法計(jì)算高維投影空間中的距離公式如下 在這里插入圖片描述 qkernel使用兩個(gè)向量參數(shù)之間的內(nèi)核函數(shù)值,即通常依賴于由定義的內(nèi)核矩陣h之類的表達(dá)式 在這里插入圖片描述 更改核的參數(shù)會(huì)更改數(shù)據(jù)的投影,從而更改投影空間中的距離。 為了通過(guò)r實(shí)現(xiàn)負(fù)定核表達(dá),構(gòu)建了一個(gè)s4類r包,其中表示為類“qkernel”或“cndkernel”的對(duì)象。這些函數(shù)可以作為參數(shù)傳遞給泛型函數(shù),這些函數(shù)可以評(píng)估更有用的內(nèi)核表達(dá)式,如核矩陣 qkernmatrix 由核方法構(gòu)成的核矩陣 > library("qkerntool" ) > set.seed(20181110) > x <- matrix(rnorm(300), ncol = 100) > qkfunc <- rbfbase(sigma=10,q=0.8) > qkfunc qbase qkernel function. hyperparameter : sigma = 10 q = 0.8 > qkfunc(x[1, ], x[2, ]) [,1] [1,] 4.976754 > qkernmatrix(qkfunc,x) an object of class "qkernmatrix" [,1] [,2] [,3] [1,] 0.000000 4.976754 4.969811 [2,] 4.976754 0.000000 4.960555 [3,] 4.969811 4.960555 0.000000 創(chuàng)造自己的核 自己輸入核函數(shù) > rbf1 <- function(x, y){ + sdist <- crossprod(x) + crossprod(y) - 2*crossprod(x,y) + sdist <- (1 - exp(log(0.8)*sdist/10))/(1-0.8) + return(sdist) >+ } > class(rbf1) <- "qkernel" > rbf1(x[1, ], x[2, ]) qkpca 參數(shù)名 內(nèi)容 x n x d矩陣(n個(gè)樣本,d個(gè)特征)或繼承cndkernmatrix ,qkernmatrix的核矩陣 kernel 核類型 qpar 核參數(shù) features 選擇的成分個(gè)數(shù) th 忽略主成分的特征值的值 以iris數(shù)據(jù)集為例,隨機(jī)提取二十個(gè)樣本為測(cè)試集,對(duì)剩余樣本使用“rbfbase”核進(jìn)行降維以及對(duì)應(yīng)的預(yù)測(cè),例子使用了iris數(shù)據(jù)集,代碼及結(jié)果如下 data(iris) test <- sample(1:150,20) qkpc <- qkpca(~.,data=iris[-test,-5],kernel="rbfbase", qpar=list(sigma=50,q=0.8),features=2) # print the principal component vectors pcv(qkpc) #plot the data projection on the components plot(rotated(qkpc),col=as.integer(iris[-test,5]), xlab="1st principal component",ylab="2nd principal component" ) # embed remaining points emb <- predict(qkpc,iris[test,-5]) points(emb,col=as.integer(iris[test,5])) [ last edited by jjdg on 2019-4-26 at 20:55 ] [ Last edited by jjdg on 2019-4-26 at 20:55 ] |
» 搶金幣啦!回帖就可以得到:
+1/189
+1/86
+2/36
+1/34
+1/20
+1/9
+1/9
+1/9
+1/9
+1/7
+1/7
+1/6
+1/6
+1/5
+1/4
+1/3
+1/2
+1/2
+1/1
+1/1
鐵桿木蟲(chóng) (職業(yè)作家)
鐵蟲(chóng) (小有名氣)


| 19 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[論文投稿]
EST拒稿重投
5+3
|
15102603076 2026-03-02 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 復(fù)試調(diào)劑 +4 | 杰尼龜aaa 2026-03-03 | 4/200 |
|
|
[考研] 291求調(diào)劑 +4 | Afy123456 2026-03-03 | 7/350 |
|
|
[考研] 中國(guó)林科院林化所(南京)2026年招收化學(xué)/材料/環(huán)境工程等背景碩士研究生3名 +3 | realstar2006 2026-02-27 | 3/150 |
|
|
[考研] 化工專碩調(diào)劑 +4 | 利好利好. 2026-03-03 | 7/350 |
|
|
[基金申請(qǐng)] 請(qǐng)問(wèn)大家,研究風(fēng)險(xiǎn)與應(yīng)對(duì)措施那里, 大家都怎么寫(xiě)呢 ? +3 | cauasen 2026-03-02 | 3/150 |
|
|
[考研] 268求調(diào)劑 +6 | 好運(yùn)連綿不絕 2026-03-02 | 6/300 |
|
|
[考研] 299求調(diào)劑 +5 | kkcoco25 2026-03-02 | 9/450 |
|
|
[考研] 26考研報(bào)考西工大材料308分求調(diào)劑 +4 | weizhong123 2026-03-01 | 5/250 |
|
|
[考研] 考研復(fù)試調(diào)劑,過(guò)國(guó)家線的同學(xué)都可報(bào)名 +7 | 黑!在干嘛 2026-02-28 | 8/400 |
|
|
[考研] 298求調(diào)劑 +7 | axyz3 2026-02-28 | 8/400 |
|
|
[考研] 0856材料調(diào)劑 +5 | 沿岸有貝殼OUC 2026-03-02 | 5/250 |
|
|
[考研] 302材料工程求調(diào)劑 +5 | Doleres 2026-03-01 | 6/300 |
|
|
[考博] 26超級(jí)電容器申博 +3 | dhdjdjend 2026-02-25 | 3/150 |
|
|
[考博] 誠(chéng)招農(nóng)業(yè)博士 +3 | 心欣向榮 2026-02-28 | 3/150 |
|
|
[考研] 291 求調(diào)劑 +3 | 化工2026屆畢業(yè)?/a> 2026-03-02 | 3/150 |
|
|
[考研] 265分求調(diào)劑不調(diào)專業(yè)和學(xué)校有行學(xué)上就 +6 | 禮堂丁真258 2026-02-28 | 9/450 |
|
|
[基金申請(qǐng)]
|
Doma 2026-03-01 | 7/350 |
|
|
[碩博家園] 博士自薦 +7 | 科研狗111 2026-02-26 | 11/550 |
|
|
[考研] 307求調(diào)劑 +4 | 73372112 2026-02-28 | 6/300 |
|