Displaying 1 result from an estimated 1 matches for "spgoutput".
Did you mean:
ip_output
2011 Sep 02
1
Using capture.output within a function
...to T evaluated at each delta seq(t, T,
by = delta)
times <- seq(0, 10, by = 0.5)
outmat <- ode(y = state, times = times, func = Kristian, parms = w)
print(w)
print(outmat)
.
.
.
f<-rep(NA, 1)
f[1] <- 1/(T-1)*sum(log(pJ$p)-log(pJ$J))
f
capture.output(outmat, file = "spgoutput.txt", append = TRUE)
}
fit <- spg(fn =loglik, ...)
[[alternative HTML version deleted]]