I posted this question a couple of minutes ago and it got instant minuses so I figured that it was stupid and deleted it.
After reconsideration I still can think of a solution.
This might be due I'm new to R, coding in general, and all those things that are not point and click analysis in SPSS followed by MS Word description of results.
So please forgive me if the answer is basic - I clearly lack intelligence or can't find proper wording for a successful search.
y = rnorm(18, 0, 1)
x = rnorm(18, 1, 1)
a = c(1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3)
df<- data.frame(a, x, y)
Df Sum Sq Mean Sq F value Pr(>F)
a 1 0.39 0.3882 0.178 0.678
Residuals 16 34.84 2.1775
code pasting results in proper format
You have to extract the different statistics yourself and combine them. For the anova example you show above, something like this should get you started:
F(`r summary(anova)[][1, "Df"]`; `r summary(anova)[][2, "Df"]`)=`r format(summary(anova)[][1, "F value"], digits = 2, nsmall = 2)`;
In order to extract the statistics, you should have a look at the help files. Often they contain detailed descriptions of the return value. Alternatively you can just have a look at the names of your results. In your example that is