# NOT RUN {
# Initialization of Spectrino
spnNew()
# generate test set
spnOpenTree("<test>")
# the number of the checked specs in second group
i1 <- spnGetSpcCount(TRUE,2)
# the number of specs in the active group
i2 <- spnGetSpcCount(FALSE,0)
# the number of specs in "Test3" group
i3 <- spnGetSpcCount(FALSE,"Test3")
# Release of Spectrino
#spnFree(TRUE)
# }
Run the code above in your browser using DataLab