Caros colegas

Vejam se conseguem me ajudar com este problema.

Tenho um dataset hipotético chamado "Banco". Nele, quero criar uma nova coluna chamada "Values" que receberá os "fitted.values" de uma regressão logística hipotética. Para isso estou usando o seguinte código:

Model<-glm(STATUS~IDADE+factor(SEXO)+BMI, family=binomial, data=Banco)
Banco$Values<-NA
Banco$Values<-fitted.values(Model)

Entretanto, estou recebendo o seguinte erro (provavelmente devido a missings presentes na amostra e que dificultam o "acoplamento"):
Error in `$<-.data.frame`(`*tmp*`, "Values", value = c(0.294116120345017,  : 
  replacement has 980 rows, data has 1021

Alguém sabe como resolver isto?

Desde já agradeço a atenção,

Ary Serpa Neto, MD, MSc, PhD
Hospital Israelita Albert Einstein, São Paulo, Brazil (http://www.einstein.br): Department of Critical Care Medicine & Jewish Institute of Education and Research Albert Einstein (http://www.einstein.br/pesquisa)
The PROtective VEntilation NETwork (www.provenet.eu)
Associate Editor: BMC Anesthesiology
http://publicationslist.org/a.serpa_neto
http://lattes.cnpq.br/0254664157557375