inst/snippet/defFun11.R

x = (0:10)/10

myData=data.frame(x=x, y=sin(x))

panel.xyplotWithDiag <- function(x,y,...) {
    panel.xyplot(x,y,...)
    panel.abline(a=0,b=1,col="gray30",lwd=2)
}

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 1, 2019, 11:18 p.m.