AnalysisByCountry2: Analysis by country

In fblues/Test: Prediction region based on over-dispersed Poisson Regression

Description

function for country-wise analysis

Usage

AnalysisByCountry2(
  CountryAbbrev = "USA",
  alldata = countrydata,
  fval = 0.14,
  lwdval1 = 5,
  lwdval2 = 3,
  cexval = 0.9,
  toplot = F,
  lowdeaths = 1
)

Arguments

CountryAbbrev	Country name
alldata	data
fval	graphical parameter
lwdval1	graphical parameter
lwdval2	graphical parameter
cexval	graphical parameter
toplot	plot or not
lowdeaths	the lowest number for deaths

Details

Okay

Value

list

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (CountryAbbrev = "USA", alldata = countrydata, fval = 0.14, 
    lwdval1 = 5, lwdval2 = 3, cexval = 0.9, toplot = F, lowdeaths = 1) 
{
    countrycodes = alldata$CountryCode
    ccode = which(countrycodes == CountryAbbrev)
    cdata = alldata$Country_Data[[ccode]]
    CountryCode = as.character(cdata$code)
    CountryID = as.character(cdata$id)
    CountryName = as.character(cdata$name)
    CountryPopn = cdata$popn
    StartDate = as.character(cdata$dateRep[1])
    len = length(cdata$dateRep)
    EndDate = as.character(cdata$dateRep[len])
    ind = which(cdata$cumdeaths >= lowdeaths)
    dateFirstCase = as.character(cdata$dateRep[ind[1]])
    dates = as.character(cdata$dateRep[ind])
    daynum = cdata$dayNum[ind]
    dailycases = cdata$cases[ind]
    dailydeaths = cdata$deaths[ind]
    cumcases = cdata$cumcases[ind]
    cumdeaths = cdata$cumdeaths[ind]
    close.screen(all.screens = T)
    if (toplot) {
        plot(daynum, dailydeaths, type = "l", lwd = lwdval1, 
            cex = cexval, xlab = "Day Number", ylab = "Daily Deaths")
        scan()
        plot(daynum, cumdeaths, type = "l", lwd = lwdval1, cex = cexval, 
            xlab = "Day Number", ylab = "Cumulative Deaths")
    }
    return(list(CountryCode = CountryCode, CountryID = CountryID, 
        CountryName = CountryName, Population = CountryPopn, 
        StartDate = StartDate, dateFirstCase = dateFirstCase, 
        EndDate = EndDate, DateRep = dates, daynum = daynum, 
        dailydeaths = dailydeaths, cumdeaths = cumdeaths))
  }

fblues/Test documentation built on June 27, 2020, 12:18 a.m.