# NOT RUN {
x <- Variable()
y <- Variable(3)
z <- Variable(3,2)
is_scalar(x)
is_scalar(y)
is_scalar(x + y)
is_vector(x)
is_vector(y)
is_vector(2*z)
is_matrix(x)
is_matrix(y)
is_matrix(z)
is_matrix(z - x)
# }
Run the code above in your browser using DataLab