# NOT RUN {
# Return the partition polynomial F[5]
pPart(5)
# Return the partition polynomial F[11] and its evaluation when y=7
#
s<-pPart(11) # run the command
s<-paste0("1",s) # add the coefficient to the first term (fixed command)
s<-gsub(" y","1y",s) # replace the variable y without coefficient (fixed command)
s<-gsub("y", "*7",s) # assignment y = 7
eval(parse(text=s)) # evaluation of the expression (fixed command)
# }
Run the code above in your browser using DataLab