wiener1(RTisean)
wiener1()所属R语言包:RTisean
Wiener filter
维纳滤波
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Tools for producing the periodogram from a time series and generating a filtered sequence.
从时间序列,并产生一个被滤波的序列的周期图的制造工具。
用法----------Usage----------
wiener1(series, f, w, l, x = 0, c = 1)
wiener2(series, f, w, o, l, x = 0, c = 1)
参数----------Arguments----------
参数:series
a vector or a matrix.
的矢量或矩阵。
参数:f
sampling rate.
采样率。
参数:w
frequency resolution.
频率分辨率。
参数:o
the output of a wiener1 call.
wiener1呼叫的输出。
参数:l
number of values to be read.
要读取的值的数目。
参数:x
number of values to be skipped.
数的值被跳过。
参数:c
column to be read.
要读取的列。
值----------Value----------
wiener1 produces the periodogram matrix, wiener2 generates the filtered time series.
wiener1生产周期图矩阵,wiener2生成过滤的时间序列。
实例----------Examples----------
## Not run: [#不运行:]
numdata <- 500
dat <- cos(1:numdata/25)+rnorm(numdata,0,0.1)
periodogramat<- wiener1(dat)
#edit periodogram as desired.[编辑所需的周期图。]
# clean all but the 4th period:[清理所有,但第05期:]
periodogramat[-4,] <- cbind(periodogramat[-4,1],0)
filteredat <- wiener2(dat, o=periodogramat)
plot(dat,xlab="Time",t="l",ylab="Cos Data",ylim=c(-1.5,1.2))
lines(filteredat,col=2,lwd=2)
legend(300,-1.2, c("Noisy Data","Filtered Data") ,fill=c(1,2), bty="n")
## End(Not run)[#(不执行)]
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|