expected <- eval(parse(text="3L"));                   
test(id=0, code={                   
argv <- eval(parse(text="list(structure(list(structure(list(structure(\"Update varFunc Object\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\title\"), structure(list(structure(\"update.varFunc\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\name\"), structure(list(structure(\"update.varExp\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"update.varFunc\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"update.varComb\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"update.varConstPower\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"),     structure(list(structure(\"update.varExpon\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"update.varPower\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"models\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\keyword\"), structure(list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"  If the \", Rd_tag = \"TEXT\"), structure(list(structure(\"formula(object)\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" includes a \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\".\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"),         structure(\" term, representing\\n\", Rd_tag = \"TEXT\"), structure(\"  a fitted object, the variance covariate needs to be updated upon\\n\", Rd_tag = \"TEXT\"), structure(\"  completion of an optimization cycle (in which the variance function\\n\", Rd_tag = \"TEXT\"), structure(\"  weights are kept fixed). This method function allows a reevaluation of\\n\", Rd_tag = \"TEXT\"), structure(\"  the variance covariate using the current fitted object and,\\n\", Rd_tag = \"TEXT\"), structure(\"  optionally, other variables in the original data.\\n\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\description\"),     structure(list(structure(\"\\n\", Rd_tag = \"RCODE\"), structure(list(list(structure(\"update\", Rd_tag = \"TEXT\")), list(structure(\"varFunc\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\method\"), structure(\"(object, data, \", Rd_tag = \"RCODE\"), structure(list(), Rd_tag = \"\\\\dots\"), structure(\")\\n\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\usage\"), structure(list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"  \", Rd_tag = \"TEXT\"), structure(list(list(structure(\"object\", Rd_tag = \"TEXT\")), list(structure(\"an object inheriting from class \", Rd_tag = \"TEXT\"),         structure(list(structure(\"varFunc\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\",\\n\", Rd_tag = \"TEXT\"), structure(\"    representing a variance function structure.\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\" \\n\", Rd_tag = \"TEXT\"), structure(\"  \", Rd_tag = \"TEXT\"), structure(list(list(structure(\"data\", Rd_tag = \"TEXT\")), list(structure(\"a list with a component named \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\".\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" with the current\\n\", Rd_tag = \"TEXT\"),         structure(\"    version of the fitted object (from which fitted values, coefficients,\\n\", Rd_tag = \"TEXT\"), structure(\"    and residuals can be extracted) and, if necessary, other variables\\n\", Rd_tag = \"TEXT\"), structure(\"    used to evaluate the variance covariate(s).\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\" \", Rd_tag = \"TEXT\"), structure(list(list(structure(list(), Rd_tag = \"\\\\dots\")), list(structure(\"some methods for this generic require additional\\n\", Rd_tag = \"TEXT\"),         structure(\"    arguments.  None are used in this method.\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\" \\n\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\arguments\"), structure(list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"  if \", Rd_tag = \"TEXT\"), structure(list(structure(\"formula(object)\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" includes a \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\".\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" term, an\\n\", Rd_tag = \"TEXT\"), structure(\"  \", Rd_tag = \"TEXT\"),         structure(list(structure(\"varFunc\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" object similar to \", Rd_tag = \"TEXT\"), structure(list(structure(\"object\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\", but with the \\n\", Rd_tag = \"TEXT\"), structure(\"  variance covariate reevaluated at the current fitted object value;\\n\", Rd_tag = \"TEXT\"), structure(\"  else \", Rd_tag = \"TEXT\"), structure(list(structure(\"object\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" is returned unchanged.\\n\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\value\"),     structure(list(structure(\"JosÃ© Pinheiro and Douglas Bates \", Rd_tag = \"TEXT\"), structure(list(structure(\"bates@stat.wisc.edu\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\email\")), Rd_tag = \"\\\\author\"), structure(list(structure(list(structure(list(structure(\"needUpdate\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\")), Rd_tag = \"\\\\code\"), structure(\",\\n\", Rd_tag = \"TEXT\"), structure(\"  \", Rd_tag = \"TEXT\"), structure(list(structure(list(structure(\"covariate<-.varFunc\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\")), Rd_tag = \"\\\\code\"),         structure(\"\\n\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\seealso\")), Rdfile = \"/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/update.varFunc.Rd\", class = \"Rd\", meta = structure(list(docType = character(0)), .Names = \"docType\"), prepared = 3L), \"prepared\")"));                   
do.call(`attr`, argv);                   
}, o=expected);                   

