Displaying 3 results from an estimated 3 matches for "lweight".
Did you mean:
weight
2013 Jan 03
1
R2OpenBUGS question with differential equations
...is run through R2OpenBUGS and OpenBUGS that generates excelent results (to be able to run this code OpenBUGS installed, also please note this is only an example, I really need to reproduce the ideas from above using the bayesian approach):
library(R2OpenBUGS)
D <-400
tin <-1
VDPRE <-0.5
LWEIGHT <-68
CRCL <-60
tau <-12
T <-2
ts <-c(2,8)
c <-c(15,6)
mfsssc <- function() {
for (i in 1:1) {
for (j in 1:T) {
c[j]~dnorm(mu[j],100)
mu[j]<-((D/tin)*(1/cl))*(((1-exp(-(cl/v)*tin))*exp(-(cl/v)*(ts[j])))/(1-exp(-(c...
2005 Feb 11
1
Help concerning Lasso::l1ce
Hi,
First, when I try the example Prostate with bound 0.44
(as in the manual), I got a different result:
> l1c.P <- l1ce(lpsa ~ ., Prostate, bound=0.44)
> l1c.P
....
Coefficients:
(Intercept) lcavol lweight age
lbph svi
1.0435803 0.4740831 0.1953156 0.0000000
0.0000000 0.3758199
lcp gleason pgg45
0.0000000 0.0000000 0.0000000
The relative L1 bound was : 0.44
The absolute L1 bound was : 0.8113534
The Lagrangian for the bound is: 17....
2011 Jun 24
0
lag and diff with transformBy
...onfirm that
it's appropriate use. Thank you very much.
Best regards,
Michael
options(width=140)
library(doBy)
data(dietox)
dietox.ordered <- orderBy(~Evit+Cu+Litter+Time, data=dietox)
dietox.difference <- transformBy(~Evit+Cu+Litter, data=dietox.ordered,
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?lWeight=c(NA,lag(Weight,1)),
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?l4Weight=c(NA,NA,NA,NA,lag(Weight,4)),
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?dWeight=c(NA,diff(Weight,1)),
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?d2Weight=c(NA,NA,diff(Weight,2)),
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?dFeed=c(NA,diff(Feed,1))
? ? ? ? ? ? ? ? ?...