inst/snippet/concrete-perm-t.R

tstats <- replicate(1000,
    {
    concrete.lm <- lm(sample(strength) ~ limestone * water, concrete)
    summary(concrete.lm)$coef[3,3]
    }
)
mean( abs(tstats) > abs(summary(concrete.lm1)$coef[3,3]) ) 

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.