| 查看: 1399 | 回复: 18 | |||
[交流]
R 包 qkerntool已经更新到 1.19版本，欢迎使用
|
|||
|
说明 这是一个关于以核方法为主的r包介绍，这个包包含了许多用于分类，聚类降维和可视化的非线性机器学习工具。该包使用了条件负定核(cnd kernel)，共集成了26个核，包含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 由于用于数据分析的经典核方法通常被认为仅限于正定核，因此，在qkerntools中提出了新的距离算法，新核方法计算高维投影空间中的距离公式如下 在这里插入图片描述 qkernel使用两个向量参数之间的内核函数值，即通常依赖于由定义的内核矩阵h之类的表达式 在这里插入图片描述 更改核的参数会更改数据的投影，从而更改投影空间中的距离。 为了通过r实现负定核表达，构建了一个s4类r包，其中表示为类“qkernel”或“cndkernel”的对象。这些函数可以作为参数传递给泛型函数，这些函数可以评估更有用的内核表达式，如核矩阵 qkernmatrix 由核方法构成的核矩阵 > 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 创造自己的核 自己输入核函数 > 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 参数名 内容 x n x d矩阵（n个样本，d个特征）或继承cndkernmatrix ，qkernmatrix的核矩阵 kernel 核类型 qpar 核参数 features 选择的成分个数 th 忽略主成分的特征值的值 以iris数据集为例，随机提取二十个样本为测试集，对剩余样本使用“rbfbase”核进行降维以及对应的预测，例子使用了iris数据集，代码及结果如下 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 ] |
回复此楼» 猜你喜欢
欢迎发来filecode的Mz6后的代码验证其规律
已经有87人回复
-
93BebMhtakh前后11位开头都是大写
已经有5人回复
-
感觉是下周放榜了
已经有11人回复
-
filecode=后面第一个是大写字母
已经有10人回复
-
时间戳变了，能看出什么问题？
已经有4人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有15人回复
-
今天系统多次维护，明天很可能放榜！
已经有9人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
» 抢金币啦！回帖就可以得到:
-
2026年财务管理、经济与信息技术国际会议 (FMEIT 2026)
+1/516
-
合肥工业大学能源动力方向教师招聘~
+5/320
-
为所有小白祈福
+1/228
-
合肥工业大学能源动力方向教师招聘~
+1/87
-
好久没有来了，回来看看。
+1/79
-
清华大学环境课题组招聘环境工作专业客座生研究生2-3名（应用导向）
+1/15
-
祝福！基金中中中！！！！
+1/13
-
埃克塞特大学商学院管理科学/运筹/数据科学方向Dr Fanlin Meng课题组招收2027秋博士
+1/10
-
北理工集成电路杰青团队 | 诚招科助理
+1/5
-
27推免-广州医科大学封红亮教授招收精神医学应用心理学推免生
+1/5
-
北京理工大学-集成电路与电子学院杰青团队-招博士后
+1/4
-
中国科学院生物物理研究所田勇课题组招聘联合培养生
+1/3
-
南京医科大学-冯璋课题组-招收2027级生化与分子生物学专业博士和硕士研究生
+1/3
-
河海大学海洋环境污染与生态毒理学研究组招收2027级硕士生 及博士研究生
+1/3
-
2026年生物学、大数据与信息工程国际会议 (BSBIE 2026)
+1/3
-
北理工集成电路杰青团队 | 诚招科助理
+1/2
-
中科院赣江创新院（稀土生物分离方向）李庭刚研究员团队招聘博士后/特别研究助理
+1/2
-
海南大学化学院—功能分子器件团队2027博士招生+博士后招聘
+1/2
-
国家级人才团队诚聘生物信息相关专业的科研助理
+1/1
-
中山大学具身智能方向招2027届考核制博士生
+1/1
4楼2019-04-26 22:54:20
18楼2020-04-20 15:43:23
简单回复
2019-04-26 09:26
回复
寒山听雪(金币+1): 谢谢参与
2019-04-26 10:00
回复
2019-04-26 23:23
回复
寒山听雪(金币+1): 谢谢参与
tzynew6楼
2019-04-26 23:52
回复
寒山听雪(金币+1): 谢谢参与
2019-04-27 00:08
回复
寒山听雪(金币+1): 谢谢参与
xhmaohan8楼
2019-04-27 03:49
回复
2019-04-27 07:32
回复
寒山听雪(金币+1): 谢谢参与
祝福 发自小木虫Android客户端
youngen10楼
2019-04-28 18:14
回复
寒山听雪(金币+1): 谢谢参与
wxw082511楼
2019-04-28 21:11
回复
liubq0812楼
2019-04-28 21:46
回复
寒山听雪(金币+1): 谢谢参与
1 发自小木虫IOS客户端
nono200913楼
2019-05-02 10:24
回复
寒山听雪(金币+1): 谢谢参与
·
Biotage14楼
2019-05-02 22:07
回复
寒山听雪(金币+1): 谢谢参与
sz_kebaoyuan15楼
2019-05-02 22:23
回复
寒山听雪(金币+1): 谢谢参与
96021316楼
2019-05-21 11:15
回复
wxw082517楼
2019-09-02 07:41
回复
hi_world_119楼
2020-05-03 17:49
回复
