Displaying 2 results from an estimated 2 matches for "lambda_v".
Did you mean:
lambda_1
2011 Apr 28
1
DLSODA error
....40, 3.50, 3.58, 3.55, 3.70, 3.90, 3.77)
c10 <- c(4.39, 4.22, 4.27, 4.21, 4.25, 4.34, 4.47, 4.40, 4.46, 4.64, 4.73,
4.60, 4.87, 4.96, 5.09, 5.10, 5.08, 5.26, 5.54, 5.37)
T = 20
#definining -log-likelihood function
minusloglik <- function(K_vv, K_rv, K_rr, theta_v, theta_r, Sigma_rv,
Sigma_rr, lambda_v, lambda_r){
# #solving ODEs as functions of "parameters"
parameters <- c(K_vv,
K_rv,
K_rr,
theta_v,
theta_r,
Sigma_rv,
Sigma_rr,
lambda_v,...
2011 Mar 31
0
dfsane arguments
...set to default?
parameters <- c(K_vv = 0.0047,
K_rv = -0.0268,
K_rr = 0.3384,
theta_v = 107.4039,
theta_r = 5.68,
Sigma_rv= 0.0436,
Sigma_rr= 0.1145,
lambda_v= 0,
lambda_r= -0.0764
)
state <- c(b_1 = 0,
b_2 = 0,
a = 0)
Kristian <- function(t, state, parameters){
with(as.list(c(state, parameters)),{
db_1 =
-((K_vv+lambda_v)*b_1+(K_rv+Sigma_rv*lambda_v+Sigma_rr*lambda_r)*b_2+0....