R help - Sep 2003 - Sampling rows from a list

Dear R People:

Here is a function that someone asked for today.

This is getting the sample from different rows from a list.

Hope this helps!

Sincerely,
Erin
> oe1
function(n) {

        a1 <- n%%3

        n1 <- seq(from=2,to=(n-1+a1),by=3)

        n2 <- c(1:n)[-n1]

        if(a1 == 1)n2 <- c(n2,n2[length(n2)])

        if(a1 == 2)n2 <- c(n2,n1[length(n1)])

        n3 <- length(n2)

        y <- rep(NA,n3)

        i <- 1

        while(i <= n3) {

                a4 <- n2[i]:n2[(i+1)]

                if(length(a4)==1)a4 <- c(a4,a4)

                y[i:(i+1)] <- sample(a4,replace=T,2)

                i <- i+2

        }

        return(y)

}
>