data(example)
res<-alpha(example, varphi=.01)
## diagnostic plot
plot(res, type='d')
## alpha with varphi=.01 & standard error
res<-alpha(example, varphi=.01, se=TRUE)
## confidence interval
summary(res)
Run the code above in your browser using DataLab