Skip to content

Instantly share code, notes, and snippets.

@MJacobs1985

MJacobs1985/gist:f7134ac8fbb414d4f7df70408a3b0e2c

Created November 10, 2022 13:12
Show Gist options
  • Save MJacobs1985/f7134ac8fbb414d4f7df70408a3b0e2c to your computer and use it in GitHub Desktop.
Save MJacobs1985/f7134ac8fbb414d4f7df70408a3b0e2c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Severity*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Interference*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Relief*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Physical_Functioning*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Emotional_Functioning*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Fatigue*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Pain*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Constipation*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Nausea_Vomiting*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Constipation*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Appetite_loss*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Dyspnoe*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Overall_QOL*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
fit<-total%>%filter(!Patientnr%in%8 & !Patientnr%in%20 & !Patientnr%in%16)%>%lm(SurvTimeWeek~Insomnia*ns(time,3), data=.);summary(fit);par(mfrow = c(2, 2));plot(fit);plot(allEffects(fit))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment