[R]: временной ряд с R - PullRequest
Новая
       13

[R]: временной ряд с R

0 голосов
/ 07 июня 2019

Задача о написании 2 функций. Первый: createSeries () с одним аргументом n, который описывает длину временного ряда. Значение по умолчанию (n = 100). Функция должна возвращать фрейм данных с 2 столбцами: время и значение. Время должно быть от нормы и отсортировано по возрастанию. Вторая переменная должна быть из этого равенства: xt + 1 = xt + ϵt, где ϵt - переменная с нормальным распределением.

(что в принципе нормально)

Вторая функция: Функция CalculayMe () должна вычислять средние значения для заданных интервалов. Функция имеет 3 аргумента: data - который имеет data.frame из предыдущей функции интервал - который объявляет ширину интервалов, на которые рассчитываются средние значения, фаза - которая дает точку, которая должна быть границей интервала.

Технически функция должна возвращать фрейм данных со столбцом timeStart, timeEnd и значениями, которые включают начало, конец интервалов и значения средних.

Я сделал первую функцию - она ​​работает. 

set.seed(20) 
createSeries <- function(n){
  n <- 100
  time <- rnorm(n)
  time1 <- sort(time, F)
  as.numeric(time1)
  E_t <- rnorm(n) 
  as.numeric(E_t)
  x_t <- c(1:100)
 as.numeric(x_t)
  value <- x_t + E_t
  as.numeric(value)
   value1 <-  sort(value, T)
   as.numeric(value1)
  return(data.frame(time1, value1))
}

createSeries(100)  

calculateMeans <- function(data,interval,phase){

  data <- createSeries(100)
  interval <- 1.5
  phase <- 0

    enter code here

  timeStart <- matrix()
    for(i in seq(from = -2.52, to=100, by=1.5)){
        print(i)       
    }

  timeEnd <- for(i in seq(from = -1.02, to=100, by=1.5)){
    print(i)       
  }
  u <- timeStart+timeEnd
  values <- mean(u)
  return(data.frame(timeStart, timeEnd, values))
}

calculateMeans(data, 1.5, 0)
...