joineRmeta (version 0.1.2)

print.jointmeta1: Print function for jointmeta1 objects

Description

A function to print a jointmeta1.object.

Usage

# S3 method for jointmeta1
print(x, ...)

Arguments

x

a jointmeta1.object, the result of fitting a jointmeta1 model

...

additional arguments; currently none are used.

Value

An object inheriting from class print.jointmeta1 with all components included in x (see jointmeta1.object).

Examples

# NOT RUN {
   #change example data to jointdata object
   jointdat2<-tojointdata(longitudinal = simdat2$longitudinal,
   survival = simdat2$survival, id = 'id',longoutcome = 'Y',
   timevarying = c('time','ltime'),
   survtime = 'survtime', cens = 'cens',time = 'time')

   #set variables to factors
   jointdat2$baseline$study <- as.factor(jointdat2$baseline$study)
   jointdat2$baseline$treat <- as.factor(jointdat2$baseline$treat)

   #fit multi-study joint model
   #note: for demonstration purposes only - max.it restricted to 5
   #model would need more iterations to truely converge
   onestagefit<-jointmeta1(data = jointdat2, long.formula = Y ~ 1 + time +
                           + treat + study, long.rand.ind = c('int', 'time'),
                           long.rand.stud = c('treat'),
                           sharingstrct = 'randprop',
                           surv.formula = Surv(survtime, cens) ~ treat,
                           study.name = 'study', strat = TRUE, max.it=5)

    #print the fitted multi-study joint model
    print(onestagefit)

# }