Errors in running code in vignettes:
when running code in 'vignette.Rnw'

> library(AGSDest)

> GSD <- plan.GST(K = 3, SF = 4, phi = -4, alpha = 0.025, 
+     delta = 5, pow = 0.8, compute.alab = TRUE, compute.als = TRUE)

> GSD
3  stage group sequential design
 alpha :  0.025   SF:  4   phi:  -4   Imax:  0.32   delta:  5   cp:  0.8
                                         
Upper bounds          3.011  2.547  1.999
Lower bounds         -8.000 -8.000 -8.000
Information fraction  0.333  0.667  1.000

                      
als  0.001 0.006 0.025
alab 3.222 1.194 0.000



> GST <- as.GST(GSD = GSD, GSDo = list(T = 2, z = 1.088))

> GST
3  stage group sequential design
 alpha :  0.025   SF:  4   phi:  -4   Imax:  0.32   delta:  5   cp:  0.8
                                         
Upper bounds          3.011  2.547  1.999
Lower bounds         -8.000 -8.000 -8.000
Information fraction  0.333  0.667  1.000
                      
als  0.001 0.006 0.025
alab 3.222 1.194 0.000


group sequential design outcome:

	T:  2   z:  1.088 


> pvalue(GST, type = "r")
$pvalue.r
[1] 0.5834961


> pvalue(as.GST(GSD, list(T = 2, z = 2.63)), type = "so")
$pvalue.so
[1] 0.005131236


> seqconfint(GST, type = "r")
$cb.r
[1] -3.162014


> seqconfint(as.GST(GSD, list(T = 2, z = 2.63)), type = "so")
$cb.so
[1] 1.356988


> seqconfint(as.GST(GSD, list(T = 2, z = 2.63)), type = "so", 
+     level = 0.5)
$est.mu
[1] 5.659091


> seqconfint(as.GST(GSD, list(T = 2, z = 1.088)), type = "r", 
+     level = 0.5)
$est.cons
[1] -0.2121496


> GSD1 <- as.GST(GSD, list(T = 2, z = 2.63))

> GSD1 <- summary(GSD1, ctype = "so", ptype = "so", 
+     etype = NULL)

> GSD1
stage-wise adjusted lower confidence bound:  1.357 

stage-wise adjusted p-value:  0.005 

3  stage group sequential design
 alpha :  0.025   SF:  4   phi:  -4   Imax:  0.32   delta:  5   cp:  0.8
                                         
Upper bounds          3.011  2.547  1.999
Lower bounds         -8.000 -8.000 -8.000
Information fraction  0.333  0.667  1.000
                      
als  0.001 0.006 0.025
alab 3.222 1.194 0.000


group sequential design outcome:

	T:  2   z:  2.63 


> pT = GSD

> iD = list(T = 1, z = 0.731)

> cer(pT, iD)
[1] 0.02739815

> swImax = 200/(4 * 20^2)

> I2min = 2 * swImax

> I2max = 5 * swImax

> sT = adapt(pT = pT, iD = iD, SF = 1, phi = 0, cp = 0.9, 
+     theta = 4, I2min = I2min, I2max = I2max, swImax = swImax)

  When sourcing 'vignette.R':
Error: 'bounds' is not an exported object from 'namespace:ldbounds'
Execution halted

  'vignette.Rnw'... failed