des_sd: Calculate normal and weighted sds while excluding gaps in...

Description Usage Arguments Value Credit Author(s) See Also Examples

View source: R/des_sd.R

Description

Calculate normal and weighted sds while excluding gaps in data

Usage

1
2
3
4
des_sd(
  tracks, ctarget, cweight = "", cgaps = "", cname = "sd", drop = TRUE, t_id = "id",
  des_df = ""
)

Arguments

tracks

psyo. Data frame with tracks.

ctarget

character. Column name of tracks that contains the variable for the calculation.

cweight

character. Column name of tracks that contains the weight for the calculation.

cgaps

character. Column name of tracks that marks gaps with TRUE.

cname

character. Column name of the returned calculation result.

drop

logical. If TRUE and only one observation is returned drop the data frame and collapse the return value to a vector.

t_id

character or numeric. Column name in tracks that identifies the separate tracks.

des_df

data frame. Function results will be merge with this data frame.

Value

Data frame

id

id of the track

sd

calculated sd of the track

Credit

If you use 'psyosphere' for commercial use or research, please support us by include one off the following references:

Author(s)

Benjamin Ziepert. Please send feedback to: feedback-psyosphere@analyse-gps.com.

See Also

des_summary, des_duplicates, des_first, des_last, des_length, des_max, des_min, des_mean, des_sum

Examples

 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
27
28
29
30
31
32
33
34
35
## Not run: 
# Get example data
data(psyo_rounds2)
psyo_rounds2 <- psyo_rounds2[ c(1:5,11:15) ,]

# clean-up data
psyo_rounds2 <- average_duplicates(psyo_rounds2)

# Add gap segments
psyo_rounds2 <- t_time_difference(psyo_rounds2)
psyo_rounds2 <- mark_time_gaps(psyo_rounds2)

# Add speed
psyo_rounds2 <- t_speed(psyo_rounds2)

# Calculate different sds
normal <- des_sd(psyo_rounds2, "speed", cname = "normal")

weighted <- des_sd(
  psyo_rounds2, "speed", cweight = "time_difference", cname = "weighted"
)

segmented <- des_sd(
  psyo_rounds2, "speed", cgaps= "time_gap", cname = "segmented"
)

segmented_weighted <- des_sd(
  psyo_rounds2,
  "speed",
  cweight = "time_difference",
  cgaps = "time_gap",
  cname = "segmented_weighted"
)

## End(Not run)

psyosphere documentation built on July 2, 2020, 12:08 a.m.