[問題] 兩兩配對的問題

看板R_Language作者 (shanon)時間11年前 (2014/01/09 12:10), 編輯推噓2(206)
留言8則, 3人參與, 最新討論串1/1
問題: 當你想要問問題時,請使用這個類別 [問題類型]: 程式諮詢(我想用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("","")裡面呢? 如果有發問不當還請各位多多指教 感激不盡! [程式範例]: -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.147.133

01/09 13:02, , 1F
try `combn`, use it with loop
01/09 13:02, 1F

01/09 13:30, , 2F
X <- c("a","b",...); # vector of words
01/09 13:30, 2F

01/09 13:30, , 3F
IDX <- combn(50,2); score <- rep(0,ncol(IDX));
01/09 13:30, 3F

01/09 13:30, , 4F
for(i in 1:ncol(IDX)){
01/09 13:30, 4F

01/09 13:31, , 5F
score[i] <- cosine(X[IDX[1,i]],X[IDX[2,i]]) }
01/09 13:31, 5F

01/09 13:31, , 6F
should work!! ^^
01/09 13:31, 6F

01/09 13:46, , 7F
It works!!!!Thank you so much!!!!!
01/09 13:46, 7F

01/09 13:48, , 8F
好好來筆記combn!
01/09 13:48, 8F
文章代碼(AID): #1IpY4ecm (R_Language)
文章代碼(AID): #1IpY4ecm (R_Language)