Ошибка в eval (substitute (expr), data, enclos = parent.frame ()): аргумент отсутствует, по умолчанию в R нет - PullRequest
Новая
       18

Ошибка в eval (substitute (expr), data, enclos = parent.frame ()): аргумент отсутствует, по умолчанию в R нет

0 голосов
/ 25 июня 2019

Я сейчас работаю над проектом моделирования и столкнулся с этой ошибкой при запуске моего кода. Я работаю с R и пока не слишком знаком с языком, так как только что выучил его. Я использую пакеты deSolve и FME в R.

Я изменил несколько объектов на числовые, как я столкнулся с этой проблемой ранее. Я изменил свой код с предыдущей модели, которую я создал. 

my_data <- read_excel("PVL Data.xlsx")

RQc19 <- read_excel("PVL Data.xlsx", range = cell_cols("A:B"))

plot(RQc19, log = "y")

DataLogV <- as.matrix(RQc19)

dv0 <- RQc19[2,2]-RQc19[1,2]

HIV <- function (pars, V_0 = RQc19[1,2], dV_0 = dv0, T_0 = 4*10^11) 
{
  I_0 <- with(as.list(as.numeric(pars), (dV_0 + c * V_0) / (n * delt)))
  y <- c(T = as.numeric(T_0), I = I_0, V = as.numeric(V_0))
  times <- c(as.numeric(RQc19[,1]))
  sol <- ode(y = y, parms = pars, times = times, func = "derivshiv",
             initfunc = "inithiv", nout = 1, outnames = "logV", dllname = "FME")

  as.data.frame(sol)
}

pars <- c(bet = exp(-5.3), rho = exp(-0.96), delt = 0.55, c = exp(3.8), lam = exp(2.47), n = 900)

sol <- HIV(pars=pars)

Это должно решить системы дифференциальных уравнений с использованием deSolve и затем предоставить данные обратно как "sol". Программа использует оценочные параметры и начальные условия из данных. Тем не менее код возвращает ошибку «Ошибка в eval (подставить (expr), data, enclos = parent.frame ()): аргумент отсутствует, по умолчанию нет»

...