Hi

now you omitted data, but never mind :-)

> My loop is the following 
> counter = 0
>  for (i in 1:nrow(y))
>  {
> 
> 
>  for (j in 1:ncol(y))
>  {
>  if (y[i,j]=="Func_0005634") {
>          counter = counter + 1 }
>  if(y[i,j]=="Func_0005737"){
>          counter = counter + 1 } 
>  if(y[i,j]=="Func_0005515"){
>         counter = counter + 1 }
> 
> }
>  if(counter == 3 ){
>    cat(y[i,1],  file = "foo.csv",  "\n")
>         }
>  counter = 0
> 
> }
> 

If I remember correctly you want to inspect each row if it contains any of 
"Func" values and how many of them.

> dput(y)
structure(list(prot = c(1, 2, 3, 4), X1 = structure(c(1L, 1L, 
1L, 2L), .Label = c("a", " "), class = "factor"), X2 = structure(c(3L, 
2L, 3L, 3L), .Label = c("a", "b", " "), class = "factor"), X3 = 
structure(c(3L, 
3L, 3L, 2L), .Label = c("b", "c", " "), class = "factor"), X4 = 
structure(c(1L, 
1L, 1L, 3L), .Label = c("c", "d", " "), class = "factor"), X5 = 
structure(c(2L, 
1L, 1L, 1L), .Label = c("d", " "), class = "factor")), .Names = c("prot", 
"X1", "X2", "X3", "X4", "X5"), row.names = c(NA, 4L), class = 
"data.frame")
>

So 

> rowSums((y=="a") | (y=="b") | (y=="d"))
1 2 3 4 
1 3 2 1 

gives you number of values (a,b,d) in each row.

Your construction comes from some differnt programming world.

Regards
Petr


> and after read.table("foo.csv")
> 
> I get 
>   V1
> 1 45
> 
> which is the last result
> 
> why does it overwrite? how can I have all the results?
> 
> Eager to a reply from you!
> 
> --
> View this message in context: 
http://r.789695.n4.nabble.com/Writing-to-a-
> file-tp3070617p4364149.html
> Sent from the R help mailing list archive at Nabble.com.
> 
> ______________________________________________
> 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.

______________________________________________
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.

Reply via email to