data-raw/DATASET.R

In nskourlis/rpkg: What the Package Does (Prepare MSMplus input)

## code to prepare `DATASET` dataset goes here
usethis::use_data(DATASET, overwrite = TRUE)

usethis::use_data_raw()

# load required packages ----
if (!require("pacman")) install.packages("pacman") 
library("pacman")
pacman::p_load(magrittr, dplyr, usethis, data.table, here)
pacman::p_load(here)
### An MSM exapmle ####
    library("msm")
    library("mstate")
    library("tidyverse")
head(cav)
# clean data ----
epil <- cav
DT <- epil %>% as.data.table
DT.base <- DT %>% distinct(PTNUM, .keep_all = TRUE)
DT.base[,`:=`(years=0)]
DT.epil <- rbind(DT, DT.base)
df_epil <-DT.epil

# write data in correct format to data folder ----
usethis::use_data(df_epil, overwrite = TRUE)

#' Seizure Counts for Epileptics
#'
#' @description Thall and Vail (1990) give a data set on two-week 
#' seizure counts for 59 epileptics. The number of seizures was 
#' recorded for a baseline period of 8 weeks, and then patients 
#' were randomly assigned to a treatment group or a control group. 
#' Counts were then recorded for four successive two-week periods. 
#' The subject's age is the only covariate.
#'
#' @format his data frame has 295 rows and the following 5 columns:
#' \describe{
#'   \item{y}{the count for the 2-week period.}
#'   \item{trt}{treatment, "placebo" or "progabide"}
#'   \item{post}{post treatment. 0 for no, 1 for yes}
#'   \item{subject}{subject id}
#'   \item{tj}{time}
#' }
#' @source \url{https://cran.r-project.org/package=MASS}
"df_epil"


pacman::p_load(sinew)
sinew::makeOxyFile("C:/Users/niksko/Desktop/rpkg/R/flexjson2.R")