You have not provided any information that leads you to write 'it is not
working'.
Can you be specific?
Are you getting error messages? What are they?
etc
etc
On Fri, Nov 2, 2018 at 12:33 PM Subhamitra Patra
wrote:
> ts= India[-1,]
> N<-ncol(ts)
> width <- 500
> M <- nrow(ts) - width
> r<-matri
ts= India[-1,]
N<-ncol(ts)
width <- 500
M <- nrow(ts) - width
r<-matrix(0, ncol = N, nrow = M)
library(pracma)
for (i in 1:N){
r[,i]<-rollapply( data=ts[,i], width=width, FUN=approx_entropy, edim
= 2, r = 0.2*sd(ts[,i]), elag = 1, align="right")
}
This is my entropy value which I am interes
How about something like this:
ts= India[-1,] #For deleting the year row
N<-ncol(ts)
width <- 500
M <- nrow(ts) - width
r<-matrix(0, ncol = N, nrow = M)
library(pracma)
for (i in 1:N){
r[,i]<-rollapply( data=ts[,i], width=width, FUN=approx_entropy, edim
= 2, r = 0.2*sd(ts[,i]), elag =
Thank you for the clarification. I checked and there was a small
mistakes in the code. Now my code is
ts= India[-1,] #For deleting the year row
N<-ncol(ts)
r<-matrix(0, ncol = N, nrow = 1)
library(pracma)
for (i in 1:N){
r[i]<-approx_entropy(ts[,i], edim = 2, r = 0.2*sd(ts[,i]), elag
Hi,
You have some problems with your setup. You set N based on the number of
rows in ts, but then in the call to approx_entropy you write ts[,i].
Note that ts[,i] is the i'th column of ts, whereas your definition of i
implies it is based on row numbers.
Maybe this is leading you to see problems el
5 matches
Mail list logo
