###################################################
### chunk number 1: 
###################################################
options(width=60)


###################################################
### chunk number 2: simplestFunc
###################################################
square <- function(x) {
    return(x^2)
}
square(10)


###################################################
### chunk number 3: simplestTypeInfo
###################################################
library(TypeInfo)
STS <- SimultaneousTypeSpecification
TS <- TypedSignature

typeInfo(square) <-  
  STS(TS(x = "numeric"), returnType = "numeric")


###################################################
### chunk number 4: simplestTypeInfoQuery
###################################################
typeInfo(square)


###################################################
### chunk number 5: simplestRWebServices eval=FALSE
###################################################
## library(CaAffy)
## RJavaSignature(c(caAffy))


###################################################
### chunk number 6: classUnionEg
###################################################
setClass("A", "logical")
setClass("B", "character")
setClassUnion("C", c("A","B"))


###################################################
### chunk number 7: S4-limits
###################################################
setClass("D", representation=representation(x="numeric"))
setClass("E", contains="D", representation=representation(y="numeric"))