## Not run:
# list1<-Steps(4,1) #Get all stages : of the PG(4,2)
#
# list2<-Steps(4,1,c('S1','S2')) #Get the 2 first stages : of the PG(4,2)
#
# list3<-Steps(4,1,c('S1','S4')) #Get the first & the last stage : of the PG(4,2)
#
# list4<-Steps(4,1,'S4') #Get the last stage : of the PG(4,2)
# ## End(Not run)
Run the code above in your browser using DataLab