Hi Michael,
Thank you for your reply. I have uploaded the minimum, I have left out the
formulas for calculating the amounts as they are not important to the loop.
Basically I have a while loop running that adds to the list of values and
then outside this loop I have a list called sis, this is the list that is
causing the error. I would like this list to return the values with panel,
before I used rpanel it was returning values perfectly.
Thanks
main <- function(panel)
{
with(panel,{
LAST = 1100
START = 0
index = 0 #### Starting Conditions
revenue = 0
minStock = panel$minStock
maxStock = 100
inventory = 100
order_costs = 0
storage_costs = 0
orderlevel =panel$k
sum = list(ninventory=inventory,order_costs=0,storage_costs=0,revenue =
0)
# initial list containing values
while(index < LAST && inventory >0) {
sum$order_costs = sum$order_costs + order_costs
sum$storage_costs = sum$storage_costs + storage_costs
sum$ninventory = sum$ninvenotry + inventory
index = index + 1
}
})
sis = list(Time = index,StorageCosts=sum$storage_costs,OrderCosts=
sum$order_cost,fInventory = sum$ninventory)
return(sis)
}
panel <- rp.control(title="Stochastic Case", size=panel.size)
rp.button(panel,action=main,title="Calculate",pos=pos.go.button)
rp.slider(panel,k,from=10,to=90,resolution=10,showvalue=TRUE,title="Select
Order Size",pos=pos.order.slider,initval=70)
rp.slider(panel,minStock,from=10,to=90,resolution=10,pos=pos.minstock.slider,initval
= 50,title="Minimum Stock Level",showvalue=TRUE)
--
View this message in context:
http://r.789695.n4.nabble.com/rpanel-list-error-tp4457308p4459254.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
