Draws a step function that represents given numeric vector
with elements in *[0,∞]*.

1 2 3 4 5 |

`x` |
non-negative numeric vector |

`type` |
character; type of the graphical |

`extend` |
logical; should the plot be extended infinitely to the right?
Defaults to |

`add` |
logical; indicates whether to start a new plot, |

`pch,col,lty,lwd,cex,xmarg` |
graphical parameters |

`col.steps,lty.steps,lwd.steps` |
graphical parameters, used only
for |

`ylim,xlim,xlab,ylab,main,...` |
additional graphical parameters,
see |

In agop, a given vector *x=(x_1,…,x_n)* can be represented by a
step function defined for *0≤ y<n* and given by:

*π(y)=x_{(n-floor(y+1)+1)}*

(for `type == 'right.continuous'`

)
or for *0< y≤ n*

*π(y)=x_{(n-floor(y)+1)}*

(for `type == 'left.continuous'`

, the default)
or by a curve joining the points *(0, x_{(n)})*,
*(1, x_{(n)})*, *(1, x_{(n-1)})*, *(2, x_{(n-1)})*,
..., *(n, x_{(1)})*.
Here, *x_{(i)}* denotes the
*i*-th smallest value in *x*.

In bibliometrics, a step function of one of the two above-presented types is called a citation function.

For historical reasons, this function is also available via its alias,
`plot.citfun`

[but its usage is deprecated].

nothing interesting

1 2 | ```
john_s <- c(11,5,4,4,3,2,2,2,2,2,1,1,1,0,0,0,0)
plot_producer(john_s, main="Smith, John", col="red")
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.