Hello fellows: I've een trying to set up a function that performs 100  
loops producing the coresponding 100 series. I want to save all those  
datasets in a dataframe, so I wrote this...

prep <- function()

# Clase[1]/Categoria[2]/Phi[3]/Rf[4]
   peso <- c(.0,.03,.3,.6)
# Extension del calculo
   for (i in 1:100)
{
# Calculos de todas las curvas
   # Variables (Valor Base)
   abase <- AlicuotaBruta
   clase <- llmcc$Clase
   as.numeric(peso)
   df.clases <- data.frame()
   df.clases[,i] <- (abase/llmcc$Clase)*peso[1]
   peso[1] <- peso[1]+(.01)
   cat("Modelos de Alicuotas:", i, peso[1], "\n")
}
return (df.clases)

Problem is: the function does not work, and I just cant seem to  
understand how to save the results for every iteration where the value  
of i  and peso[1] changes.
Any ideas?



Hágale un favor a alguien y le tendrá que hacer muchos mas. Ley de  
Pinto.
------------------------------
Jesús Guillermo Andrade (Abg.)
Gerente de Litigios y Corporativo. EDM. AC. API.
Andrade & Moreno S.C. (http://amlegal.wordpress.com/)


	[[alternative HTML version deleted]]


