In wagnius-GmbH/slvwagner: All Stuff that I`m Missing

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(slvwagner)

My R library, including all functions I use very often.

Some function need yacas a symbolic solver: \ http://www.yacas.org/

Content

Geometrical stuff

Functions start with geo_

• Conic section
• Slerp
• Intersection of sphere and line,
• Intersecting point(s) of plane and line
• Convert plane equation (coordinate form) into parametric from. Get position vector and tow orientation vectors.
• Intersection point from three globs upon an initial guess

Math

Functions start with math_

• Transformation from spherical to Cartesian coordinate system and back.
• Rotation Matrix in R and Ryacas (YACAS)
• lf Linear function helpers
• Quadrant and angle finder for 2D vector
• cross and dot vector product
• Magnitude of vector
• In-between angel of two vectors
• Get polynomial from roots
• Round polynomial equation
• Generate non linear Vector with start, end and vector length

Math in yacas

Functions start with yac_

• Rotation matrix 2D
• Rotation matrix 3D

Linear function helper

Functions start with lf_

• Simple linear function
• perpendicular to function
• Intersection point of two functions
• Linear function from two points

c_slope <- 0.3
c_intercept <- 1

cbind(x = -10:10, y = lf_lf(-10:10,c_slope,c_intercept))|>
  plot(main = "lf_lf", type = "b", asp = 1)

signal

Functions start with signal_

• To average a signal around zero (AC coupling) \ \

library(tidyverse)
tibble(y = rnorm(100,mean = -2.5))|>
  mutate(x = row_number(y),
         y_centered = signal_center(y))|>
pivot_longer(cols = c("y", "y_centered"))|>
ggplot(aes(x,value, color = name))+
  geom_point()+
  geom_hline(yintercept = 0)

find

Functions start with find_

• find_edges2D in evenly spaced gird
• find_edges3D in evenly spaced gird

n_col <- 7
n_row <- 4

c_search <- c(
  0,1,0,0,0,1,0,
  1,1,1,1,1,1,1,
  0,1,0,1,1,1,1,
  0,0,1,1,1,1,1
  )

m_grid <- expand.grid(x = 0:(n_col-1), y = 0:(n_row-1))|>
  as.matrix()|>
  cbind(c_search)

m_grid <- cbind(m_grid,
                edge = find_edges_2D(m_grid[,"c_search"], n_col))

m_grid|>
  plot(col = m_grid[,"c_search"],
       xlim=c(0,n_col-1), ylim=c(0,n_row-1),
       # asp = 1,
       pch = 19,
       cex = 1.,
       main = "Input: c_search")

m_grid|>
  plot(col = m_grid[,"edge"],
       xlim=c(0,n_col-1), ylim=c(0,n_row-1),
       # asp = 1,
       pch = 19,
       cex = 1.,
       main = "Edge")

statistical

Functions start with stat_

• Process capability index (CPK)
• Probability density function

business

• NPS (net promoter score)

Plot

Functions start with plot_

• Get normal distributed overlay for faceted histograms

System

Functions start with r_

• r_ R utility functions, e.g. windows path to R compatible path
• Automatically create table of contents for a .Rmd R markdown file

# Input
tbl_of_contents.Rmd

# Output with Table of contents and page break
r_toc_for_Rmd(tbl_of_contents.Rmd, toc_heading_string = "Inhaltsverzeichnis",create_nb = TRUE, create_top_link = TRUE , nb_front = TRUE, pagebreak_level = "2")|>
  write("test_.Rmd")

readLines("test_.Rmd")

Fast dictionary

Function start with dict_

• Create fast dictionary, convenience functions.

wagnius-GmbH/slvwagner documentation built on Jan. 19, 2025, 7:10 a.m.