Lattice: Add abline to Single Value qqmath() Plot

Apologies in advance if I misinterpret " R console insists that I retype
..." but actually makes more sense (than sourcing a script) to use the
group argument (see the last example in ?qqmath) as in 4 groups in each of
30 panels, or allow.multiple=T, outer=T if you really want separate panels
for each transformation. Also can use layout=c(1,1,120) if you need each
in a separate page - or say c(3,2,20) for 20 pages of 6 panels each, etc.
Regarding your script, there is a syntax error: