seq(from = 1, to = 100, length.out = 10)#等差数列 tmp <-rep(2, 5)#重复数列 print(tmp) rep(x, 5) rep(x, each = 5) rep(x, each = 5, times = 2) x <-c(1, 2, 3, 4) y <-c(2, 2, 2, 2) x*2+y x[x>3]...