R help - Apr 2006 - Problem with Crawley book example

Hi,

I try to run the example of Crawley's Book on the page 661, but it fail,
look
> repmeasures <- 
read.table("../Packages/Crawley/data/repmeasures.txt",header=T)
> attach(repmeasures)
> rep <- as.factor(rep)
> library(nlme)
> model <- lme(height~seed,random=~time|rep/seed)
Erro em lme.formula(height ~ seed, random = ~time | rep/seed) : 
	iteration limit reached without convergence (9)

I try to increase the iteration but dont fix the problem.

I run this using R 2.2.1 on Debian/Linux and on Windows XP, the problem is the 
same.

Why this data dont run.

Thanks
Ronaldo
-- 
	Seu proposito de guerrear dara frutos de inquietacao.
--
|>   // | \\   [***********************************]
|   ( ?   ? )  [Prof. Ronaldo Reis J?nior          ]
|>      V      [UFV/DBA-Entomologia                ]
|    /     \   [36570-000 Vi?osa - MG              ]
|>  /(.''`.)\  [Fone: 31-3899-4007                 ]
|  /(: :'  :)\ [chrysopa at insecta.ufv.br            ]
|>/ (`. `'` ) \[ICQ#: 5692561 | LinuxUser#: 205366 ]
|    ( `-  )   [***********************************]
|>>  _/   \_Powered by GNU/Debian Testing

Em Ter?a 04 Abril 2006 13:52, Dimitris Rizopoulos
escreveu:
> change the number of EM iterations and try again, this has worked for
> me, some times, when I received the same error message as you did,
> i.e.,
>
> library(nlme)
> model <- lme(height ~ seed, random = ~ time | rep / seed, control >
list(niterEM = 10))
>
> However, this type of error message might imply that your model is
> over-parameterized.
>
> I hope it helps.
>
> Best,
> Dimitris
Dimitris,

thanks, but it dont work.

model <- lme(height~seed,random=~time|rep/seed,control=list(niterEM = 10))
Erro em lme.formula(height ~ seed, random = ~time | rep/seed, control = 
list(niterEM = 10)) : 
	iteration limit reached without convergence (9)
> model <- lme(height~seed,random=~time|rep/seed,control=list(niterEM =
100))
Erro em lme.formula(height ~ seed, random = ~time | rep/seed, control = 
list(niterEM = 100)) : 
	iteration limit reached without convergence (9)
> model <- lme(height~seed,random=~time|rep/seed,control=list(niter =
100))
Erro em lme.formula(height ~ seed, random = ~time | rep/seed, control = 
list(niter = 100)) : 
	iteration limit reached without convergence (9)

Inte
Ronaldo
-- 
	O oposto do amor nao e o odio e sim, a indiferenca.
		--  Erico Verissimo 
--
|>   // | \\   [***********************************]
|   ( ?   ? )  [Prof. Ronaldo Reis J?nior          ]
|>      V      [UFV/DBA-Entomologia                ]
|    /     \   [36570-000 Vi?osa - MG              ]
|>  /(.''`.)\  [Fone: 31-3899-4007                 ]
|  /(: :'  :)\ [chrysopa at insecta.ufv.br            ]
|>/ (`. `'` ) \[ICQ#: 5692561 | LinuxUser#: 205366 ]
|    ( `-  )   [***********************************]
|>>  _/   \_Powered by GNU/Debian Testing