# [R] Checking for monotonic sequence

R. Michael Weylandt michael.weylandt at gmail.com
Wed Nov 16 18:49:04 CET 2011

```Happy to help, but could you provide a dput() example of your data
div1 -- I'm not sure if your table elements are coded as factors or
doubles and that can make quite a difference.

Anyways, once you confirm they are doubles, something like this will do it:

apply(D, 1, function(x) all(diff(x)>0))

E.g.

D <- matrix(c(1,2,3,4,2,5,7,7,9), 3)

Michael

On Wed, Nov 16, 2011 at 10:49 AM, Mark Carter <mcturra2000 at yahoo.co.uk> wrote:
> I am scraping data from a web page using XML (excellent package BTW - that's scraping data the easy way!).
>
> So far, I've got the code:
>
> rhf <- tables\$tabResHistFull
> div1 <- rhf[which(rhf\$V1=="Div ps"),]
> div1
>
> which is giving me the result:
>        V1 V2    V3    V4    V5    V6    V7          V8    V9   V10   V11   V12   V13   V14  V15
> 15 Div ps  p 32.31 35.64 40.17 42.55 45.13 46.36+17.22 51.11 55.72 70.78 71.72 76.99 82.20 <NA>
>
> I don't know a priori how many columns are in the table.
>
> I want to be able to extract the numbers to the best of my ability, and check to see if they form a monotonic sequence.
>
>
> How do I do this?
>
> If I type:
>    div2 <- div1[is.numeric(div1)]
>    div2
> I get
>    data frame with 0 columns and 1 rows
>
> OTOH, if I type
>    div2 <- as.numeric(div1)
>    div2
> I get
>    [1]  9  4 15 16 18 20 17 21 21 18 24 24  8  8 NA
> Huh??
>
> What do I need to do? The data in V8 in this particular instance is aberrational - I don't care how it gets treated; although I really want the number 46.36 out of it. Any sane solution will do, though.
>        [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help