第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

如何將向量分成規(guī)則的連續(xù)序列組?

如何將向量分成規(guī)則的連續(xù)序列組?

婷婷同學(xué)_ 2019-12-04 15:02:28
我有一個(gè)向量,例如c(1, 3, 4, 5, 9, 10, 17, 29, 30)和我想將“鄰居”元素組合在一起,這些元素在一個(gè)衣衫agged的向量中形成一個(gè)規(guī)則的連續(xù)序列,結(jié)果是:L1:1L2:3,4,5L3:9,10L4:17L5:29,30(前C程序員的)天真代碼:partition.neighbors <- function(v){    result <<- list() #jagged array    currentList <<- v[1] #current series    for(i in 2:length(v))    {        if(v[i] - v [i-1] == 1)        {            currentList <<- c(currentList, v[i])        }        else        {            result <<- c(result, list(currentList))            currentList <<- v[i] #next series        }           }    return(result)  }現(xiàn)在我知道a)R不是C(盡管花括號(hào))b)全局變量是純邪惡c)這是獲得結(jié)果的極其無效的方法,因此歡迎任何更好的解決方案。
查看完整描述

3 回答

?
溫溫醬

TA貢獻(xiàn)1752條經(jīng)驗(yàn) 獲得超4個(gè)贊

大量使用一些R慣用法:


> split(v, cumsum(c(1, diff(v) != 1)))

$`1`

[1] 1


$`2`

[1] 3 4 5


$`3`

[1]  9 10


$`4`

[1] 17


$`5`

[1] 29 30


查看完整回答
反對(duì) 回復(fù) 2019-12-04
?
元芳怎么了

TA貢獻(xiàn)1798條經(jīng)驗(yàn) 獲得超7個(gè)贊

約書亞(Joshua)和亞倫(Aaron)在現(xiàn)場(chǎng)。但是,通過謹(jǐn)慎使用正確的類型,整數(shù)和邏輯,它們的代碼仍然可以達(dá)到兩倍以上的速度:


split(v, cumsum(c(TRUE, diff(v) != 1L)))


v <- rep(c(1:5, 19), len = 1e6) # Huge vector...

system.time( split(v, cumsum(c(1, diff(v) != 1))) ) # Joshua's code

# user  system elapsed 

#   2.64    0.00    2.64 


system.time( split(v, cumsum(c(TRUE, diff(v) != 1L))) ) # Modified code

# user  system elapsed 

# 1.09    0.00    1.12 


查看完整回答
反對(duì) 回復(fù) 2019-12-04
  • 3 回答
  • 0 關(guān)注
  • 645 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)