# NOT RUN {
# Initialization of Spectrino
spnNew()
# generate test set
spnOpenTree("<test>")
# the name of second spec-group
s1 <- spnGetGrpName(2)
# the name of the active group
s2 <- spnGetGrpName(0)
# Release of Spectrino
#spnFree(TRUE)
# }
Run the code above in your browser using DataLab