Analisis SIR Kasus Covid19 di Indonesia dengan R Studio

Menginstal package library analisis covid-19

library(covid19.analytics)

Memanggil data covid-19

ag <- covid19.data(case = 'aggregated')

## Data being read from JHU/CCSE repository

## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

## Reading data from https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_daily_reports/09-25-2021.csv

## ================================================================================

## A problem was detected when trying to retrieve the data for the package: https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_daily_reports/09-25-2021.csv

## The URL or file was not found! Please contact the developer about this!

## simpleWarning in file(file, "rt"): cannot open URL 'https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_daily_reports/09-25-2021.csv': HTTP status was '404 Not Found'

## ================================================================================

## We will load the preserved data instead, please notice that this data is not the latest one but instead an 'image' from previous records.

## Data being read from *local* repo in the 'covid19.analytics' package

## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

## Reading data from F:/Local Disk C/R-4.1.1/library/covid19.analytics/extdata/latest.RDS

tsc <- covid19.data(case = 'ts-confirmed')

## Data being read from JHU/CCSE repository

## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

## Reading data from https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv

## Data retrieved on 2021-09-26 09:49:29 || Range of dates on data: 2020-01-22--2021-09-24 | Nbr of records: 279

## --------------------------------------------------------------------------------

Mencari data total per lokasi di Indonesia

tots.per.location(tsc, geo.loc = 'INDONESIA')

Laju Pertumbuhan Kasus di Indonesia

growth.rate(tsc, geo.loc =  'INDONESIA')

## Loading required package: pheatmap

## Loading required package: gplots

## 
## Attaching package: 'gplots'

## The following object is masked from 'package:stats':
## 
##     lowess

Plot kasus covid di seluruh dunia

Model SIR Kasus Covid-19 di Indonesia

generate.SIR.model(tsc, 'INDONESIA', tot.population = 268583016)

## This is an experimental feature, being currently under active development!

## Please check the development version of the package for the latest updates on it

## Loading required package: deSolve

## Warning in xy.coords(x, y, xlabel, ylabel, log = log, recycle = TRUE): 1 y value
## <= 0 omitted from logarithmic plot

Daftar Pustaka

https://www.youtube.com/watch?v=36utsEnDid8&t