24小时热门版块排行榜    

查看: 1181  |  回复: 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   回复  
相关版块跳转 我要订阅楼主 寒山听雪 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿山东大学105500药学专硕,总分302求调剂 +5 五维天空 2026-03-04 13/650 2026-03-10 19:02 by 清风月
[考研] 311求调剂 +3 牛乳糖的卡卡 2026-03-10 3/150 2026-03-10 16:19 by 球场大飞机
[基金申请] PDF在线压缩软件 10+3 haxia 2026-03-08 4/200 2026-03-10 13:44 by lfy8008
[考研] 调剂的同学,走过路过,不要错过 +11 likeihood 2026-03-06 16/800 2026-03-10 11:38 by Djdjj12
[考研] 考研一志愿长安大学材料与化工309分请求调剂 +6 dtdxzxx 2026-03-06 8/400 2026-03-10 08:31 by Linda Hu
[考研] 294 英二数二物化 求调剂 +6 米饭团不好吃 2026-03-09 6/300 2026-03-09 23:55 by barlinike
[考研] 070300化学求调剂 +5 扑风铃的猫 2026-03-08 10/500 2026-03-09 13:58 by macy2011
[考研] 337求调剂 +3 睡醒,。 2026-03-09 3/150 2026-03-09 10:02 by 求调剂zz
[考研] 297求调剂 +3 胡达灵 2026-03-05 5/250 2026-03-08 23:13 by 清风月
[考研] 理学287分求调剂 +4 看看我. 2026-03-05 4/200 2026-03-08 22:11 by qingfeng258
[考研] 调剂 +3 13853210211 2026-03-08 3/150 2026-03-08 19:34 by ms629
[考研] 286求调剂 +12 Faune 2026-03-06 14/700 2026-03-08 14:54 by hmn_wj
[考研] 求调剂,不管什么专业,我是可塑造的人才一枚,希望遇到知己老师捞捞我 +4 13102137290 2026-03-06 5/250 2026-03-07 21:21 by lissomchan
[考研] 一志愿中石油,化学工程,301求调剂 +4 豚馒枳枳 2026-03-04 4/200 2026-03-06 22:15 by 星空星月
[考研] 考研282分求调剂,接受跨专业 +4 刘淄博 2026-03-04 7/350 2026-03-05 22:56 by 刘淄博
[考研] 274求调剂 +9 一个学习者 2026-03-04 9/450 2026-03-05 20:56 by 黑衣馒头人
[考研] 271求调剂 +7 月色c 2026-03-05 8/400 2026-03-05 19:51 by wangjihu
[考研] 376求调剂 +3 王浩然sam 2026-03-04 3/150 2026-03-05 07:48 by bxbo
[考研] 一志愿985材料与化工 326分求调剂 +3 Hz795795 2026-03-04 3/150 2026-03-04 20:54 by wutongshun
[考研] 0703化学求调剂,总分320分,一志愿中南民族大学 +3 19286712440 2026-03-04 3/150 2026-03-04 18:30 by houyaoxu
信息提示
请填处理意见