View source: R/f_simulation_utilities.R
| getRawData | R Documentation |
Returns the raw survival data which was generated for simulation.
getRawData(x, aggregate = FALSE)
x |
A |
aggregate |
Logical. If |
This function works only if getSimulationSurvival() was called with a
maxNumberOfRawDatasetsPerStage > 0 (default is 0).
This function can be used to get the simulated raw data from a simulation results
object obtained by getSimulationSurvival().
Note that getSimulationSurvival()
must called before with maxNumberOfRawDatasetsPerStage > 0.
The data frame contains the following columns:
iterationNumber: The number of the simulation iteration.
stopStage: The stage of stopping.
subjectId: The subject id (increasing number 1, 2, 3, ...)
accrualTime: The accrual time, i.e., the time when the subject entered the trial.
treatmentGroup: The treatment group number (1 or 2).
survivalTime: The survival time of the subject.
dropoutTime: The dropout time of the subject (may be NA).
lastObservationTime: The specific observation time.
timeUnderObservation: The time under observation is defined as follows:
if (event == TRUE) {
timeUnderObservation <- survivalTime
} else if (dropoutEvent == TRUE) {
timeUnderObservation <- dropoutTime
} else {
timeUnderObservation <- lastObservationTime - accrualTime
}
event: TRUE if an event occurred; FALSE otherwise.
dropoutEvent: TRUE if an dropout event occurred; FALSE otherwise.
Returns a data.frame.
## Not run:
results <- getSimulationSurvival(
pi1 = seq(0.3, 0.6, 0.1), pi2 = 0.3, eventTime = 12,
accrualTime = 24, plannedEvents = 40, maxNumberOfSubjects = 200,
maxNumberOfIterations = 50, maxNumberOfRawDatasetsPerStage = 5
)
rawData <- getRawData(results)
head(rawData)
dim(rawData)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.