怎样在R语言中输入1到100所有奇数

Python019

怎样在R语言中输入1到100所有奇数,第1张

public static void main(String[] args) {System.out.println("100以内所以的奇数为：")for (int i = 0i <100i++) {if ( i % 2 != 0) {System.out.print( i + "\t")}}}

#1.如果总体是自然数这样的等差数列，可以直接利用seq函数挑出奇数（或偶数）：

n <- 1:100

( ji <- seq(from=1,to=100,by=2) )

( ou <- setdiff(n,ji) )

rm(ji)rm(ou)

#2.如果总体是杂乱无章的集合，可以写个小函数判断某个数的奇偶：

jishu <- function(x){

ifelse(x%%2 ==0,F,T)

}

( ji <- n[jishu(n)] )

( ou <- n[!jishu(n)] )

#通过上面的任一一种方法将总体的奇数偶数区分开，接下来就可以使用sample函数抽样了：

sample(ji,5)

md<-function(i)

{

if(i%%2==0)

{a=c("偶数")}

else if(i%%2==1)

{a=c("奇数")}

else

{a=c("非整数")}

print(a)

}