data(simdat)
test <- simdat[simdat$Subject=='a10' & simdat$Trial==10,]
emptyPlot(range(test$Time), range(test$Y),
main='Data', ylab='Y', xlab='Time',
h0=0, v0=c(0,1000,2000))
# Note that this is the same as:
emptyPlot(range(test$Time), range(test$Y))
title(main='Data', ylab='Y', xlab='Time')
abline(h=0)
abline(v=c(0,1000,2000), lty=3)
# To add data, use lines() and points()
lines(test$Time, test$Y)
Run the code above in your browser using DataLab