Displaying 1 result from an estimated 1 matches for "center_frequ".
2011 Jul 08
1
computing functions with Euler's number (e^n)
...don't know how to write the correct loop that will work for me. Any
suggestions??
Here is the code I have been using (less the numerous if...else attempts):
> J <- 12
> r_ <- 1.959
> q_ <- 1.45
> scale_ <- 0.3
> N <- 500
> fq <- seq(0, N, 1)
> center_frequencies <- function(J = 12, r_ = 1.959, q_ = 1.45, scale_ =
0.3){
+ j <- seq(0,J-1,1)
+ fc <- (q_ + j)^r_/scale_
+ }
> fc <- center_frequencies(12,r_,q_,scale_)
> cf <- t(fc)
> lambda <- function(cf, J = 12, scale_ = 0.3){
+ B <- cf*scale_
+ }
> B <- lambd...