[R] Rle function to expand for many samples

[sujitha]

Dear R experts,
code:
>m<-read.table("test.txt",sep='\t',header=TRUE,colClasses=c('character','integer','integer','rep('numeric',150))
> s<-data.frame(c(rle(m$Sample1)[[2]],rle(m$Sample2)[[2]],rle(m$Sample3)[[2]]),c(rle(m$Sample1)[[1]],rle(m$Sample2)[[1]],rle(m$Sample3)[[1]]))
> names(s)=c("Values","Probes")

#Suppose the test file looks like with ofcourse more samples with values:
Chr	Start	End	Sample1	Sample2	Sample3
chr2	9896633	9896683	0	0	0
chr2	9896639	9896690	0	0	0 
chr2	14314039	14314098	0	-0.35	0 
chr2	14404467	14404502	0	-0.35	0.32 
chr2	14421718	14421777	-0.43	-0.35	0.32 
chr2	16031710	16031769	-0.43	-0.35	0.32 
chr2	16036178	16036237	-0.43	-0.35	0.45 
chr2	16048665	16048724	-0.43	-0.35	0.45 
chr2	37491676	37491735	0	0	0.45 
chr2	37702947	37703009	0	0	0 
>s
Values Probes
1    0.00      4
2   -0.43      4
3    0.00      2
4    0.00      2
5   -0.35      6
6    0.00      2
7    0.00      3
8    0.32      3
9    0.45      3
10   0.00      1
Here s is nothing but sumarising similiar values with Probes giving the
count of similiar values.
How to I expand rle function to consider 150 samples here I have just shown
for 3 samples other than manually expanding for the rest 147 samples?
I have the rest of the code for my purpose just stuck with this step only.

waiting for your reply,
Thanks,
Suji


--
View this message in context: http://r.789695.n4.nabble.com/Rle-function-to-expand-for-many-samples-tp3851676p3851676.html
Sent from the R help mailing list archive at Nabble.com.