{
##Create a DAVIDWebService object
david<-DAVIDWebService$new()
##Invoke Reference class style function setter/getters
david$setEmail("valid_mail@david.org")
david$getEmail()
stub<-david$getStub()
##Or the equivalent S4 style function call setter/getters
setEmail(david, "valid_mail@david.org")
getEmail(david)
stub<-getStub(david)
}
Run the code above in your browser using DataLab