(mean.std.s2n.loss.gain[[1]])
Probe.Set.ID rho_prime rho_prime_sd pom Expr1 matchinggenes
Mean std_dev
29 SNP_A-1908463 47 2.47 0.75 0 PRKCZ
-0.34561617 0.13443676
30 SNP_A-2131370 44 2.61 0.58 0 PRKCZ
-0.32704692 0.15171799
31 SNP_A-2203009 45 2.67 0.58 0 PRKCZ
-0.32423938 0.15554016
32 SNP_A-2098546 43 2.81 0.58 1 PRKCZ
-0.32129822 0.15939414
33 SNP_A-2264565 42 2.90 0.58 1 PRKCZ
0.34055150 0.17828152
34 SNP_A-1788728 41 2.84 0.58 1 PRKCZ
0.33953744 0.17782981
35 SNP_A-1842509 34 2.59 0.58 1 PRKCZ
-0.29742398 0.14795647
36 SNP_A-4250389 33 2.60 0.50 1 PRKCZ
-0.29494191 0.14550642
1398 SNP_A-1834906 25 1.90 0.42 0 FRAP1
-0.27104942 0.03668130
1399 SNP_A-2146504 25 1.90 0.42 0 FRAP1
-0.27021592 0.03623132
1400 SNP_A-2307309 25 1.90 0.42 0 FRAP1
-0.06187095 0.08202400
1401 SNP_A-2261658 27 2.07 0.42 0 FRAP1
-0.27679100 0.04101169
1402 SNP_A-4274481 29 2.21 0.42 0 FRAP1
-0.27713433 0.04126666
1403 SNP_A-2053070 29 2.21 0.42 0 FRAP1
-0.28584483 0.05010136
1404 SNP_A-4276382 29 2.21 0.42 0 FRAP1
-0.30063342 0.05233933
mean.std.s2n.loss.gain is a list object of length 1000.
I want to calculate the mean and std dev for the unique genes using the
column 7 values.I wrote a code but it showing me subscript out of bounds
error for .unique.genes[[i]].Could any body help me fixing the error.
genes.info.unique <- lapply(mean.std.s2n.loss.gain,function(.unique){
.unique.genes<-unique(.unique[,6])
.unique.genes<-as.vector(as.matrix(.unique.genes))
snpnumber<-list()
mean.genes<-list()
sd.genes<-list()
class(.unique.genes)
for(i in 1:length(.unique.genes))
{
snpnumber[[i]]<- length(.unique[.unique[,6] %in% .unique.genes[[i]],1])
mean.genes[[i]]<-mean(.unique[.unique[,6] %in% .unique.genes[[i]],7])
sd.genes[[i]]<-sd(.unique[.unique[,6] %in% .unique.genes[[i]],7])
}
cbind(.unique.genes,unlist(snpnumber),unlist(mean.genes),unlist(sd.genes))
})
kindly help me
Ramya
--
View this message in context:
http://www.nabble.com/subscript-out-of-bounds-help-tp18714594p18714594.html
Sent from the R help mailing list archive at Nabble.com.