# \donttest{
# 2-stage design with triangular boundaries
res <- mams(K=4, J=2, alpha=0.05, power=0.9, r=1:2, r0=1:2,
p=0.65, p0=0.55, ushape="triangular", lshape="triangular", nstart=30)
plot(res)
# }
Run the code above in your browser using DataLab