# NOT RUN {
# Initialization of Spectrino
spnNew()
# generate test set
spnOpenTree("<test>")
# delete third spec from the first group
# i1 - the number of specs after deleting
i1 <- spnDelSpc(1,3)
# delete all the specs from the active group;
spnDelSpc(0,"*")
# Release of Spectrino
#spnFree(TRUE)
# }
Run the code above in your browser using DataLab