Estimados
La pregunta es como agregar una line de cas os reales a la de
prevalencia simulada?
saludos
Dr. Betancourt
2020-06-11 14:36 GMT-04:00, Jose Betancourt B. :
> script completo y adjunto función
>
>
> rm(list = ls(all = TRUE))
> require("sfsmisc")
> source("sir_func.R")
> npop = 4400
>
script completo y adjunto función
rm(list = ls(all = TRUE))
require("sfsmisc")
source("sir_func.R")
npop = 4400
I_0 = 1
R_0 = 0
S_0 = npop-I_0-R_0
tbegin = 0
tend = 300
vt = seq(tbegin,tend,1)
gamma = 1/5
R0= 1.20
beta = R0*gamma
vparameters = c(gamma=gamma,beta=beta)
inits =
Hola José,
Tienes que incluir esa ruta donde quieres dejar el fichero en la línea de
"saveWorkbook("...
Así:
#--
library(openxlsx)
wb <- createWorkbook(creator = Sys.getenv("USERNAME"))
addWorksheet(wb, "Data")
pt$writeToExcelWorksheet(wb=wb, wsName="Data",
Estimados
NO ENCUENTRO EL FORMATO ADECUADO PARA SALVAR LA TABLA EXCEL EN OTRO
LUGAR, por ejemplo, en escritorio
library(pivottabler)
pt <- PivotTable$new()
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addColumnDataGroups("PowerType")
pt$addRowDataGroups("TOC")