inst/snippet/concrete-perm-f.R

fstats <- replicate(5000,
    {
    concrete.lm <- lm(sample(strength) ~ limestone * water, concrete)
    summary(concrete.lm)$fstat[1]
    }
)
mean( fstats > summary(concrete.lm1)$fstat[1] ) 

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 1, 2019, 11:18 p.m.