Nothing
## ----setup, include = FALSE---------------------------------------------------
library(lcmm)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----eval=FALSE---------------------------------------------------------------
# hlme(fixed, mixture, random, subject, classmb, ng = 1, idiag = FALSE, nwg = FALSE, cor = NULL, data, B, convB = 0.0001, convL = 0.0001, convG = 0.0001, prior, maxiter = 500, subset = NULL, na.action = 1, posfix = NULL)
## ----comment=''---------------------------------------------------------------
head(paquid)
## ----comment=''---------------------------------------------------------------
summary(paquid)
## ----results='hide',message=FALSE,warning=FALSE, echo=FALSE-------------------
library(lcmm)
## ----comment='', results='hide'-----------------------------------------------
library(NormPsy)
## ----comment='', fig.height=4, fig.width=6------------------------------------
paquid$normMMSE <- normMMSE(paquid$MMSE)
par(mfrow=c(1,2))
hist(paquid$MMSE, cex.main=0.8, cex.lab=0.8)
hist(paquid$normMMSE, cex.main=0.8, cex.lab=0.8)
## ----comment='', fig.height=4, fig.width=6------------------------------------
library(lattice)
color <- paquid$ID
xyplot(normMMSE ~ age, paquid, groups = ID, col=color, lwd=2, type="l")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.