24小时热门版块排行榜    

查看: 1183  |  回复: 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 ]
回复此楼

» 猜你喜欢

» 抢金币啦!回帖就可以得到:

查看全部散金贴

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)



寒山听雪(金币+1): 谢谢参与
看上去很强大啊
4楼2019-04-26 22:54:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

寒山听雪

铁虫 (小有名气)


欢迎各位继续使用,目前发布一年多
18楼2020-04-20 15:43:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
2019-04-26 09:26   回复  
寒山听雪(金币+1): 谢谢参与
2019-04-26 10:00   回复  
寒山听雪(金币+1): 谢谢参与
发自小木虫IOS客户端
2019-04-26 23:23   回复  
寒山听雪(金币+1): 谢谢参与
tzynew6楼
2019-04-26 23:52   回复  
寒山听雪(金币+1): 谢谢参与
syhorchid7楼
2019-04-27 00:08   回复  
寒山听雪(金币+1): 谢谢参与
xhmaohan8楼
2019-04-27 03:49   回复  
寒山听雪(金币+1): 谢谢参与
发自小木虫Android客户端
erjianxin9楼
2019-04-27 07:32   回复  
寒山听雪(金币+1): 谢谢参与
祝福 发自小木虫Android客户端
youngen10楼
2019-04-28 18:14   回复  
寒山听雪(金币+1): 谢谢参与
wxw082511楼
2019-04-28 21:11   回复  
寒山听雪(金币+1): 谢谢参与
发自小木虫Android客户端
liubq0812楼
2019-04-28 21:46   回复  
寒山听雪(金币+1): 谢谢参与
1 发自小木虫IOS客户端
nono200913楼
2019-05-02 10:24   回复  
寒山听雪(金币+1): 谢谢参与
·
Biotage14楼
2019-05-02 22:07   回复  
寒山听雪(金币+1): 谢谢参与
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   回复  
相关版块跳转 我要订阅楼主 寒山听雪 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料调剂,307分 +11 张泳铭1 2026-03-09 12/600 2026-03-10 22:52 by 星空星月
[考研] 070300化学 280 一志愿太原理工 求调剂 +9 拾玖壹 2026-03-04 9/450 2026-03-10 22:51 by peike
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
[考研] 306求调剂 +3 唐薏薏 2026-03-09 3/150 2026-03-10 22:30 by peike
[考研] 085600 材料与化工 295 求调剂 +9 dream…… 2026-03-10 9/450 2026-03-10 22:24 by 剑诗杜康
[考研] 求调剂材料专硕293 +6 段_(:з」∠)_ 2026-03-10 6/300 2026-03-10 18:22 by ms629
[考研] 一志愿东北大学080500,英一数二343分求调剂 +8 Seele_v5 2026-03-04 8/400 2026-03-10 14:51 by ruiyingmiao
[基金申请] PDF在线压缩软件 10+3 haxia 2026-03-08 4/200 2026-03-10 13:44 by lfy8008
[考研] 物理学求调剂 +4 sx宋 2026-03-05 4/200 2026-03-10 11:11 by changlu999
[考博] 2026博士申请 +6 起泡酒 2026-03-08 6/300 2026-03-10 10:26 by 何由彻
[考研] 085600材料与化工,一志愿广州985,求调剂 +15 qqyyaill 2026-03-05 15/750 2026-03-10 08:23 by Linda Hu
[考研] 求调剂 +3 鹤遨予卿 2026-03-09 3/150 2026-03-09 17:32 by houyaoxu
[考研] 085701环境工程专硕求调剂 +5 幼稚园大班打手 2026-03-08 5/250 2026-03-09 07:07 by houyaoxu
[考研] 288求调剂085600材料与化工 +13 Daunrin 2026-03-07 15/750 2026-03-08 19:10 by 加号+
[考研] 招调剂 +20 帆船哥 2026-03-04 23/1150 2026-03-08 16:25 by taycat
[考研] 303求调剂 +8 forgman95 2026-03-05 10/500 2026-03-08 12:41 by 蓝莓都给你
[考研] 085701环境工程专业,初试305,均过国家A区线 +7 卡卡来了@ 2026-03-07 8/400 2026-03-08 06:40 by 刘兵
[考研] 346分材料求调剂 +5 snow_反季节版 2026-03-07 5/250 2026-03-07 22:40 by Leeding1356
[考研] 334求调剂 +6 Trying] 2026-03-05 8/400 2026-03-06 00:16 by wutongshun
[考研] 307求调剂 +4 xuyuan111 2026-03-04 5/250 2026-03-04 20:39 by kakakapanpan
信息提示
请填处理意见