24小时热门版块排行榜    

查看: 1185  |  回复: 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   回复  
相关版块跳转 我要订阅楼主 寒山听雪 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 313求调剂 +4 一朵人头 2026-03-04 4/200 2026-03-10 23:05 by Equinoxhua
[考研] 材料工程085601调剂求老师收留 +7 强木木木 2026-03-07 8/400 2026-03-10 22:43 by 剑诗杜康
[考研] 调剂 +5 呵唔哦豁 2026-03-10 5/250 2026-03-10 22:00 by 28375m
[考研] 0856材料与化工353分求调剂 +11 NIFFFfff 2026-03-09 11/550 2026-03-10 18:36 by suyuanhai
[考研] 2026考研求调剂-材料类-本科211一志愿985-初试301分 +10 虫友233 2026-03-07 10/500 2026-03-10 17:10 by Demonsssss
[考研] 328,0703考生求调剂,一志愿为东北师范大学 +3 观素律 2026-03-09 4/200 2026-03-10 15:58 by houyaoxu
[考研] 物理学求调剂 +4 sx宋 2026-03-05 4/200 2026-03-10 11:11 by changlu999
[考研] 求调剂 +3 鹤遨予卿 2026-03-09 3/150 2026-03-09 17:32 by houyaoxu
[考研] 0832食品科学与工程293调剂 +3 东东不東 2026-03-07 3/150 2026-03-09 15:58 by ls_13456
[考研] 一志愿211 材料与化工 280求调剂 +3 Sanity蒋 2026-03-08 3/150 2026-03-09 06:35 by houyaoxu
[考研] 297求调剂 +3 胡达灵 2026-03-05 5/250 2026-03-08 23:13 by 清风月
[考研] 269求调剂 +3 朔朔话 2026-03-08 4/200 2026-03-08 20:39 by 热情沙漠
[考研] 085701环境工程专业,初试305,均过国家A区线 +7 卡卡来了@ 2026-03-07 8/400 2026-03-08 06:40 by 刘兵
[考研] 070300化学求调剂292分 +3 打烊eee 2026-03-07 3/150 2026-03-07 20:04 by houyaoxu
[考研] 材料与化工304求B区调剂 +4 邱gl 2026-03-06 4/200 2026-03-06 15:51 by 聪明的大松鼠
[考研] 材料与化工304求调剂 +7 邱gl 2026-03-05 10/500 2026-03-06 01:11 by 卷柏卷柏
[考研] 328求调剂 +6 vuzhdkfjkx 2026-03-04 7/350 2026-03-05 23:28 by Leeding1356
[考研] 304求调剂 +4 曼殊2266 2026-03-05 4/200 2026-03-05 17:10 by zhukairuo
[考研] 304求调剂 +3 曼殊2266 2026-03-04 3/150 2026-03-05 10:39 by Iveryant
[考研] 一志愿西交化工专硕288专业课93求调剂 +6 好运好运接接 2026-03-04 6/300 2026-03-05 09:36 by houyaoxu
信息提示
请填处理意见