[R] how use cat() function?

[Don MacQueen]

Here is are some examples that might help.

   a <- 1
   b <- 2
   c <- 5

   cat( "a=,",a, " b=,",b, " c=",c, "\n" , sep='', file="output.csv")

and don't append unless you are adding more lines to an existing file.

Or perhaps you want

   cat("a,b,c\n",file="output.csv")
   cat(  paste( a,b,c , collapse=",") ,"/n" , file="output.csv", append=TRUE)

Yet, you are using   sep=","   in your code, but you show no commas 
in your example of what you want.
So perhaps

   cat("a   b   c\n",file="output.csv")
   cat( "a=,",a, "  b= ,",b, "  c=",c, "\n" , sep='', file="output.csv")

or
  output <- paste( "a=,",a, "  b= ,",b, "  c=",c, sep='')
  cat(output, '\n', file="output.csv", append=TRUE)

-Don

At 4:06 PM +0000 8/10/09, Inchallah Yarab wrote:
>Content-Type: text/plain
>Content-Disposition: inline
>Content-length: 1497
>
>i  want to print in the console and to have an excel file like this
>
>no_GWP                NbOfPolicyClass1[0-1000] 
>NbOfPolicyClass2[1000-3000]        NbOfPolicyClass3[> 3000]
>No_GWPMax=8    NbpolicyClass1=5                   NbpolicyClass2=4 
>NbpolicyClass3 =3             
>
>i have do it like this:!!!
>data1 <- read.csv2("c:/Total1.csv",sep=",")
>>  data2 <- read.csv2("c:/GWPMax1.csv",sep=",")
>>  M <- merge(data1, data2, by.x = "Policy.Number", by.y = "Policy.Number")
>>  nrow(data1)
>[1] 20
>>  nrow(M)
>[1] 12
>>  No_GWPMax <- nrow(data1)-nrow(M)
>>  (NbOfPolicyWithoutGWPMax <- nrow(data1)-nrow(M))
>[1] 8
>>  M$GWP_Max <- as.numeric(as.character(M$GWP_Max))
>>  class1 <- M[(M[,25]> 0 & M[,25]<1000) ,]
>>  NbpolicyClass1 <- nrow(class1)
>>  class2<- K[(K[,25]>1000 & K[,25]<3000),]
>>  NbpolicyClass2 <-  nrow(class2)
>>  class3 <- K[(K[,25]>3000),]
>>  NbpolicyClass3 <- nrow(class3)
>  > Output<- "No_GWPMax 
>,NbpolicyClass1[0-1000],NbpolicyClass2[1000-3000],NbpolicyClass3[>3000]"
>>  Output <- paste(No_GWPMax 
>>,NbpolicyClass1,NbpolicyClass2,NbpolicyClass3,sep=",")
>  > cat(Output,file="Output2.csv",fill=TRUE,append=TRUE)
>
>but that doesn't give me the title juste 8 5 4 3
>
>any ideas??
>
>thank you a lot
>
>
>
>	[[alternative HTML version deleted]]
>
>
>______________________________________________
>R-help at 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.


-- 
--------------------------------------
Don MacQueen
Environmental Protection Department
Lawrence Livermore National Laboratory
Livermore, CA, USA
925-423-1062