Many thanks Jim. It works for my large data set!
Best Regards
Nico
On Wed, Apr 23, 2014 at 1:45 PM, jim holtman <jholt...@gmail.com> wrote:
> try this:
>
> > x <- readLines(textConnection("---CLUSTER 1 ---
> + 3
> + 4
> + 5
> + 6
> + ---CLUSTER 2 ---
> + 9
> + 10
> + 8
> + 11"))
> >
> > # create a list of where the 'clusters' are
> > clust <- c(grep("CLUSTER", x), length(x) + 1L)
> >
> > # get size of each cluster
> > clustSize <- diff(clust) - 1L
> >
> > # get cluster number
> > clustNum <- gsub("[^0-9]+", "", x[grep("CLUSTER", x)])
> >
> > result <- do.call(rbind, lapply(seq(length(clustNum)), function(.cl){
> + cbind(Object = x[seq(clust[.cl] + 1L, length = clustSize[.cl])]
> + , Cluster = .cl
> + )
> + }))
> >
> > result
> Object Cluster
> [1,] "3" "1"
> [2,] "4" "1"
> [3,] "5" "1"
> [4,] "6" "1"
> [5,] "9" "2"
> [6,] "10" "2"
> [7,] "8" "2"
> [8,] "11" "2"
> >
>
>
>
> Jim Holtman
> Data Munger Guru
>
> What is the problem that you are trying to solve?
> Tell me what you want to do, not how you want to do it.
>
>
> On Wed, Apr 23, 2014 at 5:58 AM, Nico Met <nicome...@gmail.com> wrote:
>
>> Dear all, I have object where I stored clusters in the following manner:
>>
>> ---CLUSTER 1 ---
>> 3
>> 4
>> 5
>> 6
>> ---CLUSTER 2 ---
>> 9
>> 10
>> 8
>> 11
>>
>> Now want to format the data in the following way:
>>
>> Object Cluster
>> 3 1
>> 4 1
>> 5 1
>> 6 1
>> 9 2
>> 10 2
>> 8 2
>> 11 2
>>
>>
>> How can I do this in R?
>>
>> Thanks
>>
>> Nico
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> 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.
>>
>
>
[[alternative HTML version deleted]]
______________________________________________
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.
