# NOT RUN {
# simulate data
set.seed(2)
u0 <- c(rep(1, 5), rep(5, 5))
Y <- rnorm(10, u0)
# compute the SMUCE estimate
uh <- smuce(Y)
# print results
# step function returned by smuce
print(uh)
# vector returned by evalStepFun
print(evalStepFun(uh))
# }
Run the code above in your browser using DataLab