Применить функцию nls () к нескольким подмножествам

Мне нужно запустить нелинейную регрессию наименьших квадратов для всего набора данных, а затем повторить регрессию для нескольких подмножеств этого набора данных. Я могу сделать это для одного подмножества; например (где y - общее логистическое уравнение, а x - вектор от 1 до 20):

example = nls(x ~ y, subset = c(2:20))

но я хочу сделать это для 3:20, 4:20, 5:20 и т. д. Я пробовал цикл for:

datasubsets <- sapply(2:19, seq, to = 20)
for (i in 1:19){
    example[i] = nls(x ~ y, subset = datasubsets[i])
}

но я получаю сообщение «Ошибка в xj [i]: недопустимый индекс типа 'list'». Я бы очень хотел избежать 20-кратного копирования и вставки nls (). Любая помощь очень ценится.