Машинное обучение в трейдинге: теория, модели, практика и алготорговля - страница 1920

Новый комментарий
 
mytarmailS:

значит нужно применить кластеризацию kmeans например или чего по круче, ща погоди

запусти это

centers - это сколько кластеров ты хочешь найти

а теперь 

поставь вместо target


тут

  

Чет не так делаю :(

> way <- "F:\\FX\\R\\2020_04_11_Pred_New_Full\\Pred_New_Fu ..." ... [TRUNCATED] 

> dt <- read.csv(file = way,header = T,sep = ";") # читаем файл

> target <- dt$Target_100 # целевую в отдельную переменную

> #target <- km$cluster # целевую в отдельную переменную
> 
> dt <- dt[, ! colnames(dt)  %in% 
+            #           c("Target_100_Buy","Target_100 ..." ... [TRUNCATED] 

> km <- kmeans(um$layout, centers = 4)           

> # роскоментируем и Устанавливаем нужные пакеты после чего эту строку можно удалить
> #install.packages(c("rgl", "car" , "umap"))
> 
> 
> 
> # про um .... [TRUNCATED] 

> um <- umap(dt,n_components=3)   

> # n_components=3  во сколько измерений уменьшаем данные, можно 100 можно 1
> # можно 333, но нам для 3д надо трех мерное пространство поетому у нас  .... [TRUNCATED] 

> #тут все настройки по пакету  car
> # http://www.sthda.com/english/wiki/amazing-interactive-3d-scatter-plots-r-software-and-data-visualization
> lib .... [TRUNCATED] 

> target <- as.factor(target)  #  target нужен для того чтобы окрасить точки в цвет целевой

> scatter3d(x = um.res[,1], 
+           y = um.res[,2], 
+           z = um.res[,3],
+           #groups = target,
+           groups = km$cluster,
+ .... [TRUNCATED] 
Error in scatter3d.default(x = um.res[, 1], y = um.res[, 2], z = um.res[,  : 
  groups variable must be a factor
 
Aleksey Vyazmikin:

Чет не так делаю :(

scatter3d(x = um.res[,1], 
+           y = um.res[,2], 
+           z = um.res[,3],
+           #groups = target,
+           groups = km$cluster,

это выкинь , нельзя коментировать код внутри аргументов функции

 
mytarmailS:

это выкинь , нельзя коментировать код внутри аргументов функции

Ого, убрал, и сделал как на скрине.

scatter3d(x = um.res[,1], 
          y = um.res[,2], 
          z = um.res[,3],
          groups = as.factor(km$cluster),
          grid = FALSE, 
          surface = FALSE,
          ellipsoid = FALSE,
            bg.col = "black")

пока думает

 
Aleksey Vyazmikin:

пока думает

интересно о чем))

 
mytarmailS:

интересно о чем))


вот надумал что, это значит удалось на 4 кластера разбить?

Как теперь сохранить разметку строк к каждому кластеру?

 
Aleksey Vyazmikin:

вот надумал что, это значит удалось на 4 кластера разбить?

Да

Aleksey Vyazmikin:

Как теперь сохранить разметку строк к каждому кластеру?

сохраняешь модель umap

сохраняешь модель kmeans

и все..



Поставь еще ellipsoid = TRUE

прикольно должно получиться

 
mytarmailS:

Да

Это интересно, попробую отдельно модели поучить и посмотреть, что выйдет.


mytarmailS:

сохраняешь модель umap

сохраняешь модель kmeans

и все..

Можно поподробней?

Мне нужно сохранить:

1. Правила разбиения на кластеры в читаемом виде, что б их закодировать в MQL

2. Разметку кластерами строк в csv файл

Как это сделать?

 
Aleksey Vyazmikin:


1. Правила разбиения на кластеры в читаемом виде, что б их закодировать в MQL


не понял, ты хочешь получить результирующие проебразования в правилах чтобы перенести на мкюл?

 
mytarmailS:

не понял, ты хочешь получить результирующие проебразования в правилах чтобы перенести на мкюл?

Конечно, иначе как я потом буду модель применять? :)

 
Aleksey Vyazmikin:

Конечно, иначе как я потом буду модель применять? :)

)))))) ну переписывай все алгоритмы с Р в мкл  и тогда получишь все преобразования в правилах в мкл ))

1...191319141915191619171918191919201921192219231924192519261927...3510
Новый комментарий
Причина обращения: