str(J <- diag(ulong(1L), 2L))
as.integer(J)
as.vector(J, "integer")
as(J, "integer")
asVector(J, "integer")
asVector(J, "integer", FALSE)
setClass("ulongExtension", contains = "ulong")
str(J. <- new("ulongExtension", J))
str(asVector(J , "ulong"))
str(asVector(J., "ulong"))
str(asVector(J , "ulong", FALSE))
str(asVector(J., "ulong", FALSE))
Run the code above in your browser using DataLab