| Title: | Stabilometric Signal Quantification |
|---|---|
| Description: | Functions for stabilometric signal quantification. The input is a data frame containing the x, y coordinates of the center-of-pressure displacement. Jose Magalhaes de Oliveira (2017) <doi:10.3758/s13428-016-0706-4> "Statokinesigram normalization method"; T E Prieto, J B Myklebust, R G Hoffmann, E G Lovett, B M Myklebust (1996) <doi:10.1109/10.532130> "Measures of postural steadiness: Differences between healthy young and elderly adults"; L F Oliveira et al (1996) <doi:10.1088/0967-3334/17/4/008> "Calculation of area of stabilometric signals using principal component analisys". |
| Authors: | Jose Oliveira [aut, cre]
|
| Maintainer: | Jose Oliveira <[email protected]> |
| License: | GPL-3 |
| Version: | 0.1.1 |
| Built: | 2025-03-20 03:15:02 UTC |
| Source: | https://github.com/cran/stabilo |
Computes the angle of of a given statokinesigram, with respect to the x axis, by fitting an ellipse containing 95 percent of statokinesigram's points.
sttkangle(dados)sttkangle(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The angle, in degrees, of the fitted ellipse on the given statokinesigram sttkangle.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPangle <- sttkangle(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPangle <- sttkangle(COP)
Computes the area of of a given statokinesigram by fitting an ellipse containing 95 percent of statokinesigram's points.
sttkarea(dados)sttkarea(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The area of the given statokinesigram sttkarea.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COParea <- sttkarea(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COParea <- sttkarea(COP)
Computes the eccentricity of the confidence ellipse of a given statokinesigram.
sttkeccentr(dados)sttkeccentr(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The eccentricity of the given statokinesigram eccentr.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPeccentr <- sttkeccentr(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPeccentr <- sttkeccentr(COP)
Computes the contour of the confidence ellipse of a given statokinesigram, containing 95 percent of statokinesigram's points.
sttkellipseplot(dados)sttkellipseplot(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The contour of the ellipse fitted to the given statokinesigram ellctr.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPellipseplot <- sttkellipseplot(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPellipseplot <- sttkellipseplot(COP)
Computes the length of of a given Center-of-pressure trajectory.
sttklength(dados)sttklength(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The length of the given COP trajectory sttklength.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPlength <- sttklength(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPlength <- sttklength(COP)
confines a given statokinesigram in a circumference of radius equal to 1, without spatially distorting its shape. The circumference contains 95 percent of statokinesigram's points.
sttknorm(dados)sttknorm(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The normalized statokinesigram stknorm.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPnorm <- sttknorm(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPnorm <- sttknorm(COP)
Computes the standard deviation of lateral displacement of the center of pressure.
sttksdx(dados)sttksdx(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The standard deviation of x sdx.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPxsd <- sttksdx(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPxsd <- sttksdx(COP)
Computes the standard deviation of front-and-back displacement of the center of pressure.
sttksdy(dados)sttksdy(dados)
dados |
data frame with two columns "x" and "y" |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The standard deviation of y sdy.
Jose Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPysd <- sttksdy(COP)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPysd <- sttksdy(COP)
Computes the mean velocity of a given Center-of-pressure displacement in the horizontal plane.
sttkveloc(dados, fs)sttkveloc(dados, fs)
dados |
Data frame with two columns "x" and "y" |
fs |
The sampling frequency used in data recording |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center-of-pressure acquired in a period of time.
The velocity of the COP displacement sttkveloc.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) fs <- 50 COPvelocity <- sttkveloc(COP,fs)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) fs <- 50 COPvelocity <- sttkveloc(COP,fs)
Computes the median frequency of the lateral displacement of the center of pressure.
sttkxmdfreq(dados, sampfreq)sttkxmdfreq(dados, sampfreq)
dados |
data frame with two columns "x" and "y" |
sampfreq |
number The sampling frequency |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The median frequency of the x displacement for the given statokinesigram FMx.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPxmdfreq <- sttkxmdfreq(COP, 50)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPxmdfreq <- sttkxmdfreq(COP, 50)
Computes the mean lateral velocity of a given Center-of-pressure displacement.
sttkxveloc(dados, fs)sttkxveloc(dados, fs)
dados |
Data frame with two columns "x" and "y" |
fs |
The sampling frequency used in data recording |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center-of-pressure acquired in a period of time.
The lateral velocity of the COP displacement sttkxveloc.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) fs <- 50 COPxvelocity <- sttkxveloc(COP,fs)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) fs <- 50 COPxvelocity <- sttkxveloc(COP,fs)
Computes the median frequency of the anteroposterior displacement of the center of pressure.
sttkymdfreq(dados, sampfreq)sttkymdfreq(dados, sampfreq)
dados |
data frame with two columns "x" and "y" |
sampfreq |
number The sampling frequency |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center of pressure acquired in a period of time.
The median frequency of the y displacement for the given statokinesigram FMy.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPymdfreq <- sttkymdfreq(COP, 50)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) COPymdfreq <- sttkymdfreq(COP, 50)
Computes the mean front-to-back velocity of a given Center-of-pressure displacement.
sttkyveloc(dados, fs)sttkyveloc(dados, fs)
dados |
Data frame with two columns "x" and "y" |
fs |
The sampling frequency used in data recording |
'dados' is a data frame containing two columns named "x" and "y". The pairs (x, y) are the coordinates of the center-of-pressure acquired in a period of time.
The velocity of the front-to-back COP displacement sttkyveloc.
Jose Magalhaes de Oliveira
x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) fs <- 50 COPyvelocity <- sttkyveloc(COP,fs)x <- c(1,3,7,5,9,4,3,6,8,2,8,9,4,5,7,3,4,7,9,3,2,5,3,4,8,2,9,7,4,2) y <- c(6,3,9,1,3,7,4,9,6,1,7,3,9,7,2,6,3,4,8,1,9,3,6,8,1,6,2,9,8,3) COP <- data.frame(x, y) fs <- 50 COPyvelocity <- sttkyveloc(COP,fs)