История изменений
Исправление psv1967, (текущая версия) :
надо прощее писать :)
sapply(1:(length(ivec)-1), function(x) ivec[x+1] - ivec[x])или как то так
vmyfun<-Vectorize(myfun) vmyfun(ivec[-1], ivec[-length(ivec)])
Принудительная векторизация понятно дело необходимое только когда исходная функция не понимает векторные аргументы
Исправление psv1967, :
надо прощее писать :)
sapply(1:(length(ivec)-1), function(x) ivec[x+1] - ivec[x])или как то так
vmyfun<-Vectorize(myfun) vmyfun(ivec[-1], ivec[-length(ivec)])
Исходная версия psv1967, :
надо прощее писать :)
sapply(1:(length(ivec)-1), function(x) ivec[x+1] - ivec[x])
или как то так
vmyfun<-Vectorize(myfun) vmyfun(ivec[-1], ivec[-length(ivec)])