search

covid19br / nowcasting

Repositório para análises de nowcasting
11 stars 1 forks source link

Função posteriors em porsteriors.R #30

Closed flamarquitti closed 4 years ago

flamarquitti commented 4 years ago

Aparentemente o comando abaixo da função "posteriors" não retira as linhas que supostamente deveria tirar:

r_sample = data[-which(row.names(data) %in% c("t_start","t_end"))]

Como consequencia, temos um Reff maior do que de fato é, pois ele usa os valores que estão nas linhas t_start e t_end no calculo de média, desvio e quantis.

A solução fácil é substituir a linha da função:

r_sample = data[-which(row.names(data) %in% c("t_start","t_end"))]

por:

x=dim(data)[1]
r_sample = data[-c((x-1),x),]
flamarquitti commented 4 years ago

Outra solução possível é só colocar uma virgula no que ta la (antes de fechar o colchete):

r_sample = data[-which(row.names(data) %in% c("t_start","t_end")),]

flamarquitti commented 4 years ago

Subi a solução em fct/posteriors.R e dentro de _src/funcoes.R