Running examples in ‘gmeta-Ex.R’ failed
The error most likely occurred in:

> ### Name: gmeta
> ### Title: Meta-Analysis via a Unified Framework under Confidence
> ###   Distribution
> ### Aliases: gmeta gmeta.default print.gmeta.e print.gmeta.m print.gmeta.p
> ###   print.summary.gmeta.e print.summary.gmeta.m print.summary.gmeta.p
> ###   summary.gmeta.e summary.gmeta.m summary.gmeta.p hiring ulcer
> ### Keywords: meta-analysis
> 
> ### ** Examples
> 
> #### gmeta: generalized meta-analysis approach ####
> 
> data(ulcer)
> ulcer.o <- as.matrix(ulcer)
> 
> # p-value combination #
> # impute 0.5
> ulcer <- ifelse(ulcer.o==0, 0.5, ulcer.o)
> # summary statistics
> ulcer.theta <- log( (ulcer[,1]*ulcer[,4]) / (ulcer[,2]*ulcer[,3]) ) 
> ulcer.sigma <- sqrt(1/ulcer[,1] + 1/ulcer[,2] + 1/ulcer[,3] + 1/ulcer[,4]) 
> # p-values from individual studies for K0: LOR >=0 vs. Ka: LOR < 0
> ulcer.pvalues <- pnorm(ulcer.theta, mean=0, sd=ulcer.sigma)
> # p-value combination using gmeta function
> gmo.pvalue <- gmeta(ulcer.pvalues, gmi.type='pvalue', method='normal')
> gmo.pvalue <- gmeta(ulcer.pvalues, gmi.type='pvalue', method='tippett')
> print(gmo.pvalue)
		P-value combination through CD-Framework

Call:
gmeta.default(gmi = ulcer.pvalues, gmi.type = "pvalue", method = "tippett")

Combine Method:    tippett 

Combined p-value:  0.0005746768 

Individual p-values:
 [1] 2.364514e-02 3.204119e-01 7.170408e-01 7.631117e-01 9.045478e-01
 [6] 1.435593e-01 2.786246e-02 2.963888e-04 2.499260e-01 1.713687e-03
[11] 3.850228e-02 3.061835e-02 8.296315e-01 8.454856e-01 3.066366e-02
[16] 1.417192e-01 6.571353e-03 7.575993e-02 3.877901e-03 1.602023e-02
[21] 2.165047e-04 8.145715e-01 6.764660e-01 2.568914e-01 8.483522e-03
[26] 1.027274e-01 4.056633e-01 1.735560e-03 1.929439e-02 1.113040e-02
[31] 8.729020e-03 5.737073e-02 1.024082e-01 5.638801e-02 7.908861e-01
[36] 5.038550e-03 6.858163e-01 9.294398e-02 1.960676e-02 1.402044e-05
[41] 6.108883e-01
> summary(gmo.pvalue)
		P-value combination through CD-Framework

Call:
gmeta.default(gmi = ulcer.pvalues, gmi.type = "pvalue", method = "tippett")

Combine Method:    tippett 

Combined p-value:  0.0005746768 

Individual p-values:
 [1] 2.364514e-02 3.204119e-01 7.170408e-01 7.631117e-01 9.045478e-01
 [6] 1.435593e-01 2.786246e-02 2.963888e-04 2.499260e-01 1.713687e-03
[11] 3.850228e-02 3.061835e-02 8.296315e-01 8.454856e-01 3.066366e-02
[16] 1.417192e-01 6.571353e-03 7.575993e-02 3.877901e-03 1.602023e-02
[21] 2.165047e-04 8.145715e-01 6.764660e-01 2.568914e-01 8.483522e-03
[26] 1.027274e-01 4.056633e-01 1.735560e-03 1.929439e-02 1.113040e-02
[31] 8.729020e-03 5.737073e-02 1.024082e-01 5.638801e-02 7.908861e-01
[36] 5.038550e-03 6.858163e-01 9.294398e-02 1.960676e-02 1.402044e-05
[41] 6.108883e-01
> 
> # model-based meta-analysis #
> # data.frame of summary statistics
> ulcer.pivots <- data.frame(mns=ulcer.theta, sds=ulcer.sigma)
> # fixed-effect model
> gmo.mdlfx <- gmeta(ulcer.pivots, method='fixed-mle', gmo.xgrid=seq(from=-10,to=10,by=0.01))
Error in regularize.values(x, y, ties, missing(ties)) : 
  'ties' is not "ordered", a function, or list(<string>, <function>)
Calls: gmeta ... gmeta.cd.stddev -> diff -> approx -> regularize.values
Execution halted