Displaying 1 result from an estimated 1 matches for "2008_difftherm".
2013 Mar 28
3
problem with plots with short example.
...1: opts
###################################################
options(useFancyQuotes=F)
###################################################
### code chunk number 2: data1
###################################################
library(foreign)
therms <- na.omit(read.dta("http://quantoid.net/936/2008_difftherm.dta"))
unstate <- unique(therms[,1])
therms$numstate <- match(therms$state, unstate)
library(runjags)
dat <- dump.format(list(
N = nrow(therms), J=length(unstate),
y = therms$difftherm,
numstate = therms$numstate
))
###################################################
### code c...