chop_standard_at: standardized a variable of dataframe according chopped...

In perlatex/easyuse: A Package to make social statistics more easy and more tidyverse

Description

standardized a variable of dataframe after chop first pitch, and discard last pitch when last pitch was less than second-to-last within each group

Usage

chop_standard_at(.data, .var, .group, .pitch)

Arguments

.data	data.frame, must contain '.var', '.group' and '.pitch' variables
.var	specify the variables which to be standardized
.group	group variable contained in .data
.pitch	pitch variable contained in .data, each group have same pitch serial, for example, "p0, p10, p20, ... p100"

Value

standardized data.frame

Examples

library(tidyverse)
library(easyuse)
data(ChineseTones)

d <- ChineseTones

m <- d %>%
  group_by(type) %>%
  summarise_if(is.numeric, mean) %>%
  modify_at(vars(starts_with("p")), log10)

ld <- m %>%
  pivot_longer(
    cols = starts_with("p"),
    names_to = "id",
    values_to = "value"
  ) %>%
  mutate(time = 1000 * time * seq(0, 1, by = 0.1))

ld %>%
  chop_standard_at(.var = value, .group = type, .pitch = id)

perlatex/easyuse documentation built on April 14, 2020, 5:35 a.m.