demo<- function(n){ test<- 1:n for(i in length(test)){ test[i]=log(test[i]) } return(test) }
用cmpfun函數把它轉成位元碼
> democmp<- compiler::cmpfun(demo)
先來做個十萬筆來比較看看有沒有變快
> system.time(a<- demo(100000)) user system elapsed 0.142 0.000 0.140 > system.time(a<- democmp(100000)) user system elapsed 0.025 0.000 0.024
現在我們把處裡的資料從十萬筆慢慢拉大到一百萬試試看!
經過
沒有留言:
張貼留言