Running examples in 'StatMatch-Ex.R' failed
The error most likely occurred in:

> ### Name: Frechet.bounds.cat
> ### Title: Frechet bounds of cells in a contingency table
> ### Aliases: Frechet.bounds.cat
> ### Keywords: multivariate
> 
> ### ** Examples
> 
> 
> data(quine, package="MASS") #loads quine from MASS
> str(quine)
'data.frame':	146 obs. of  5 variables:
 $ Eth : Factor w/ 2 levels "A","N": 1 1 1 1 1 1 1 1 1 1 ...
 $ Sex : Factor w/ 2 levels "F","M": 2 2 2 2 2 2 2 2 2 2 ...
 $ Age : Factor w/ 4 levels "F0","F1","F2",..: 1 1 1 1 1 1 1 1 2 2 ...
 $ Lrn : Factor w/ 2 levels "AL","SL": 2 2 2 1 1 1 1 1 2 2 ...
 $ Days: int  2 11 14 5 5 13 20 22 6 6 ...
> 
> # split quine in two subsets
> suppressWarnings(RNGversion("3.5.0"))
> set.seed(7654)
> lab.A <- sample(nrow(quine), 70, replace=TRUE)
> quine.A <- quine[lab.A, 1:3]
> quine.B <- quine[-lab.A, 2:4]
> 
> # compute the tables required by Frechet.bounds.cat()
> freq.xA <- xtabs(~Sex+Age, data=quine.A)
> freq.xB <- xtabs(~Sex+Age, data=quine.B)
> 
> freq.xy <- xtabs(~Sex+Age+Eth, data=quine.A)
> freq.xz <- xtabs(~Sex+Age+Lrn, data=quine.B)
> 
> # apply Frechet.bounds.cat()
> bounds.yz <- Frechet.bounds.cat(tab.x=freq.xA+freq.xB, tab.xy=freq.xy,
+         tab.xz=freq.xz, print.f="data.frame")
Warning in Frechet.bounds.cat(tab.x = freq.xA + freq.xB, tab.xy = freq.xy,  :
  The marginal distr. of the X variables 
 
                        in tab.xy is not equal to tab.x
Warning in Frechet.bounds.cat(tab.x = freq.xA + freq.xB, tab.xy = freq.xy,  :
  The marginal distr. of the X variables 
 
                        in tab.xz is not equal to tab.x
Warning in Frechet.bounds.cat(tab.x = freq.xA + freq.xB, tab.xy = freq.xy,  :
  The marginal distr. of the X variables 
 
                        in tab.xy and in tab.xz are not equal
> bounds.yz
$bounds
  Eth Lrn     low.u     low.cx       CIA     up.cx      up.u
1   A  AL 0.0000000 0.15219119 0.2269025 0.3190095 0.3714286
2   N  AL 0.0998358 0.21094779 0.3030548 0.3777661 0.4712644
3   A  SL 0.0000000 0.03339399 0.1255010 0.2002123 0.3714286
4   N  SL 0.1573071 0.26983038 0.3445417 0.4366487 0.5287356

$uncertainty
     av.u     av.cx 
0.3714286 0.1668183 

> 
> # harmonize distr. of Sex vs. Age during computations
> # in Frechet.bounds.cat()
> 
> #compare marg. distribution of Xs in A and B vs. pooled estimate
> comp.prop(p1=margin.table(freq.xy,c(1,2)), p2=freq.xA+freq.xB, 
+           n1=nrow(quine.A), n2=nrow(quine.A)+nrow(quine.B), ref=TRUE)
$meas
      tvd   overlap     Bhatt      Hell 
0.1161056 0.8838944 0.9909960 0.0948895 

$chi.sq
   Pearson         df      q0.05   delta.h0 
 4.7164476  7.0000000 14.0671404  0.3352812 

$p.exp
   Age
Sex         F0         F1         F2         F3
  F 0.07006369 0.22292994 0.12101911 0.14012739
  M 0.11464968 0.08917197 0.14012739 0.10191083

> 
> comp.prop(p1=margin.table(freq.xz,c(1,2)), p2=freq.xA+freq.xB, 
+           n1=nrow(quine.A), n2=nrow(quine.A)+nrow(quine.B), ref=TRUE)
$meas
       tvd    overlap      Bhatt       Hell 
0.09341826 0.90658174 0.99454796 0.07383795 

$chi.sq
   Pearson         df      q0.05   delta.h0 
 3.0533219  7.0000000 14.0671404  0.2170535 

$p.exp
   Age
Sex         F0         F1         F2         F3
  F 0.07006369 0.22292994 0.12101911 0.14012739
  M 0.11464968 0.08917197 0.14012739 0.10191083

> 
> bounds.yz <- Frechet.bounds.cat(tab.x=freq.xA+freq.xB, tab.xy=freq.xy,
+         tab.xz=freq.xz, print.f="data.frame", align.margins=TRUE)
Error in loadNamespace(name) : there is no package called 'mipfp'
Calls: Frechet.bounds.cat ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted