Szukam jak w R wyznaczyć wartość \chi^2 dla regresji liniowej funkcji. Kod aktualny:

library(latticeExtra)

set.seed(512)
n <- 10
x <- 1:n
y <- x + rnorm(n)

reg <- lm(y ~ x)

#svg('regression.svg')

plot(y ~ x, col = "lightblue")
	#layer(panel.lmlineq(x, y, adj = c(0, 1), fontfamily = 'Helvetica'))
chi_2 <- 0.5; mtext(bquote("Test " * chi ^ 2 == .(chi_2)), line = .25)
	
#dev.off()

Znalazłem funkcję chisq.test() ale nie wiem jak ją użyć dla tego przypadku.