Description Usage Arguments Value Examples
View source: R/superskeleton.R
With this function, you can represent either a singleton (one joint), a couple (the difference between two joints), a triplet (the angle between two vectors generated by the three joints). You can as well represent two singletons, two couples and two triplets.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | superskeleton(
joint,
structure,
sidekick,
num.joint,
num.frame,
num.x,
num.y,
frame.index = NULL,
body.part,
color.part,
plot.title,
x.legend,
y.legend,
x.dilatation = 1,
y.dilatation = 1,
x.translation = 200,
y.translation = 0,
fps = 30
)
|
joint |
The joint dataset: the coordinates of the joints as a function of time |
structure |
The structure dataset: a first column with the segments composing the structure, two other columns defining the extremities of the segments |
sidekick |
A dataset formatted to be plotted with the superskeleton function, the sidekick information |
num.joint |
The index of the column associated with the joint variable |
num.frame |
The index of the column associated with the frame variable |
num.x |
The index of the column associated with the x-axis variable represented on the graphical output |
num.y |
The index of the column associated with the y-axis variable represented on the graphical output |
frame.index |
The index of the frame you want to represent (static representation) |
body.part |
The names of the segments you want to represent |
color.part |
The colour you want to use to represent the segments |
plot.title |
The title of the graphical output |
x.legend |
The legend on the x-axis |
y.legend |
The legend on the y-axis |
x.dilatation |
The dilatation coefficient on the x-axis |
y.dilatation |
The dilatation coefficient on the y-axis |
x.translation |
The translation coefficient on the x-axis |
y.translation |
The translation coefficient on the y-axis |
fps |
The number of frames per second |
An animation by default or a static representation for a given frame
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ## Not run:
data(gaetan_apchagi)
data(human)
S1_right_ankle <- sidekick(joint=gaetan_apchagi, num.joint=2, num.name=8,
num.x=6, num.y=4, joint1="RIGHT_ANKLE", joint2=NULL)
superskeleton(joint=gaetan_apchagi, structure=human, sidekick=S1_right_ankle,
num.joint=2, num.frame=6, num.x=3, num.y=4, frame.index=NULL,
body.part="RIGHT_ANKLE", color.part="orange",
plot.title="Gaetan - right ankle trajectory", x.legend="Frame",
y.legend="Trajectory in y (cm)")
## End(Not run)
data(gaetan_apchagi)
data(human)
S2_right_ankle_knee <- sidekick(joint=gaetan_apchagi, num.joint=2, num.name=8,
num.x=4, num.y=4, joint1="RIGHT_ANKLE", joint2="RIGHT_KNEE")
superskeleton(joint=gaetan_apchagi, structure=human, sidekick=S2_right_ankle_knee,
num.joint=2, num.frame=6, num.x=3, num.y=4,
frame.index=25, body.part=c("RIGHT_ANKLE","RIGHT_KNEE"),
color.part="orange",
plot.title="Gaetan - right ankle vs. knee trajectory", x.legend="Ankle - y (cm)",
y.legend="Knee - y (cm)")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.