[问题] 两两配对的问题

楼主: tezukaprince (shanon)   2014-01-09 12:10:14
问题: 当你想要问问题时,请使用这个类别
[问题类型]:
程式咨询(我想用R 做某件事情,但是我不知道要怎么用R 写出x来)
[软件熟悉度]:
新手(没写过程式,R 是我的第一次)
[问题叙述]:
因为是极度新手,所以如果发问不够清楚还请大家包涵m(_ _)m
我现在在使用一个套件叫做lsa 可以帮我算出两个词汇之间的语意关系
(btw我是语言所的研究生 平常会用R处理语料)
这个套件里面有一个function就是 cosine("a","b")
把两个character喂进去 例如 cosine("棒球","教练")
他就可以从语料库中计算出这两个词汇的语意距离
我的问题是 我现在总共有五十个字放在一个vector里面
我需要得到这五十个字两两一组的cosine值 算出它们的平均
(假如只有 a,b,c三个字 我需要 cosine ("a","b"),cosine("b","c"),
和cosine("a","c")的值)
该如何用loop 帮我自动两两配对喂进去 cosine("","")里面呢?
如果有发问不当还请各位多多指教 感激不尽!
[程式范例]:
作者: Wush978 (拒看低质媒体)   2014-01-09 13:02:00
try `combn`, use it with loop
作者: koai (可笑的自以为...)   2014-01-09 13:30:00
X <- c("a","b",...); # vector of wordsIDX <- combn(50,2); score <- rep(0,ncol(IDX));for(i in 1:ncol(IDX)){score[i] <- cosine(X[IDX[1,i]],X[IDX[2,i]]) }should work!! ^^
楼主: tezukaprince (shanon)   2014-01-09 13:46:00
It works!!!!Thank you so much!!!!!好好来笔记combn!

Links booklink

Contact Us: admin [ a t ] ucptt.com