fork download 
  1. z1=textConnection("z2", "w")
  2. sink(z1)
  3. res=aov(Sepal.Length~Species,iris)
  4. summary(res)
  5. sink()
  6. close(z1)
  7.  
  8. z3=sapply(strsplit(head(z2,-1),' +'),
  9.   paste,collapse=',')
  10. z4=gsub(',',"\t",c(z3,tail(z2,1)))
  11.  
  12. writeLines(z3 )# ,'out.csv')
  13. writeLines(z4 )# ,'clipboard')
  14. rm(z1,z2,z3,z4)
Success #stdin #stdout 0.17s 177472KB
comments (?)
stdin 
Standard input is empty
stdout 
,Df,Sum,Sq,Mean,Sq,F,value,Pr(>F)
Species,2,63.21,31.606,119.3,<2e-16,***
Residuals,147,38.96,0.265
---
	Df	Sum	Sq	Mean	Sq	F	value	Pr(>F)
Species	2	63.21	31.606	119.3	<2e-16	***
Residuals	147	38.96	0.265
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
https://ideone.com/7GMFWQ
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!