w <- gwindow("Controle os parĂ¢metros") tbl <- glayout(cont=w) for(i in 1:length(limits)){ tbl[i,1] <- paste("Deslizador para", names(limits)[i]) tbl[i,2, expand=TRUE] <- (assign(names(limits)[i], gslider(from=limits[[i]][1], to=limits[[i]][2], by=diff(limits[[i]])/30, value=mean(limits[[i]]), container=tbl, handler=plot.dist))) }