Здравствуйте, гость ( Вход | Регистрация )
12.10.2017 - 13:33
Сообщение
#1
|
|
|
Группа: Пользователи Сообщений: 25 Регистрация: 15.08.2014 Пользователь №: 26591 |
Приветствую.
У меня есть данные по 80 приборам, по каждому циклу, для каждого прибор, разные датчики дают указание. Как я могу предложить на основании этих данных, что прибор неисправен? Какой статистический метод я должен использовать? Прибор считается вышедшим из строя, если больше измерений по нему нет. Например, есть измерения по циклам 1-151. Значит, что на 152 цикле прибор вышел из строя. Может ли тут помочь анализ выживаемости? Сообщение отредактировал Де бин Анатолий - 12.10.2017 - 18:09
Прикрепленные файлы
|
|
|
![]() |
![]() |
![]() |
16.10.2017 - 12:41
Сообщение
#2
|
|
|
Группа: Пользователи Сообщений: 25 Регистрация: 15.08.2014 Пользователь №: 26591 |
Код Это задача в целом стандартная и описывается паттерном "many to one". Решение тоже стандартное -- грузиться library(keras) и описывается сетка с LSTM (хот для такого размера выборки GRU) слоем который и сворачивает историю прибора в вектор стандартной длины. На выходе предиктор "авария есть -- аварии нет". На входе список с историями приборов + всякая его нормализация. установил библиотечку keras нашел в хелпе описание Код layer_conv_lstm_2d {keras} R Documentation Convolutional LSTM. Description It is similar to an LSTM layer, but the input transformations and recurrent transformations are both convolutional. Usage layer_conv_lstm_2d(object, filters, kernel_size, strides = c(1L, 1L), padding = "valid", data_format = NULL, dilation_rate = c(1L, 1L), activation = "tanh", recurrent_activation = "hard_sigmoid", use_bias = TRUE, kernel_initializer = "glorot_uniform", recurrent_initializer = "orthogonal", bias_initializer = "zeros", unit_forget_bias = TRUE, kernel_regularizer = NULL, recurrent_regularizer = NULL, bias_regularizer = NULL, activity_regularizer = NULL, kernel_constraint = NULL, recurrent_constraint = NULL, bias_constraint = NULL, return_sequences = FALSE, go_backwards = FALSE, stateful = FALSE, dropout = 0, recurrent_dropout = 0, batch_size = NULL, name = NULL, trainable = NULL, weights = NULL, input_shape = NULL) А прикладного примера в хелпе нет, обычно он есть. Мне без него сложно перенести идею на мои данные. в роле object мой датасет должен быть? setwd(mydir) mydat=read.csv(mydat) Сообщение отредактировал Де бин Анатолий - 16.10.2017 - 12:43 |
|
|
![]() |
![]() |
16.10.2017 - 19:54
Сообщение
#3
|
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
А прикладного примера в хелпе нет, обычно он есть. Мне без него сложно перенести идею на мои данные. У самого кераса точно также с документацией, все лежит в руководствах. На странице пакета в cran много руководств лежит (и в этих руководствах много ссылок на дополнительную информацию с сайта Революшен) https://cran.r-project.org/web/packages/keras/index.html Начинаете с Getting Started with Keras и потом Guide to the Functional API. ![]() |
|
|
![]() |
![]() |
Де бин Анатолий Подскажите со стат.методом 12.10.2017 - 13:33
leo_biostat Анатолий, !
У Вас отличный массив данных... 14.10.2017 - 19:24
p2004r Цитата(Де бин Анатолий @ 12.10.2017 - 13... 15.10.2017 - 20:33
p2004r Цитата(Де бин Анатолий @ 16.10.2017 - 12... 18.10.2017 - 16:03
p2004r Вот собственно сетка целиком.
Кодdf.data <- r... 18.10.2017 - 18:22
p2004r Нормализацию забыл, вот так намного устойчивее и т... 19.10.2017 - 10:22
p2004r Ну и собственно кластеризация по "импульсным ... 21.10.2017 - 16:03
p2004r Ну и по именам приборы в разных группах
Код> ... 21.10.2017 - 16:08![]() ![]() |