1、第一步，调用runif()函数，这时函数内的值为6，生成6个随机数，如下图所示：
2、第二步，再次调用runif()函数，runif(6)又生成6个随机数，如下图所示：
3、第三步，使用set.seed(12345)设置种子元素，然后调用runif(6)，查看数据情况，如下图所示：
4、第四步，再次调用set.seed()函数，这时多加了一个6，如下图所示：
5、第五步，再次调用runif(6)函数，查看生成的6个随机数的不同，如下图所示：
6、第六步，再次调用set.seed()函数，这时是从1到9；然后调用runif()函数，如下图所示：
先说简单的，有一个叫strtoi()的函数
# 如果直接写> strtoi("111")
[1] 111
# 如果加base = 2，就是告诉R要换成十进制
> strtoi("111", base = 2)
[1] 7
反过来就有些麻烦，R自带intToBits()函数，但效果不好，要自己调整
> intToBits(12)[1] 00 00 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
[25] 00 00 00 00 00 00 00 00
12换成二进制是1100，上面答案实际上是反过来读，三四位是11，其余都是0.
paste(rev(as.integer(intToBits(12))), collapse="")[1] "00000000000000000000000000001100"
1)set.seed(1)n=5000gender=sample(c("f","m"),size=n,TRUE)dechot=function(gender,type){n=length(gender)list=c(NA,n)for(iin1:n){list[i]=switch(gender[i],"f"=type[1],"m"=type[2])}return(list)}type=
