names(myTable)
a<-read.csv("file.csv", header=T, sep=",")
names(a)
motility<-subset(a, Putative.orf.function=="Motility & Attachment")
write.csv(motolity, file="motility.csv")
Edit Feb 15th 2012
grep("Motility", a$Putative.orf.function)
gives the list of rows whose Putative.orf.function column contains the string "Motility".
Using this, one can get the entire row information.
df<-read.csv("file.csv", header=T, sep=",")
names(df)
> names(df)
[1] "Strain.Name" "ID" "Location"
[4] "PA.ORF" "Gene" "Gene.Abbrev."
[7] "Putative.orf.function" "Position.in.ORF" "Frame"
[10] "Genome.Position" "Transposon.Direction" "Transposon"
[13] "F.Primer.Name" "F.Primer.Seq" "F.Primer.Position"
[16] "F.Primer.Tm" "Insert...F" "R.Primer.Name"
[19] "R.Primer.Seq" "R.Primer.Position" "R.Primer.Tm"
[22] "R...Insert" "WT.PCR.Len" "Confirmed."
[25] "How.confirmed." "Notes"
> df$Strain.Name[grep("Attachment",df$Putative.orf.function)]
[1] PW10299 PW10300 PW1728 PW1729 PW1730 PW1731 PW1749 PW1750 PW1751
[10] PW1752 PW1753 PW1754 PW1755 PW1756 PW1757 PW2791 PW2792 PW2794
[19] PW2795 PW2941 PW2942 PW2943 PW2944 PW2945 PW2946 PW2947 PW2948
...
[118] PW8681 PW8682 PW9465 PW9466 PW9467 PW9468 PW9469 PW9470 PW9471
[127] PW9472 PW9473 PW9474
No comments:
Post a Comment