rdp <- RedPort('MyPort')
## Not run:
#
# calld(rdp)
#
# cols<-colorRampPalette(colors=c('red','blue'))(14)
# addLegend.color(rdp,cols)
# addLegend.color(rdp,cols,type="edge")
#
# size<-c(10,20,30,40,50)
# addLegend.size(rdp,size)
#
# size<-c(1:10)
# addLegend.size(rdp,size,type="edge")
#
# shape<-c('ELLIPSE', 'RECTANGLE', 'ROUNDED_RECTANGLE', 'TRIANGLE', 'DIAMOND')
# addLegend.shape(rdp,shape)
#
# shape<-c('SOLID','DOTTED','DOTTED_SHORT','LONG_DASH')
# addLegend.shape(rdp,shape,type="edge")
#
#
# ## End(Not run)
Run the code above in your browser using DataLab