window title="Linear Regression"
grid 1 6 sticky=W
  label text=View: font=bold
  button text=Docs func=openFile action=LinRegDoc.txt
  button text=Model func=openFile action=LinRegMod.txt
  button text=Data func=openFile action=LinRegDat.txt
  button text="R Code" func=openFile action=LinReg.r
  button text=Window func=openFile action=LinRegWin.txt

grid 3 1 toptitle="Choose Example" topfont=bold sticky=W

   grid 1 5 sticky=W sidetitle="Data Sets" sidefont="bold 10"
      radio name=dset text="sim"      padx=5 mode=character value=sim      func=pairsLR
      radio name=dset text="cars"     padx=5 mode=character value=cars     func=pairsLR
      radio name=dset text="trees"    padx=5 mode=character value=trees    func=pairsLR
      radio name=dset text="swiss"    padx=5 mode=character value=swiss    func=pairsLR
      radio name=dset text="attitude" padx=5 mode=character value=attitude func=pairsLR
   grid 1 3 sticky=W
      grid 2 1 sticky=W
         label text=Fields font="bold 10"
         text name=allflds mode=character height=9 width=20 edit=FALSE bg="white"
      grid 2 1 sticky=W
         label text=Choose font="bold 10" sticky=E padx=5
         vector names="xfld yfld plev" labels="X Y 'p-level'" values="1 2 0.95" \
           vertical=T width=5 padx=5
      grid 2 1 sticky=W
         label text=Sim font="bold 10" sticky=E padx=8
         vector names="nsim asim bsim ssim xmin xmax" labels="N a b sigma Xmin Xmax" \
            values="15 0 1 2 0 10" vertical=T width=5 padx=5

grid 1 2
   button text="Pairs Plot" func=pairsLR
   button text="Classic Regression" func=doAction action="tget(plotLR)(FALSE)"

label text="-------------------------------------" sticky=W font=courier

grid 1 4 toptitle="BRugs Linear Regression" topfont=bold sticky=W
   grid 1 1 sidetitle=Compile sidefont="bold 10" sticky=W
      vector length=3 names=pset labels="a b sig" mode=logical values="T T T" vertical=F
   grid 2 1
      label text="# chains" padx=10
      entry name=nc value=2 width=3
   button text=Compile func=modCompile stick="SE" pady=5 padx=3
   button text=Data func=openFile action=LRDat.txt stick="SE" pady=5 padx=3

grid 1 3 sticky=W byrow=T
   label text=Update font="bold 10" padx=0 sticky="S" pady=4
   vector length=3 names="clen cthin ctot" labels="Length Thin Total" \
      values="1000 1 0" vertical=F width=6 padx=0
   button text=Update func=modUpdate stick="SE" pady=3 padx=20

grid 1 4 sticky=W byrow=T
   label text="Report" font="bold 10" padx=0 sticky="S" pady=4
   vector length=3 names="s1 s2 sthin" labels="Start End Thin" values="1 1000 1" vertical=F width=6 padx=0
   label text="Chains" font="10" padx=5 sticky="S" pady=4
   vector length=2 names="chn1 chn2" labels="First Last" values="1 2" vertical=F width=4 padx=0

null
grid 1 6
  button text=Trace      func=modHist
  button text=Density    func=modDens
  button text=ACF        func=modACF
  button text=Pairs      func=modPairs
  button text=Histogram  func=modFreq
  button text=Regression func=doAction  action="tget(plotLR)(TRUE)"

