# NOT RUN {
local(envir=.PBSmodEnv,expr={
pvec <- data.frame(val=c(1,100,10000),min=c(0,0,0),max=c(5,500,50000),
active=c(TRUE,TRUE,TRUE))
S <- c(.5,.5,.5)
P <- restorePar(S,pvec)
print(cbind(pvec,S,P))
})
# }
Run the code above in your browser using DataLab