R语言【优化】

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

初学R语言，自己练习时做了一段10进制转换2-9进制的练习，但写的总觉得有些冗长，希望各位大神能多提出些修改意见，这样进步的快一些
------------------------------------------------------------------------------------------------------------------------------------------

SYS函数中x为10进制数据，n为要转换的进制(二至九进制均可），如：10000转换为8进制

输入SYS(10000,8)
by the way~ 用options(scipen=200)改变科学计数法

SYS<-function(x,n){
    if(n>10){
        print("error")  ##不知道大于10进制该如何计算，故在此做出去判断，不计算10进制以上数值
    }else{
        z<-1000  ##z这个数值本应有更高级的办法推算出来，但本人数学较差，不知道如何测算——
                 ##——多少个数可以除余数值，故在此设测算次数为1000，后面将小于等于零的数值删去
        a<-floor(x/n)  ##a为数值对应的整除数
        for(i in 1:z){
            a[i+1]<-floor(a[i]/n)
        }           ##for loop函数 在a中加入每一个整除数
        a1<-a[a>0]  ##因为前面要求计算1000次，整除中有效数据一定大于零，故在此删去小于零的数据
        b<-x%%n     ##b的初始值设为第一个数据的除余（原理参照进制转换方式）
        z1<-length(a1)-1  ##z1是除余计算次数，这次可以通过计算a1的长度并减去1得出。
        for(i in 1:z1){
             b[i+1]<-a1[i]%%n
        }           ##求出每个对应位置的余数
        b[length(b)+1]<-a1[length(a1)]
         ##向量c的第一位设置为1，下面计算中需要将10的c次方
        c<-1
        for(i in 1:(length(b)-1)){
            c[i+1]<-10^i
        }  
    }
    print(sum(c*b)) ##两个向量相称并相加，就可以得出一个对应数值
    print(a1)
    print(b)
    print(c)
}


为了方便理解输出是 我将每一步中的“整除”、“除余”及“将各除余数的位置”输出
数据中输出的第一个值，即是转化结果：

八进制
SYS(1000,8)
## [1] 1750
## [1] 125  15   1
## [1] 0 5 7 1
## [1]    1   10  100 1000

七进制
SYS(1000,7)
## [1] 2626
## [1] 142  20   2
## [1] 6 2 6 2
## [1]    1   10  100 1000

二进制
SYS(1000,2)
## [1] 1111101000
## [1] 500 250 125  62  31  15   7   3   1
##  [1] 0 0 0 1 0 1 1 1 1 1
##  [1] 1e+00 1e+01 1e+02 1e+03 1e+04 1e+05 1e+06 1e+07 1e+08 1e+09

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 options Option Error tions error 如何

for(i in 1:z) {
  a[i+1]<-floor(a[i]/n)
}
=======
直接使用：a <- floor(a / n)  不需要for-loop  向量化代码
   

f = function(n, k = 2) {
  if (k > 9) stop("")
  if (n == 0) return("0")
  if (n < 0) return(paste0("-", f(-n, k)))
  do.call(paste0, as.list(floor(n / k^((ceiling(log(n, k)):1-1))) %% k))
}

prunusis 发表于 2016-7-9 06:03
f = function(n, k = 2) {
  if (k > 9) stop("")
  if (n == 0) return("0")

感谢 感谢~~~

bbslover 发表于 2016-7-8 21:33
for(i in 1:z) {
  a

感谢 感谢~~~{:3_62:}