# NOT RUN {
library(oce)
# Example 1: creation from scratch
t <- Sys.time() + 0:50
u <- sin(2*pi*0:50/5) + rnorm(51)
v <- cos(2*pi*0:50/5) + rnorm(51)
p <- 100 + rnorm(51)
summary(as.cm(t, u, v, p))
# Example 2: creation from an adv object
data(adv)
summary(as.cm(adv))
# }
Run the code above in your browser using DataLab