R语言编程练习【1】

R语言编程练习【1】

---

题目

• 1.编写程序计算 h(x,n)=1+x+x^2+……+x^n.

• 2.对一个向量x中的三的倍数的元素求和。

• 3.编写一个程序，计算向量x中的最小值。

• 4.编写n中选r的组合函数。

---

代码

#1.编写程序计算 h(x,n)=1+x+x^2+……+x^n
x.n <- function(x,n=3){
  h <- 0
  for(i in 0:n){
   h <- h+x^i
  }
  return(h)
}
x.n(x=5,n=10)

#2.对一个向量x中的三的倍数的元素求和
x.3.n <- function(x){
  y<-0
  for(i in 1:length(x)){
    if(x[i]%%3 == 0){
      y <- y+x[i]
    }
  }
  return(y)
}
x.3.n(1:20)

#3.编写一个程序，计算向量x中的最小值。
x.min <- function(x){
 a<-x[i]
 for(i in 1:length(x)){
  if(a>x[i]){
   a<-x[i] 
  }
 }
 print(data.frame(a=a,b='Please input next vector x'))
}
x<-c(6,7,10,4,2,7,8,5,2,10)
x.min(x)

#4.编写n中选r的组合函数。
n.r <- function(n,r){
  a <- prod(2:n)/prod(2:(n-r))/prod(2:r)
  return(a)
}
n.r(6,4)