2017-07-21 40 views

回答

0

我無法訪問rnn軟件包,因爲它有一些錯誤報告 https://cran.r-project.org/web/packages/rnn/index.html頁面。我建議你試試這個。

library(binaryLogic) 
as.binary(8) ///[1] 1 0 0 0 
as.intfrombinary <- function(x) { 
returnvalue<- 
sum(2^(which(rev(unlist(strsplit(as.character(x), "")) == 1))-1)) 
return(returnvalue) 
} 
as.intfrombinary(as.binary(8)) ///[1] 8 
+0

謝謝。它確實有幫助。它給了我根據自己的需要創建自己的功能的想法。 –

+0

接受plz的答案 –

相關問題