24小时热门版块排行榜    

查看: 1184  |  回复: 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的回帖

寒山听雪

铁虫 (小有名气)


欢迎各位继续使用,目前发布一年多
18楼2020-04-20 15:43:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 19 个回答
简单回复
wxw082511楼
2019-04-28 21:11   回复  
寒山听雪(金币+1): 谢谢参与
发自小木虫Android客户端
xhmaohan8楼
2019-04-27 03:49   回复  
寒山听雪(金币+1): 谢谢参与
发自小木虫Android客户端
erjianxin9楼
2019-04-27 07:32   回复  
寒山听雪(金币+1): 谢谢参与
祝福 发自小木虫Android客户端
2019-04-26 10:00   回复  
寒山听雪(金币+1): 谢谢参与
发自小木虫IOS客户端
liubq0812楼
2019-04-28 21:46   回复  
寒山听雪(金币+1): 谢谢参与
1 发自小木虫IOS客户端
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0857 资源与环境 285分 +3 未名考生 2026-03-09 3/150 2026-03-10 23:25 by rock_sdust
[考研] 327求调剂 +3 Ffff03 2026-03-10 3/150 2026-03-10 22:30 by macy2011
[考研] 一志愿211,0860总分286食品工程专业求调剂 +8 林林Winnie 2026-03-05 8/400 2026-03-10 18:44 by 清风月
[考研] 308求调剂 +4 是Lupa啊 2026-03-08 7/350 2026-03-10 18:25 by 清风月
[考研] 0703求调剂 +3 jtyq001 2026-03-10 3/150 2026-03-10 16:45 by ztnimte
[考研] 一志愿湖师大化学289求调剂 +5 XMCMM3.14159 2026-03-10 5/250 2026-03-10 15:41 by shangxh
[考研] 0856材料与化工309分求调剂 +4 ZyZy…… 2026-03-10 4/200 2026-03-10 15:20 by houyaoxu
[考研] 一志愿东北大学080500,英一数二343分求调剂 +8 Seele_v5 2026-03-04 8/400 2026-03-10 14:51 by ruiyingmiao
[考博] 求材料读博院校 +9 yanglei131 2026-03-08 9/450 2026-03-10 11:54 by 天道酬勤2026686
[考研] 复试调剂 +6 呼呼?~+123456 2026-03-08 8/400 2026-03-10 11:36 by 呼呼?~+123456
[考研] 0703化学调剂 +7 小奶苍 2026-03-07 7/350 2026-03-10 05:17 by anny19840123
[硕博家园] 2026级硕士研究生招生/调剂 +3 知足常乐的乐 2026-03-06 5/250 2026-03-09 20:56 by 木瓜膏
[考研] 求调剂,数一英一274分 +4 小菲会努力 2026-03-08 4/200 2026-03-09 12:40 by 一定上岸哟_
[考研] 337求调剂 +3 睡醒,。 2026-03-09 3/150 2026-03-09 10:02 by 求调剂zz
[考研] 求调剂,一志愿华中科大0702,数一英一,293 +4 小罗露一二 2026-03-07 4/200 2026-03-08 16:36 by 星空星月
[考研] 一志愿211 085600 280数二英二求调剂 +3 月山斜 2026-03-06 3/150 2026-03-07 18:56 by houyaoxu
[考研] 材料工程调剂 +6 zbcm_zbcm 2026-03-05 6/300 2026-03-06 15:36 by @飒飒飒飒
[考研] 不限学校专业的调剂同学看过来 +5 啊摆啊摆 2026-03-05 9/450 2026-03-06 12:06 by 啊摆啊摆
[考研] 328求调剂 +6 vuzhdkfjkx 2026-03-04 7/350 2026-03-05 23:28 by Leeding1356
[考研] 求材料调剂 +4 berdmond 2026-03-05 4/200 2026-03-05 19:45 by 黑衣馒头人
信息提示
请填处理意见