des_sd {psyosphere} | R Documentation |
Calculate normal and weighted sds while excluding gaps in data
des_sd( tracks, ctarget, cweight = "", cgaps = "", cname = "sd", drop = TRUE, t_id = "id", des_df = "" )
tracks |
|
ctarget |
|
cweight |
|
cgaps |
|
cname |
|
drop |
|
t_id |
character or numeric. Column name in |
des_df |
|
Data frame
id |
id of the track |
sd |
calculated sd of the track |
If you use Psyosphere for commercial use or research, please support us by include one off the following references:
Creative Commons: "Psyosphere" by B. Ziepert, E. G. Ufkes & P. W. de Vries from analyse-gps.com / CC-BY-SA-4.0
APA: de Vries, P. W., et al. (2016). "De psychologie van bewegingen GPS-technologie voor de analyse van natuurlijk gedrag." Tijdschrift voor Human Factors 2: 11-15.
Benjamin Ziepert. Please send feedback to: feedback-psyosphere@analyse-gps.com.
des_summary
, des_duplicates
, des_first
, des_last
, des_length
, des_max
, des_min
, des_mean
, des_sum
# Get example data data(psyo_rounds2) psyo_rounds2 <- psyo_rounds2[ c(1:5,11:15) ,] # clean-up data psyo_rounds2 <- psyosphere::average_duplicates(psyo_rounds2) # Add gap segments psyo_rounds2 <- psyosphere::t_time_difference(psyo_rounds2) psyo_rounds2 <- psyosphere::mark_time_gaps(psyo_rounds2) # Add speed psyo_rounds2 <- psyosphere::t_speed(psyo_rounds2) # Calculate different sds normal <- psyosphere::des_sd(psyo_rounds2, "speed", cname = "normal") weighted <- psyosphere::des_sd( psyo_rounds2, "speed", cweight = "time_difference", cname = "weighted" ) segmented <- psyosphere::des_sd( psyo_rounds2, "speed", cgaps= "time_gap", cname = "segmented" ) segmented_weighted <- psyosphere::des_sd( psyo_rounds2, "speed", cweight = "time_difference", cgaps = "time_gap", cname = "segmented_weighted" )