# NOT RUN {
x <- c(94.77, 96.23, 98.12, 99.09, 100.04, 100.12, 99.93, 100.09,
101.44, 102.38, 103.68,104.12, 104.81, 105.35, 106.36, 106.89,107.35,
107.21, 107.72, 108.54, 109.57, 112.03)
alpha.sutte(x)
# }
Run the code above in your browser using DataLab