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

> library(scuba)
scuba 1.11-0 
Type 'help(scuba)' for an introduction 
Read the warnings in 'help(scuba.disclaimer)' 
For news about changes to the package, type 'news(package='scuba')'

> sversion <- read.dcf(file = system.file("DESCRIPTION", 
+     package = "scuba"), fields = "Version")

> opa <- par(mfrow = c(1, 2))

> d1 <- dive(c(20, 20), c(5, 5))

> data(pedro)

> plot(d1, main = "", lwd = 4)

> plot(pedro950, main = "")

> par(opa)

> d <- dive(c(18, 45))

> d <- dive(c(18, 45))

> haldane(d)
        N2
1 2.115516
2 2.106403
3 1.901867
4 1.707818
5 1.562281
6 1.370893
7 1.253765
8 1.119592

> data(pedro)

> frag <- chop.dive(pedro902, 0, 35)

> hald <- haldane(frag, relative = TRUE, model = "Z")

> otu <- oxtox(frag)

> opa <- par(mfrow = c(1, 2))

> pozzie <- barplot(hald, xlab = paste("Tissues (ZH-L16A)", 
+     sep = ""), ylab = "Relative saturation", main = paste("Time= 35 min\n", 
+     "Acc ..." ... [TRUNCATED] 

> mtext(side = 1, at = pozzie[1], line = 1, text = "Fast")

> mtext(side = 1, at = pozzie[17], line = 1, text = "Slow")

> abline(h = 1, lty = 3, col = "red")

> plot(pedro902)

> abline(v = 35, lty = 2, col = "green")

> par(opa)

> hald902 <- haldane(pedro902, progressive = TRUE, relative = TRUE)

> persp(times.dive(pedro902), 1:8, hald902, theta = -45, 
+     shade = 0.5, col = "yellow", border = NA, xlab = "Time", 
+     ylab = "Tissue", zlab  .... [TRUNCATED] 

> ndl(24)
[1] 31.46958
attr(,"controlling")
[1] 3

> nitrox(0.32)
EANx 32 

> nitrox(1)
100% O2 

> ndl(24, nitrox(0.32))
[1] 49.7599
attr(,"controlling")
[1] 4

> g <- nitrox(0.32)

> ndl(24, g)
[1] 49.7599
attr(,"controlling")
[1] 4

> mod(nitrox(0.32))
[1] 33.75

> nd <- dive(nitrox(0.32), c(18, 45))

> d <- dive(trimix(0.18, 0.45), c(40, 20), c(30, 10), 
+     9, nitrox(0.6), c(9, 3), c(6, 5), c(3, 11))

> plot(d)

> detach("package:scuba")

> library(scuba)
scuba 1.11-0 
Type 'help(scuba)' for an introduction 
Read the warnings in 'help(scuba.disclaimer)' 
For news about changes to the package, type 'news(package='scuba')'

Attaching package: 'scuba'

The following objects are masked _by_ '.GlobalEnv':

    pedro902, pedro903, pedro904, pedro922, pedro943, pedro944,
    pedro945, pedro946, pedro948, pedro949, pedro950


> d <- dive(c(18, 45), c(5, 3))

> plot(d)

> d
Dive profile
gas: air
   time depth
1  0:00     0
2  0:36    18
3 45:36    18
4 46:19     5
5 49:19     5
6 49:36     0

> summary(d)
Dive to 18 metres on air
Total dive time: 49.6 minutes
Stages:
  depth time
1    18   45
2     5    3
Mean depth 16.9 metres

> d2 <- dive(c(18, 45), c(5, 3))

> plot(d2)

> d2
Dive profile
gas: air
   time depth
1  0:00     0
2  0:36    18
3 45:36    18
4 46:19     5
5 49:19     5
6 49:36     0

> d3 <- dive(c(30, 15), c(9, 1), c(5, 5), c(0, 60), 
+     c(12, 60), c(5, 5))

> plot(d3)

> data(baron)

> mydata <- baron

> head(mydata)
  time depth temp   bar RBT WL
1 0:00  0.00 24.8 199.0  99 14
2 0:04  1.90 24.8 198.8  99 14
3 0:08  2.76 24.8 198.8  99 14
4 0:12  3.70 24.8 198.8  99 14
5 0:16  4.66 24.8 198.5  98 14
6 0:20  5.50 24.8 198.5  96 14

> mydf <- mydata[, 1:2]

> head(mydf)
  time depth
1 0:00  0.00
2 0:04  1.90
3 0:08  2.76
4 0:12  3.70
5 0:16  4.66
6 0:20  5.50

> is.character(mydf[, 1])
[1] TRUE

> d <- dive(mydf)

> d <- dive(mydf, begin = NA, end = NA)

> data(baron)

> mydf <- baron[, 1:2]

> baronprof <- dive(mydf[, 1:2])

> data(pedro)

> plot(pedro902)

> d <- dive(c(30, 20), c(5, 3))

> depths.dive(d)
[1]  0 30 30  5  5  0

> times.dive(d)
[1]  0.00000  1.00000 21.00000 22.38889 25.38889 25.66667

> depths.dive(d) <- c(0, 35, 35, 5, 5, 0)

> d
Dive profile
gas: air
   time depth
1  0:00     0
2  1:00    35
3 21:00    35
4 22:23     5
5 25:23     5
6 25:40     0

> depths.dive(d)[2:3] <- 35

> durations.dive(d)[2] <- 25

> chop.dive(d, 0, 10)
Dive profile
gas: air
   time depth
1  0:00     0
2  1:00    35
3 10:00    30

> data(pedro)

> plot(pedro902)

> tim <- times.dive(pedro902)

> dep <- depths.dive(pedro902)

> t9 <- max(tim[dep >= 9])

> t9
[1] 45

> before <- chop.dive(pedro902, 0, t9)

> after <- chop.dive(pedro902, t9)

> newdive <- dive(before, c(9, 5), after)

  When sourcing 'intro.R':
Error: Vector of length > 2 is not a recognised format
Execution halted

  'intro.Rnw'... failed