Capítulo 10 Sugestões de resolução

Capítulo 1

Solução. 1.4
Obs.: Os dados podem variar dependendo da atualização dos dados do pacote. Esta solução foi realizada em 2021-05-02 após rodar o comando coronavirus::update_dataset(silence = FALSE).

library(coronavirus)
options(digits = 20) # para apresentar mais dígitos significativos (7 é o padrão)
sum(coronavirus$cases)  # a, 251616844

## [1] 251616844

sum(coronavirus$cases^2) # b, 15155931337238

## [1] 15155931337238

options(digits = 7) # voltando ao padrão
by(coronavirus$cases, coronavirus$type, sum) # c

## coronavirus$type: confirmed
## [1] 152196159
## ------------------------------------------------------------------------------------------ 
## coronavirus$type: death
## [1] 3192583
## ------------------------------------------------------------------------------------------ 
## coronavirus$type: recovered
## [1] 96228102

n = nrow(coronavirus) # 377460

4. \(\sum_{i=1}^{377460} x_{i} = 251616844\).
   \(\sum_{i=1}^{377460} x_{i}^2 = 15155931337238\).