try this:
> input <- " y Slide Block ID
+ 441068 -0.020464103 1 15 AAAAGFASKTPANQA
+ 448844 0.061400545 1 41 AAAAGFASKTPANQA
+ 456620 -0.031026896 10 15 AAAAGFASKTPANQA
+ 464396 -0.033166864 10 41 AAAAGFASKTPANQA
+ 472172 -0.108148804 11 15 AAAAGFASKTPANQA
+ 479948 -0.397759508 11 41 AAAAGFASKTPANQA
+ 4167 -0.67283526 1 13 AAAAALPAFSPPAQA
+ 11943 -0.23982701 1 37 AAAAALPAFSPPAQA
+ 19719 -0.10169540 10 13 AAAAALPAFSPPAQA
+ 27495 0.70043972 10 37 AAAAALPAFSPPAQA
+ 35271 -0.18807235 11 13 AAAAALPAFSPPAQA
+ 43047 -0.17982104 11 37 AAAAALPAFSPPAQA
+ 5264 -0.011681805 1 17 AAAAATQAAGAGAVA
+ 13040 -0.073063462 1 41 AAAAATQAAGAGAVA
+ 20816 -0.017996429 10 17 AAAAATQAAGAGAVA
+ 28592 0.010159866 10 41 AAAAATQAAGAGAVA
+ 36368 -0.056034035 11 17 AAAAATQAAGAGAVA
+ 44144 -0.346175641 11 41 AAAAATQAAGAGAVA
+ 5612 -0.7121977 1 18 AAAAGFASKTPANQA
+ 13388 -0.4076580 1 42 AAAAGFASKTPANQA
+ 21164 -0.1864131 10 18 AAAAGFASKTPANQA
+ 28940 -0.1140163 10 42 AAAAGFASKTPANQA
+ 36716 -0.3246222 11 18 AAAAGFASKTPANQA
+ 44492 -0.4355016 11 42 AAAAGFASKTPANQA
+ "
> x <- read.table(textConnection(input), header=TRUE)
>
> # find the breaks in the ID
> ID.breaks <- c(TRUE, diff(as.numeric(x$ID)) != 0)
> group.1 <- x[ID.breaks,]
> group.2 <- x[!ID.breaks,]
>
> group.1
y Slide Block ID
441068 -0.02046410 1 15 AAAAGFASKTPANQA
4167 -0.67283526 1 13 AAAAALPAFSPPAQA
5264 -0.01168180 1 17 AAAAATQAAGAGAVA
5612 -0.71219770 1 18 AAAAGFASKTPANQA
> group.2
y Slide Block ID
448844 0.06140055 1 41 AAAAGFASKTPANQA
456620 -0.03102690 10 15 AAAAGFASKTPANQA
464396 -0.03316686 10 41 AAAAGFASKTPANQA
472172 -0.10814880 11 15 AAAAGFASKTPANQA
479948 -0.39775951 11 41 AAAAGFASKTPANQA
11943 -0.23982701 1 37 AAAAALPAFSPPAQA
19719 -0.10169540 10 13 AAAAALPAFSPPAQA
27495 0.70043972 10 37 AAAAALPAFSPPAQA
35271 -0.18807235 11 13 AAAAALPAFSPPAQA
43047 -0.17982104 11 37 AAAAALPAFSPPAQA
13040 -0.07306346 1 41 AAAAATQAAGAGAVA
20816 -0.01799643 10 17 AAAAATQAAGAGAVA
28592 0.01015987 10 41 AAAAATQAAGAGAVA
36368 -0.05603404 11 17 AAAAATQAAGAGAVA
44144 -0.34617564 11 41 AAAAATQAAGAGAVA
13388 -0.40765800 1 42 AAAAGFASKTPANQA
21164 -0.18641310 10 18 AAAAGFASKTPANQA
28940 -0.11401630 10 42 AAAAGFASKTPANQA
36716 -0.32462220 11 18 AAAAGFASKTPANQA
44492 -0.43550160 11 42 AAAAGFASKTPANQA
>
On 1/14/07, Jenny persson <[EMAIL PROTECTED]> wrote:
>
> y Slide Block ID
> 441068 -0.020464103 1 15 AAAAGFASKTPANQA
> 448844 0.061400545 1 41 AAAAGFASKTPANQA
> 456620 -0.031026896 10 15 AAAAGFASKTPANQA
> 464396 -0.033166864 10 41 AAAAGFASKTPANQA
> 472172 -0.108148804 11 15 AAAAGFASKTPANQA
> 479948 -0.397759508 11 41 AAAAGFASKTPANQA
> 4167 -0.67283526 1 13 AAAAALPAFSPPAQA
> 11943 -0.23982701 1 37 AAAAALPAFSPPAQA
> 19719 -0.10169540 10 13 AAAAALPAFSPPAQA
> 27495 0.70043972 10 37 AAAAALPAFSPPAQA
> 35271 -0.18807235 11 13 AAAAALPAFSPPAQA
> 43047 -0.17982104 11 37 AAAAALPAFSPPAQA
> 5264 -0.011681805 1 17 AAAAATQAAGAGAVA
> 13040 -0.073063462 1 41 AAAAATQAAGAGAVA
> 20816 -0.017996429 10 17 AAAAATQAAGAGAVA
> 28592 0.010159866 10 41 AAAAATQAAGAGAVA
> 36368 -0.056034035 11 17 AAAAATQAAGAGAVA
> 44144 -0.346175641 11 41 AAAAATQAAGAGAVA
> 5612 -0.7121977 1 18 AAAAGFASKTPANQA
> 13388 -0.4076580 1 42 AAAAGFASKTPANQA
> 21164 -0.1864131 10 18 AAAAGFASKTPANQA
> 28940 -0.1140163 10 42 AAAAGFASKTPANQA
> 36716 -0.3246222 11 18 AAAAGFASKTPANQA
> 44492 -0.4355016 11 42 AAAAGFASKTPANQA
>
> where there are 4 different IDs and each ID appears twice in two blocks
> for each of 3 slides. I want to extract the data
> in such a way that every ID that appears the first time will be grouped to
> group 1, and the second time to group 2.
> For the data above, it means that the IDs with response y that are in
> blocks 15,13,17,18 for each slide will be in group 1 and the rest are in
> group 2. How can I do this in R ?
> Thanks for your help,
> Jenny
>
>
> ---------------------------------
>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> [email protected] 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.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem you are trying to solve?
[[alternative HTML version deleted]]
______________________________________________
[email protected] 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.
