Considere a seguinte regressão binomial: # Create some data set.seed(10) n <- 500 x <- runif(n,0,100) y <- x + rnorm(n,sd=100) < 0 # Fit a binomial regression model model <- glm(y ~ x, family="binomial") summary(model) A summaryfunção retorna um valor-p de 1.03e-05. Ao usar...