±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1214  |  »Ø¸´: 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»¹ÊDZ¾µØ°²×°°ü°²×°

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): лл²ÎÓë
sz_kebaoyuan15Â¥
2019-05-02 22:23   »Ø¸´  
º®É½ÌýÑ©(½ð±Ò+1): лл²ÎÓë
96021316Â¥
wxw082517Â¥
2019-09-02 07:41   »Ø¸´  
hi_world_119Â¥
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ º®É½ÌýÑ© µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 805600ר˶²ÄÁÏÓ뻯¹¤348·ÖÇóµ÷¼Á +6 ÉÏѧÀ²£¡ 2026-04-01 6/300 2026-04-02 07:49 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] ÇóÉúÎïѧµ÷¼Á +8 15172915737 2026-04-01 8/400 2026-04-02 06:49 by ilovexiaobin
[¿¼ÑÐ] 366Çóµ÷¼ÁÒ»Ö¾Ô¸¶«±±´óѧ +3 ÔËÆøÀ´µÃÈôÓÐËÆÎ 2026-04-02 3/150 2026-04-02 06:40 by wxiongid
[¿¼ÑÐ] 08¹¤¿Æ275·ÖÇóµ÷¼Á +13 AaAa7420 2026-03-31 13/650 2026-04-02 06:19 by 286640313
[¿¼ÑÐ] 318Çóµ÷¼Á£¬¼ÆËã²ÄÁÏ·½Ïò +7 Îüß÷Óк¦óÏÃü 2026-04-01 8/400 2026-04-01 23:54 by ÒåÎÄwang
[¿¼ÑÐ] 085600 295·ÖÇóµ÷¼Á +15 W55j 2026-03-30 18/900 2026-04-01 23:00 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] Àíѧ07»¯Ñ§ 303Çóµ÷¼Á +12 î£08 2026-03-27 12/600 2026-04-01 22:36 by Dyhoer
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +11 Ò»ÑùYWY 2026-03-31 11/550 2026-04-01 22:25 by zhouyuwinner
[¿¼ÑÐ] ²ÄÁÏ¿ÆÑ§Ó빤³Ìµ÷¼Á +16 ÉîVËÞÉá°É 2026-03-30 17/850 2026-04-01 21:00 by Àµ´ºÑÞ
[¿¼ÑÐ] 085601²ÄÁϹ¤³ÌÕÒµ÷¼Á +20 oatmealR 2026-03-29 21/1050 2026-04-01 21:00 by lijunpoly
[¿¼ÑÐ] µ÷¼ÁÍÆ¼ö +9 Ç徯714 2026-03-26 10/500 2026-04-01 16:25 by yanflower7133
[¿¼ÑÐ] ¿¼Ñе÷¼Á +11 Amber00 2026-03-31 11/550 2026-04-01 11:32 by wangjy2002
[¿¼ÑÐ] 262Çóµ÷¼Á +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[¿¼ÑÐ] 085600£¬×¨Òµ¿Î»¯¹¤Ô­Àí£¬320·ÖÇóµ÷¼Á +6 ´ó²öС×Ó 2026-03-29 6/300 2026-03-31 10:03 by ÂÈ»¯ÑÇÏõõ£
[¿¼ÑÐ] ¼ª´óÉúÎïѧ326·ÖÇóµ÷¼Á +3 sunnyupup 2026-03-31 3/150 2026-03-31 09:28 by longlotian
[¿¼ÑÐ] 310Çóµ÷¼Á +10 ÕùÈ¡¾Åµã˯ 2026-03-30 10/500 2026-03-30 16:45 by ztnimte
[¿¼ÑÐ] ¿¼Ñе÷¼Á +5 Sanmu-124 2026-03-26 5/250 2026-03-30 13:36 by chemdavid
[¿¼ÑÐ] »·¾³¿ÆÑ§Ó빤³Ì334·ÖÇóµ÷¼Á +6 ÍõÒ»Ò»ÒÀÒÀ 2026-03-30 8/400 2026-03-30 11:52 by yjolah
[¿¼ÑÐ] 11408Èí¼þ¹¤³ÌÇóµ÷¼Á +3 Qiuѧing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[¿¼ÑÐ] 070300»¯Ñ§Çóµ÷¼Á +4 Æð¸öÃûÕ¦ÕâôÄÑ 2026-03-27 4/200 2026-03-27 21:39 by 83503ËïÀÏʦ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û