data(schools)
datas = schools[-50,]
y = datas$Expenditure
x = datas$Income/10000
model = lm(y ~ x)
Pboot(model=model, significance = 0.05, double = FALSE,
J=1000, K = 100, distribution = "rademacher")
Run the code above in your browser using DataLab