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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: mixCov
> ### Title: Aggregating covariances matrices and/or error vectors into a
> ###   single covariance matrix
> ### Aliases: mixCov
> ### Keywords: array algebra multivariate
> 
> ### ** Examples
> 
> #######################################################
> ## Example in Annex H.4.1 from the GUM 2008 manual
> ## (see 'References'), measurement of activity.
> ## This will give exactly the same values as Table H.8.
> data(H.4)
> attach(H.4)
> T0 <- 60
> lambda <- 1.25894E-4
> Rx <- ((Cx - Cb)/60) * exp(lambda * tx)
> Rs <- ((Cs - Cb)/60) * exp(lambda * ts)
> 
> mRx <- mean(Rx)
> sRx <- sd(Rx)/sqrt(6)
> mRx
[1] 652.6007
> sRx
[1] 6.416466
> 
> mRs <- mean(Rs)
> sRs <- sd(Rs)/sqrt(6)
> mRs
[1] 206.0881
> sRs
[1] 3.792532
> 
> R <- Rx/Rs
> mR <- mean(R)
> sR <- sd(R)/sqrt(6)
> mR
[1] 3.170186
> sR
[1] 0.04563322
> 
> cor(Rx, Rs)
[1] 0.6459873
> 
> ## Definition as in H.4.3.
> As <- c(0.1368, 0.0018)
> ms <- c(5.0192, 0.005)
> mx <- c(5.0571, 0.001)
> 
> ## We have to scale Rs/Rx by sqrt(6) to get the 
> ## corresponding covariances.
> Rs <- Rs/sqrt(6)
> Rx <- Rx/sqrt(6)
> 
> ## Here we create an aggregated covariance matrix
> ## from the raw and summary data.
> COV1 <- cov(cbind(Rs, Rx))
> COV <- mixCov(COV1, As[2]^2, ms[2]^2, mx[2]^2)
> COV
         Rs       Rx       As      ms    mx
Rs 14.38330 15.71988 0.00e+00 0.0e+00 0e+00
Rx 15.71988 41.17103 0.00e+00 0.0e+00 0e+00
As  0.00000  0.00000 3.24e-06 0.0e+00 0e+00
ms  0.00000  0.00000 0.00e+00 2.5e-05 0e+00
mx  0.00000  0.00000 0.00e+00 0.0e+00 1e-06
> 
> ## Prepare the data for 'propagate'.
> MEANS <- c(mRs, mRx, As[1], ms[1], mx[1])
> SDS <- c(sRs, sRx, As[2], ms[2], mx[2])
> DAT <- rbind(MEANS, SDS)
> colnames(DAT) <- c("Rs", "Rx", "As", "ms", "mx")
> 
> ## This will give exactly the same values as 
> ## in H.4.3/H.4.3.1.
> EXPR <- expression(As * (ms/mx) * (Rx/Rs))
> RES <- propagate(EXPR, data = DAT, cov = COV)
Error in if (cov & isRaw) { : the condition has length > 1
Calls: propagate
Execution halted