utild1filt: Gaussian Filter for Vectors

In stheoreme: Klimontovich's S-Theorem Algorithm Implementation and Data Preparation Tools

Description

The function is applied to a pair of vectors as a lowpass gaussian filter to clean them from high frequency components

Usage

utild1filt(arr0, arr1, outsize = 2, strong = 1)

Arguments

arr0	vector to be filtered
arr1	vector to be filtered
outsize	radius of gaussian filter kernel
strong	multiplication factor defining the sigma of gaussian filter kernel as sigma=outsize*strong

Value

filt0	result of arr0 filtration
filt1	result of arr1 filtration

Author(s)

Vitaly Efremov <[e-mail]>

See Also

utild2filt

Examples

s1<-sin(c(1:128)*2)+2-c(1:128)*4/128

a<-utild1filt(arr0=s1, arr1=s1)
plot(s1, type='l')
lines(a$filt1, col='red')

s0<-c(rep(0,15), rep(2,12), rep(-2,12), rep(0,25))
s1<-c(rep(0,45), rep(2,4), rep(-2,4), rep(0,25))

a<-utild1filt(s0, s1, outsize=7, strong=.5)
plot(s0, type='l', ylab='s0, s1, a$filt0, a$filt1')
lines(s1, col='gray')
lines(a$filt0, col='red')
lines(a$filt1, col='purple')

stheoreme documentation built on May 2, 2019, 9:33 a.m.