neat.xv <- freqtab(KBneat$x[, 1], KBneat$x[, 2],
xscale = 0:36, vscale = 0:12)
plot(neat.xv)
neat.x <- freqtab(KBneat$x[, 1], xscale = 0:36)
neat.v <- freqtab(KBneat$x[, 2], vscale = 0:12)
plot(neat.x, neat.v, lwd = 2)
plot(neat.x, neat.v, lwd = 2, type = "l")
Run the code above in your browser using DataLab