Szukam jak w R wyznaczyć wartość 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.