R da Babi

ex2.r

complete <- function(directory, id)
 {
  nobs <- vector()
  for(valor in id)
  {
    monitor <- getmonitor(valor, directory) ##função anterior##
    nobsdata <-sum(complete.cases(monitor)) ##informação do número de casos##
    nobs <- c(nobs, nobsdata)
  }
##função pra retornar os casos e os ids como dataframe##
  resultado <- data.frame(id=id, nobs=nobs)
  print (resultado)
}