# NOT RUN {
5 %isa% numeric
Point(r,theta, 'polar') %as% {
o <- list(r=r,theta=theta)
o@system <- 'polar'
o
}
p <- Point(5, pi/2, 'polar')
p
# }
# NOT RUN {
<!-- %hasa% theta -->
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab