| 123456789101112131415161718 |
- # PATIENT CLASS
- patient <- new.env()
- patient$WALKING <- NULL
- patient$SITTING <- NULL
- patient$UP <- NULL
- patient$DOWN <- NULL
- patient$WALKBASE <- NULL
- patient$SITBASE <- NULL
- patient$height <- function() abs(patient$SITBASE) + patient$WALKBASE
|
