unit [9]

pointer [values=CP,HA,RO,CA,MO,SB,TE,BU,CR,CB,CC,GR] y
&       [values=dres,folcov,folmat,tubdorm,dm,crisp,inbruis,exdam,gang,folbl,\
                tubbl,scab,leafroll,Yvirus] x
&       [values=PCro,Reco,Esti,Dian,Rode,Kirs,King,Foxt,More] variety

open 'gen.dt'; ch=2

read [ch=2;serial=yes;print=data;end=*] y[]
read [ch=2;serial=yes;print=data;end=*] x[]

pls [print=yload,xload,score,xper,yper ; nroot=1 ; ngroup=3 ; seed=12859] y ; x

stop