Question

我有2个给定的向量x, y，每个长度为10，我想创建第3个向量z，它们将它们组合起来：

z<-(sin(y1)/cos(x2),...,sin(y(n-1)/cos(x(n)) ) # with a length of 9.

我试过这么做：

z<-(sin(y)/cos(x))

但我不能摆脱向量z中的第10个元素我正在使用r，有什么建议吗？

跟进

下一个任务是查找z的哪些元素包含来自x的{{1}}元素。给定的载体是

x < 0.1

Answer 1

第一个问题。简单的循环：

x <- c(1,2,3,4,5,6,7,8,9,10)
y <- c(3,4,5,6,7,8,9,10, 11, 12)
z <- c()
for(i in 1:(length(x)-1)){
  z <- c(z, sin(x[i])/cos(y[i+1]))
}

第二个，就我理解的问题而言：

x <- seq(from=0.2, to=0.02 , by= -0.02) 
y <- c(seq(from=0.02, to=0.1 , by=0.02), seq(from=0.08, to=0.00 , by= -0.02))

z <- c()
for(i in 1:(length(x)-1)){
  z <- c(z, sin(x[i])/cos(y[i+1]))
}
which(z<0.1) # gets their position
z[which(z<0.1)] # gets their value

减去矢量组合的第n个元素

1 个答案: