search for: deffunbodypt1

.... I have tried various approaches without sucess but I feel sure that someone has done this already. Here is one attempt ============== % First, define the funciton header <<defFunHdr, eval=FALSE>>= x <- function(a =1) @ % Explain the code in the first part of the function <<defFunBodyPt1, eval=FALSE>>= { a <- a+1 @ % Explain the code in the second part of the function <<defFunBodyPt2, eval=FALSE>>= a <- a^2 a } # end of function @ % now bring the chunks together so that Sweave evaluates the function. <<evalFun, echo=FALSE>>= <<defFunHd...

.... I have tried various approaches without sucess but I feel sure that someone has done this already. Here is one attempt ============== % First, define the funciton header <<defFunHdr, eval=FALSE>>= x <- function(a =1) @ % Explain the code in the first part of the function <<defFunBodyPt1, eval=FALSE>>= { a <- a+1 @ % Explain the code in the second part of the function <<defFunBodyPt2, eval=FALSE>>= a <- a^2 a } # end of function @ % now bring the chunks together so that Sweave evaluates the function. <<evalFun, echo=FALSE>>= <<defFunHd...