*
*  BETAS.PRG
*  Example from Section 16.3
*
cal 1986 1 12
allocate 1 1996:12
open data ticker.lst
declare vector[label] tickers
read(varying) tickers
compute ntickers=%rows(tickers)
open data returns.rat
open copy betas.lst
data(format=rats) / market
do i=1,ntickers
  labels 1
  # tickers(i)
  clear 1
  data(format=rats) / 1
  linreg(noprint) 1
  # constant market
  display(unit=copy) tickers(i) @20 ##.##### %beta(2)
end do i
close copy