Create and test for three-velocities, 3vel
objects.
`3vel`(n)
threevel(n)
as.3vel(x)
is.3vel(x)
# S3 method for vec
length(x)
# S3 method for vec
names(x)
# S3 method for vec
names(x) <- value
In function 3vel()
, number of three velocities to
create
Vectors of three-velocities
Robin K. S. Hankin
U <- r4vel(7)
as.4vel(as.3vel(U)) # equal to U, to numerical precision
x <- as.3vel(1:3/4)
u <- as.3vel(matrix(runif(30)/10,ncol=3))
names(u) <- letters[1:10]
x+u
u+x # not equal
Run the code above in your browser using DataLab