Nothing

```
scaleandperiods <-
function(data){
# Function that receives a data frame with the time series data and
# scales it in the [0,1] interval.
# The function considers that the time periods of the data appear
# as row names.
#
# IN:
#
# data <- data frame with the time series information.
#
# OUT:
#
# periods <- array with the time periods of the data.
# mydata <- data frame with the time series data.
# cts <- variable that indicates if some time series were removed
# because they were constant in time. If no time series were
# removed, cts = 0. If there were time series removed, cts
# indicates the column of such time series.
n <- nrow(data)
m <- ncol(data)
periods <- rownames(data)
mydata <- data
maxima <- matrix(0,m,1)
minima <- matrix(0,m,1)
for (i in 1:m){
maxima[i,1] = max(mydata[,i])
minima[i,1] = min(mydata[,i])
}
cts <- which(maxima == minima)
if(length(cts) != 0){
mydata <- mydata[,-cts]
n <- nrow(mydata)
m <- ncol(mydata)
maxima <- matrix(0,m,1)
minima <- matrix(0,m,1)
for (i in 1:m){
maxima[i,1] = max(mydata[,i])
minima[i,1] = min(mydata[,i])
}
}
for (j in 1:m){
m1 = maxima[j,1] - minima[j,1]
for (k in 1:n){
mydata[k,j] = 1 + (1/m1)*(mydata[k,j] - maxima[j,1])
}
}
return(list(periods = periods, mydata = mydata, cts = cts))
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.