# NOT RUN {
# Initialization of Spectrino
spnNew()
# generate test set
spnOpenTree("<test>")
# set third group to be active
spnActTree(1)
# get the number of active group
i <- spnActGrp(0)
# Release of Spectrino
#spnFree(TRUE)
# }
Run the code above in your browser using DataLab