Группировка семантического ядра на основе кластеризации поисковых систем

[kibnet]

Уже появился какой-то более-менее паблик софт на эту тему?
Если есть не паблик, и Вы хотите поделится со мной инфой - прошу в личку. Я хочу прикупить.

например, сервисы уже есть, но в осном под RU, мне же интересно EN ключи.

[Strannic]

если кода на 5 строк может кто поделится здесь ?

[7make]

так выше же по линку готовый код на R
http://www.inside-r.org/questions/r-...y-cluster-mefa

вот рабочий вариант, только проверил

library("cluster")
library("mefa")
data <- read.table("c:/input.csv", header=FALSE, sep=" ")
x<-mefa(stcs(data))
cl<-hclust(dist(x$xtab), method="ward.D")
clustnum<-cutree(cl,k=round(length(levels(data[,1]))/5),0)
write.table(clustnum, file='c:/out.csv', sep=';',col.names = FALSE)

[SoftMaster]

Сообщение от 7make

так выше же по линку готовый код на R
http://www.inside-r.org/questions/r-...y-cluster-mefa

вот рабочий вариант, только проверил

library("cluster")
library("mefa")
data <- read.table("c:/input.csv", header=FALSE, sep=" ")
x<-mefa(stcs(data))
cl<-hclust(dist(x$xtab), method="ward.D")
clustnum<-cutree(cl,k=round(length(levels(data[,1]))/5),0)
write.table(clustnum, file='c:/out.csv', sep=';',col.names = FALSE)

ошибку выдает

PHP код:

> write.table(clustnum, file='c:/out.csv', sep=';',col.names = FALSE)
Error in is.data.frame(x) : object 'clustnum' not found 


[7make]

нужен разделитель который четко даст две колонки.
у тебя в части урлов есть такой, который делит на более чем 2 колонки.

хотя проверь еще синтаксические ошибки у себя.

код выше проверил, работает.

[SoftMaster]

Да как-то облом искать синтаксические ошибки в 4к кеев

[cs2ms]

Сообщение от editeur

Я так понимаю смысл в том, чтобы прогнать 50к кеев, получить по ним выдачу, посмотреть, насколько разная выдача по каждому из запросов, и сделать вывод, какие кеи надо продвигать на одной транице, какие на разных, а какие вообще на разных сайтах.

а самое главное, когда создашь 1 в 1 такие же страницы, с такими же ключами, аккуратно расставленными по углам, то они прям именно так же, 1 в 1, и вылезут в серп

[Webaz]

7make,

library("cluster")
library("mefa")
data <- read.table("c:/input.csv", header=FALSE, sep=" ")
x<-mefa(stcs(data))
cl<-hclust(dist(x$xtab), method="ward.D")
clustnum<-cutree(cl,k=round(length(levels(data[,1]))/5),0)
write.table(clustnum, file='c:/out.csv', sep=';',col.names = FALSE)

в каком формате данные в /input.csv

[bifidoc55]

Сообщение от Webaz

под ру подскаж что есть

Еще сервис появился - http://semparser.ru/. Затестил, группирует нормально, синонимы распознает и т.д., коммерческие/нет нормально определяет.