library("plot")
setsize(640,480)
; read data
lynx = read("lynx.dat")
d1 = createdisplay(1,1)
x1 = #(1821:1934)~lynx
setmaskl (x1, (1:rows(x1))', 0, 1)
show(d1,1,1,x1) ; plot data
setgopt(d1,1,1,"title","Annual Canadian Lynx Trappings, 1821-1934","xlabel","Years","ylabel","Lynx")
d2 = createdisplay(1,1)
x2 = #(1821:1934)~log(lynx)
setmaskl (x2, (1:rows(x2))', 0, 1)
show(d2,1,1,x2) ; plot data
setgopt(d2,1,1,"title","Logs of Annual Canadian Lynx Trappings, 1821-1934","xlabel","Years","ylabel","Lynx")