| 查看: 952 | 回复: 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 ] |
回复此楼» 猜你喜欢
自己找博士可真难啊
已经有21人回复
-
化工，材料，环境，生物与医药专业研究生调剂
已经有4人回复
-
机械哪个期刊好中
已经有11人回复
-
多所高校已采取教师退出机制或教师末位淘汰机制。大家怎么看？
已经有12人回复
-
[吃瓜]网传江苏某高校人事处处长被打
已经有4人回复
-
Sci新颖性
已经有3人回复
-
电子科技大学光电探测与传感研究团队研究生招生（接收调剂）
已经有6人回复
-
纠结退学ing
已经有45人回复
-
是博后，有国自然青年基金，省青年基金，文章5篇左右，能找到个什么样的岗位
已经有6人回复
-
想找一位年轻的985博导
已经有15人回复
» 抢金币啦！回帖就可以得到:
-
希望项目能够中中中中中中中中
+5/867
-
祈福投稿顺利
+3/348
-
300求调剂 从事生物行业多年 目前在上海交大做科研助理
+1/177
-
上海交通大学-潘林枫课题组-诚聘2025博士/博士后/科研助理
+3/174
-
武汉纺织大学先进纺织技术与复合材料团队招聘老师
+1/81
-
上海交大张万斌教授课题组招聘科研助理（博士候选人）
+1/78
-
中医药广东实验室诚聘天然药物化学、中药化学、分析化学等专业背景各层次人才
+1/34
-
坐标郑州，诚征女友
+2/30
-
华中科技大学崔新光课题组2025年招聘师资博士后
+1/25
-
成会明院士团队招收钙钛矿光伏/探测器/人工智能方向的博士生/博士后/研究助理教授
+1/23
-
上海交通大学-杨寄课题组-诚聘3名博士后(招聘长期有效)
+3/22
-
浙江大学化工学院潘鹏举教授诚招博士后2~3名
+1/18
-
复旦大学光科系王丹青课题组诚聘博士后/科研助理/研究生
+1/12
-
上海交通大学海外优青团队 招收 工程计算方向博士后
+1/10
-
巴黎萨克雷大学-Jerome课题组2025年招收csc学生。
+1/9
-
澳洲杰青土木方向全奖博士招聘
+1/6
-
郑州大学物理学院储能团队诚聘青年教师与博士后
+1/5
-
EIS求解锂离子扩散系数
+1/3
-
天津大学浙江研究院（宁波）诚聘有机/高分子方向博士后
+1/2
-
SCI投稿
+1/1
+5/867
18楼2020-04-20 15:43:23
