| 查看: 815 | 回复: 18 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 寒山听雪 的 6 个金币 ，回帖就立即获得 1 个金币，每人有 1 次机会 | |||
[交流]
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 ] |
回复此楼» 猜你喜欢
博士论文被抄袭
已经有43人回复
-
"颜宁:基础研究应顶天立地"能做到基础研究同时顶天立地的才是牛人
已经有6人回复
-
大学直属学院卸任的副院长退休后还享受副处级的养老待遇吗？
已经有4人回复
-
投稿RSC旗下杂志突然间看不到投稿状态，里面投稿的文章信息不见了，有遇到过的吗？
已经有3人回复
-
求论文投稿期刊推荐
已经有4人回复
-
AC审稿
已经有6人回复
-
聊天
已经有13人回复
-
南京大学-广州大学联合招聘博士后 欢迎广大优秀人才！！！
已经有13人回复
-
博士白读了
已经有52人回复
-
with editor 两个月了，什么原因？
已经有16人回复
» 抢金币啦！回帖就可以得到:
-
European Journal of Haematology论文投稿到接收、见刊的周期
+1/282
-
召集青年编委
+1/180
-
青岛科技大学材料科学与工程（安全与环境功能材料方向）招收博士生
+2/119
-
河南大学未来技术学院（量子信息）电催化团队招聘电催化方向青年教师和博后
+1/97
-
2020年帖子“我强吻未遂头铁的IT男生好朋友”之2024年后续
+1/93
-
北京-89175-事业单位-诚征女友
+1/64
-
广东工业大学材料与能源学院诚聘固态电池方向青年教师
+1/46
-
深圳大学材料学院骆静利院士团队诚聘博士后，综合年薪可达42万元/年，长期有效
+1/31
-
四川大学优青魏强课题组招聘“细胞力学生物学”博士后
+1/25
-
上海交大菜鸟青椒课题组招聘合成化学方向博士后（可转半导体）
+1/17
-
坐标南京
+1/12
-
贵州民办vs新疆 怎么选择
+1/8
-
深圳大学吴奇院士/李连伟教授团队高分子与食品科学博士后招聘
+1/7
-
环保专家（海外人才引进）
+1/5
-
中科院博士后、研究助理招聘公告；分子诊断公司研发人员招聘公告
+1/5
-
澳大利亚 悉尼科技大学 (UTS) 招收全奖博士生，CSC-UTS博士生 (2025)
+1/4
-
海南大学南海国重课题组招收2024年生物学相关专业博士研究生1名
+1/3
-
复旦大学千海课题组诚聘科研助理/2025级博士研究生
+1/3
-
海南大学南海国重课题组招收2024年生物学相关专业博士研究生1名
+1/2
-
知名外资仪器公司急招Regional Product Marketing Manager
+1/1
+1/282
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
回复
