##########################################
#
# exemples de programmation objet S4 en R
#
##########################################

# définition des classes

source("demoObj1.r",encoding="latin1")

# utilisation de la classe VSqt

v7 <- VSqt(sonTitre="poids",saRef="dossier HER (gh)",sesValeurs=c(8,12,15),sonUnite="kg")
print( v7 )

getTitre(   v7 )
getRef(     v7 )
getValeurs( v7 )
getUnite(   v7 )

setTitre(   v7 )  <- "poidsG"
setRef(     v7 )  <- "transf. en grammes de pois HER "
setValeurs( v7 )  <- getValeurs(v7)*1000
setUnite(   v7 )  <- "g"

# traitement objet d'une qt

print( v7 )
getValeurs( v7 )
decrit( v7 )

# sur le même principe :

# not run : # traitement objet d'une ql
#
#  maql <- Vsql(...
#  print(  maql )
#  decrit( maql )