R/showtable.R

In cyhsuTN/COVID19: Prediction of Cases Volumne and Hospitalization by SIR Model

#' Tables to show cases volumne and hospitalization.
#' @description Tables to show cases volumne and hospitalization.
#' @import stats


#' @param showdays Input. Number of days to project.
#' @param windowsize Input. Display by every \emph{windowsize} days.
#' @param casevolumne Input. Object from function \emph{fitSIR}.
#' @param hospitalization Input. Object from function \emph{Prehos}.


#' @return \item{short.cv}{Short table of cases volumne.}
#' @return \item{short.hos}{short table of predicted hospitalization.}

#' @examples ## To predicte 100 days from today (dayFT=100).
#' @examples casevolumne <- fitSIR(susceptible=4119405, Infected=3733, inihos=14,
#' @examples      hosrate=2.5, hms=15, inidbt=4, mrt=14, sdis=30, dayFT=100)
#' @examples hospitalization <- Prehos(casevolumne, inihos=14, iniicu=0, iniven=0,
#' @examples      hosrate=2.5, icurate=0.75, venrate=0.5, outhosdays=7, outicudays=9,
#' @examples      outvendays=10, hms=15)
#' @examples ## show the first 60 days/ every 7 days
#' @examples showtable(showdays=60, windowsize=7, casevolumne, hospitalization)
#'

#' @export


showtable <- function(showdays=60, windowsize=7, casevolumne, hospitalization) {
  maxint <- floor((showdays+1)/ windowsize) + 1
  short.cv <- casevolumne$result[1+ windowsize*(1:maxint - 1),]
  short.hos <- hospitalization[1+ windowsize*(1:maxint - 1),]
  list(short.cv=short.cv, short.hos=short.hos)
}