seq () с несколькими приращениями - PullRequest
0 голосов
/ 19 ноября 2018

Я бы хотел создать последовательность с тремя разными вариантами. С 6 до 15 например прирост 0,7. Следующая последовательность должна начинаться с последнего номера предыдущей последовательности (в данном случае 14.4). Этим я хочу смоделировать прирост диаметра дерева в зависимости от класса диаметра (малый 6-14,99; средний 15 - 29,99; большой> 30).

    dbh <- c(seq(from = 6, to = 15, by = temp$DBH_growth[temp$dbh_class == "sma"]),
     seq(from = 15, to = 30, by = temp$DBH_growth[temp$dbh_class == "med"]),
     seq(from = 30, to = 300, by = temp$DBH_growth[temp$dbh_class == "big"]))    

Как и в этом коде, но начиная с последнего номера последовательности перед.

1 Ответ

0 голосов
/ 19 ноября 2018

Примерно так:

sma <- seq(6, 15, .7)
med <- seq(max(sma), 30, 1)
lar <- seq(max(med), 300, 1.4)
dbh <- c(sma, med, lar)

Предположим, что .7,1,1.4 - это приращения для малого, среднего, большого соответственно или в вашем случае

sma <- seq(6, 15, temp$DBH_growth[temp$dbh_class == "sma"])
med <- seq(max(sma), 30, temp$DBH_growth[temp$dbh_class == "med"])
lar <- seq(max(med), 300, temp$DBH_growth[temp$dbh_class == "big"])

dbh <- c(sma, med, lar)
...