# NOT RUN {
Double <- J("java.lang.Double")
d <- new( Double, "10.2" )
# character
d %instanceof% "java.lang.Double"
d %instanceof% "java.lang.Number"
# jclassName
d %instanceof% Double
# instance of Class
Double.class <- Double@jobj
d %instanceof% Double.class
# other object
other.double <- new( Double, 10.2 )
d %instanceof% other.double
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab