Displaying 1 result from an estimated 1 matches for "melted_difference".
2016 Apr 06
1
Extracting windows from time series
...## I can easier extract the trends that fullfill the searched condition (decrease of 0.1 Kelvin) --> look next line
Difference <- diff(Puls,lag=10) # x[(1+lag):n] - x[1:(n-lag)] --> time step 20 - timestep 10 for first calculation --> does that for whole time series
ID <- c(1:375)
melted_Difference <- melt(data.frame(Difference,ID),id.vars="ID")
Hiatus <- subset(melted_Difference,value < -0.1)
here the result :
23 23 Difference -0.1184901
24 24 Difference -0.1723032
25 25 Difference -0.1366112
26 26 Difference -0.1745479
27 27 Difference -0.1805964
28 28 Diffe...