search for: aasho2

...sho.1,digits=4) now we try a vector approach k<-4 # niv data2<-list(x=x,y=y,z=z,n=n,C=C,k=k) inits2<-function(){ list(a=runif(k),sigma.y=runif(1))} params2<-c("a","sigma.y") ## now the bugs call for model 2 proc.time() aasho.2<-bugs(data2,inits2,params2,"aasho2.bug",n.iter=10000,debug=FALSE) proc.time() print(aasho.2,digits=6) ------------------------ Philip A. Viton City Planning, Ohio State University 275 West Woodruff Avenue, Columbus OH 43210 viton.1 at osu.edu