字体:  

R的一个小程序

lihuichao 发表于: 2009-8-23 20:32 来源: 雾霾大数据

fun<-function(x)
   {
     y<-c("you need to input a positive number")
      if (x<=0) return(y)
      else if(x%%2==0) return(x/2)
      else if(x!=1) return(3*x+1)
     
    }
如果输入的是偶数就除以2,如果是奇数就乘以3后加1