How about this
result <- numeric(10)
for(i in 1:10){
x <- sample(1:30, 5, replace = FALSE)
x <- sort(x)
result[i] <- any(diff(x) == 1)
}
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Anthony28
> Sent: Tuesday, April 29, 2008 8:52 AM
> To: r-help@r-project.org
> Subject: [R] How do you test for "consecutivity"?
>
>
> I need to use R to model a large number of experiments (say,
> 1000). Each experiment involves the random selection of 5
> numbers (without replacement) from a pool of numbers ranging
> between 1 and 30.
>
> What I need to know is what *proportion* of those experiments
> contains two or more numbers that are consecutive. So, for
> instance, an experiment that yielded the numbers 2, 28, 31,
> 4, 27 would be considered a "consecutive = true" experiment
> since 28 and 27 are two consecutive numbers, even though they
> are not side-by-side.
>
> I am quite new to R, so really am puzzled as to how to go
> about this. I've tried sorting each experiment, and then
> subtracting adjacent pairs of numbers to see if the
> difference is plus or minus 1. I'm also unsure about whether
> to use an array to store all the data first.
>
> Any assistance would be much appreciated.
> --
> View this message in context:
> http://www.nabble.com/How-do-you-test-for-%22consecutivity%22-
> -tp16959748p16959748.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
