Description Usage Format Details Examples
This data frame contains the time (in weeks) between the initial symptoms (onset symptoms) and the decision time to visit a doctor in the case of 54 patients who eventually were diagnosed with multiple sclerosis. Interest centers on whether there are any factors which tend to be related to the delay time.
1 |
A data frame with 54 observations on the following 16 variables.
Delay
numeric, time in weeks
ClinicalDiseaseCourse
factor, 2 levels
CodedGender
factor, 2 levels, 1 = Male, 2 = Female
AgeAtOnset
numeric, age in years
OnsetSymptom1
factor, 4 levels
OnsetSymptom2
factor, 5 levels
OnsetSymptomSeverity
factor, 2 levels, 0 = Low, 1 = High
TriggerSymptom1
factor, 4 levels
TriggerSymptom2
factor, 4 levels
TriggerSymptomSeverity
factor, 2 levels, 0 = Low, 1 = High
FamilyHistory
factor, 2 levels, yes = there is MS in the family history
FearOfWorseningSymptoms
factor, 2 levels
MoreThanOneSymptom
factor, 2 levels
EffectonResponsibilities
factor, 2 levels, yes = the symptoms are having an effect on the individual
UncertainResponse
logical, TRUE = recorded delay time is not accurate
The levels of the Clinical Disease Course variable are: Clinically Isolated Syndrome and Relapse-Remitting.
1 2 3 4 5 6 7 8 9 10 11 12 13 | xy <- MSDecision
xy$sensoryOnset1 <- factor(xy$OnsetSymptom1=="SENSORY")
xy$brainstemOnset2 <- factor(xy$OnsetSymptom2=="BRAINSTEM")
xy$sensoryTrigger1 <- factor(xy$TriggerSymptom1=="SENSORY")
xy$brainstemTrigger2 <- factor(xy$TriggerSymptom2=="BRAINSTEM")
xy <- xy[, -c(5, 6, 8, 9, 15)]
xy[,1]<-log(xy[,1])
names(xy)[1] <- "y"
out <- ices(y ~ ., data = xy)
summary(out)
plot(out)
plot(out, normqq=TRUE)
plot(out, scaleloc=TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.