Форум врачей-аспирантов

Здравствуйте, гость ( Вход | Регистрация )

38 страниц V   1 2 3 > » 

p2004r
Отправлено: 7.09.2017 - 10:55


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(leo_biostat @ 5.09.2017 - 11:22) *
И использовать не 1-2 метода и критерия. А гораздо больше.



hi.gif leo_biostat!

Одна полезная ссылка за другую полезную ссылку. smile.gif
Нашел иллюстрацию пропагандируемого тобой (в каждом из твоих советов на этом форуме) методического подхода -- https://www.explainxkcd.com/wiki/index.php/882:_Significant
  Форум: Медицинская статистика · Просмотр сообщения: #21893 · Ответов: 4 · Просмотров: 784

p2004r
Отправлено: 4.09.2017 - 11:25


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Никаких "групп" не существует. Есть некие качественные признаки у каждого из сделанных наблюдений-опытов. Таким образом выборка принципиально _одна_.

Исходя из этого очевидно, что трансформации допустимы только к выборке целиком. В противном случае принципиально не обнаруживаемыми становятся эффекты связанные с дисперсией в "группах".

Лучше всего сразу проводить полноценный анализ ( https://en.wikipedia.org/wiki/Mixed_model ) который подразумевает что в выборке имеются оба типа эффектов fixed & random.
  Форум: Медицинская статистика · Просмотр сообщения: #21884 · Ответов: 4 · Просмотров: 784

p2004r
Отправлено: 21.08.2017 - 15:48


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


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

Схем перевыборок возможно несколько, тут надо пробовать и думать что лучше отражает условия наблюдения.
  Форум: Медицинская статистика · Просмотр сообщения: #21835 · Ответов: 5 · Просмотров: 558

p2004r
Отправлено: 21.08.2017 - 15:39


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(kont @ 19.08.2017 - 20:26) *
скорее модели много слойного перцептрона, 4 наилучших
входные нейроные-скрытые и выходные
точность хреновая, как видите


ну так оно так и не обучается гарантированно, там более сложная архитектура нужна сети
  Форум: Медицинская статистика · Просмотр сообщения: #21834 · Ответов: 7 · Просмотров: 1037

p2004r
Отправлено: 18.08.2017 - 21:40


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(kont @ 18.08.2017 - 18:47) *
p2004r, вопрос к Вам, как к активному пользователю, в каких случаях мы наблюдаем такое, тут ни одна из предложенных MLP не сработало правильно? Чтобы это значило, и как исправить?


это что, многослойный перцептрон и спецификация слоев?
  Форум: Медицинская статистика · Просмотр сообщения: #21829 · Ответов: 7 · Просмотров: 1037

p2004r
Отправлено: 17.08.2017 - 19:31


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Так и называется "data imputacion".

Вот например описание https://www.r-bloggers.com/imputing-missing...r-mice-package/

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

По моему просто и понятно.
  Форум: Медицинская статистика · Просмотр сообщения: #21823 · Ответов: 7 · Просмотров: 1037

p2004r
Отправлено: 14.08.2017 - 16:27


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 12.08.2017 - 13:35) *
p2004r, я пробовала работать с тремя этими пакетами, но или у меня руки кривые безнадежно sad.gif, или ансамбливое обучение тут не помощник.

library("ensembleR")

acc1=read.xlsx("C:/Users/Admin/Desktop/buyning.xlsx")
index <- sample(1:nrow(acc1),round(0.75*nrow(acc1)))
train <- acc1[index,]
test <- acc1[-index,]
preds <- ensemble(train,test,'id',c('treebag','rpart'),'rpart')

Error in train.default(training[, predictors], training[, outcomeName], :
Stopping

Something is wrong; all the RMSE metric values are missing:
RMSE Rsquared
Min. : NA Min. : NA
1st Qu.: NA 1st Qu.: NA
Median : NA Median : NA
Mean :NaN Mean :NaN
3rd Qu.: NA 3rd Qu.: NA
Max. : NA Max. : NA
NA's :1 NA's :1


======

library("caretEnsemble")
models <- caretList(train,test, methodList=c("glm", "lm"))

Error: nrow(x) == n is not TRUE
In addition: Warning messages:
1: In trControlCheck(x = trControl, y = target) :
trControl$savePredictions not 'all' or 'final'. Setting to 'final' so we can ensemble the models

==============
library("classyfire")

acco=read.xlsx("C:/Users/admin/Desktop/buyning.xlsx")
iClass <- acco[,1]
idata <- acco[,-1]

ens <- cfBuild(inputData = idata, inputClass = iClass, bootNum = 100,
ensNum = 100, parallel = TRUE, cpus = 4, type = "SOCK")

а тут такая ошибка

Error in .initCheck(inputData, inputClass, bootNum, ensNum, parallel, :
Argument "inputData" must contain numeric values.


Шах и мат.
На что он жалуется то?


Он же пишет явно на что жалуется cool.gif. С таким подходом можно "всю жизнь наверху простоять"ТМ biggrin.gif
  Форум: Медицинская статистика · Просмотр сообщения: #21811 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 10.08.2017 - 16:50


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 10.08.2017 - 11:16) *
Т.е. вы считаете, что такую верификацию из двух методов лучше не делать?


Вы условия которые написали перечитайте (ну или таблицу исходов какую нарисуйте и сократите "лишнее").

"Складывают" две модели операцией сложения. Например (раз у нас knn при k=1) -1 и 1 это исходы метода1 и -1 и 1 исходы метода2, на выходе имеем с(-2, 0, 2). То есть появилось ещё и "неизвестно". Если есть ещё и "вес" у модели, то "0" удастся избежать.

Но есть и нормальный способ обучить ансамбль методов, это взять один из пакетов заточенных именно на такой подход.

ensembleR: Ensemble Models in R
caretEnsemble: Ensembles of Caret Models
classyfire: Robust multivariate classification using highly optimised SVM ensembles
  Форум: Медицинская статистика · Просмотр сообщения: #21801 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 10.08.2017 - 00:16


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 9.08.2017 - 15:43) *
p2004r, Ваше мнение, как Вы считаете имеет ли место комбинирование моделей? Т.е.! КNN-очень хорошо отделяет нули от единиц, а вот дискриминантный анализ, после того,как я его дожала, стал отделять единицы от нулей.
Есть ли смысл, сначала использовать КNN, а затем дискриминантный анализ?
Т.е. на вход предикторы, на выходе КНН получаем 1, если при этом ДА=1, то итог 1, если ДА =0, то итог=0
Когда на вход предикторы, на выходе КНН получаем 0, если ДА=1, то итог 1, если ДА =0, то итог=0
Корректно ли так будет делать?


Что то посмотрю скрипач knn совсем не нужен smile.gif
  Форум: Медицинская статистика · Просмотр сообщения: #21798 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 9.08.2017 - 11:38


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Rudolf @ 9.08.2017 - 08:38) *
Спасибо. Вообщем-то один я это не сделаю, так как времени в выходные на это тратить не хочется pardon.gif
К тому же, как я понял, это отдельное высшее или постдипломное образование необходимо. Хотя некоторые самостоятельно познают, я не готов
rolleyes.gif




В армии не служил.


(надеюсь, что поможет то, что хотя бы зовут не Аветист smile.gif )

Тут проблема очень большая с вашими данными, если без шуток, вы уже составили план эксперимента своего исследования (пусть и неявно), и фактически набрали данные по этому плану. И всё зависит от того что за план был составлен и насколько корректно. Дефект плана ничем уже практически нельзя исправить.

А практика наблюдения за научруками показывает, что они весьма увлекаются составлением планов "гарантирующих успех" sad.gif. То есть план просто закладывает в исследование что то в виде "возвращения к среднему" и т.п. "феномены" обеспечивающие потом гарантированное нахождение "значимых отличий".

Таким образом все что написано в толстых книжках относительно experimental design уже оказалось не использовано (судя по отсутствию описания плана эксперимента в топике).

Если даже отвлечься от всех систематических погрешностей связанных с планом и ограничиться только описанием данных, то раз вы не вникаете в методы анализа "вникать" придется дата аналитику. Для квалификационной работы это не очень хорошо, поскольку говорить на защите вам придется самому.

Вот так выглядит ситуация с моей точки зрения.

PS а так сама по себе задача стандартная и нетрудная
  Форум: Медицинская статистика · Просмотр сообщения: #21795 · Ответов: 4 · Просмотров: 685

p2004r
Отправлено: 8.08.2017 - 22:36


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Rudolf @ 8.08.2017 - 21:28) *
Добрый день, прошу помощи в определении программ и методов обработки данных.
Обследованию было подвергнуто 200 человек с различными основными диагнозами, полом, дебютом поражения, тяжестью поражения одного органа. У них были выделены определенные микроорганизмы в количественном значении. Интересны корреляции этих значений и видов микроорганизмов с диагнозом, полом, возрастом, тяжестью поражения органа, может быть с сопутствующей патологией. Все было сформировано в excel 200 строк (пациентов) и 25-30 столбцов со значениями.
Спасибо.


Многое в этой ситуации (относительно её исхода) зависит от того, служили ли вы, Рудольф, уже в армии. smile.gif
  Форум: Медицинская статистика · Просмотр сообщения: #21793 · Ответов: 4 · Просмотров: 685

p2004r
Отправлено: 8.08.2017 - 19:08


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 8.08.2017 - 11:45) *
p2004r, подскажите, пожалуйста, а как мне нарисовать графически красиво для программиста, чтобы он уже на базе данных программировал решение. Я проявила сама инициативу хотела через дерево решений нарисовать, но пока не очень хорошо получается.
И вопрос для моего повышения знаний. Если accuracy 90%
значит ли это что на других выборках точность правильности определения будет не менее 90% т.е. из 100 наблюдений 90 будут правильно отнесены к своим классам. Или как понять эту цифру.


почитайте вики сами, там все вполне понятно изложено https://en.wikipedia.org/wiki/Receiver_oper..._characteristic

(ну не читать же мне вам это вслух?)

а картинку дерева решений рисовать прямо в вигнете есть у library(party) https://cran.r-project.org/web/packages/par...ettes/party.pdf
  Форум: Медицинская статистика · Просмотр сообщения: #21789 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 6.08.2017 - 20:19


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 6.08.2017 - 17:53) *
Кстати точно, попробую, прологарифмировать.
Подскажите, p2004r, как мне составить уравнение потом. Мне ведь надо не просто принести модель и сказать вот в R есть функция predict, так и предсказывайте
программисту нужно сообщить уравнение, чтобы он в CRM для автоматизации запрограммировал.

что-то ("mxnet") нет в репозитории. Видимо уже убрали sad.gif

> install.packages("mxnet")
Installing package into ?C:/Users/Admin/Documents/R/win-library/3.3?
(as ?lib? is unspecified)
Warning in install.packages :
package ?mxnet? is not available (for R version 3.3.2)


Для knn "никак", это алгоритм ближайшего соседа и "решение" просто сами данные smile.gif

mxnet

https://github.com/apache/incubator-mxnet/t...aster/R-package

keras

https://rstudio.github.io/keras/

PS если один покупатель делал несколько заказов последовательно и это не отражено в структуре данных, то knn ошибается.
  Форум: Медицинская статистика · Просмотр сообщения: #21785 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 6.08.2017 - 16:39


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 6.08.2017 - 14:57) *
у меня AUc=0.55, в R считала, неужели мне никак модель не улучшить?


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

(это складным ножом верифицировано)
Код
> table(factor(na.omit(df)$id), FNN::knn.cv(train=prcomp(na.omit(df[, -c(1, 11)]))$x[, 1:9], cl=factor(na.omit(df)$id), k=1))
  
       0    1
  0 3906  469
  1  370  106

> table(factor(na.omit(df)$id), FNN::knn.cv(train=prcomp(na.omit(df[, -c(1, 11)]))$x[, 1], cl=factor(na.omit(df)$id), k=1))
  
       0    1
  0 3959  416
  1  344  132


"Извлечение фич" это декларируют глубокие сетки, но тут маловато случаев будет. Хотя можно library(keras) (или library(mxnet)) поставить и попробовать.

PS можно еще и логарифмировать всё количественное перед pca (оно все "кривое" в плане распределения), может получше тогда свернется размерность
  Форум: Медицинская статистика · Просмотр сообщения: #21783 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 6.08.2017 - 14:32


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Fedor_Petuhov @ 31.07.2017 - 20:15) *
А что касается вашего вопроса "Зачем?"
Да затем, что мне никак их в data frame не перевести)


не только лишь каждый сделает это через e v a l smile.gif
  Форум: Медицинская статистика · Просмотр сообщения: #21781 · Ответов: 12 · Просмотров: 1351

p2004r
Отправлено: 6.08.2017 - 14:29


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(nastushka @ 5.08.2017 - 17:10) *
p2004r, здравствуйте, решила написать в своем же топике, но теперь тут другой скоринг (Раньше плохой, хороший), а сейчас купит-не купит услугу(id is dep var) smile.gif

Логистическая регрессия здесь, показала ужасные результаты, почти все нули(те, кто не купили) были правильно к своему классу отнесены, а единицы(те кто купили) также к нулям.
Все что смогла сама сделать, это Дискриминантный анализ в SPSS, вроде показал точность 60%, но это ни о чем. Сильная перемешка кейсов. Можете подсказать, как мне модель выровнять?
С регрессией что спсс, что статистика также ,как и R показывали такой результат. Тут нужно только через ДА.

acc=read.csv("C:/Users/Admin/Desktop/buyning.csv", sep=";",dec=",")

getwd()

> acc$profitValueList=as.numeric(acc$profitValueList)
> acc$revenueValueList=as.numeric(acc$revenueValueList)
> acc$courtPracticeList=as.numeric(acc$courtPracticeList)
> acc$digestRedList=as.numeric(acc$digestRedList)
> acc$digestGreyList=as.numeric(acc$digestGreyList)
> acc$digestGreenList=as.numeric(acc$digestGreenList)
> acc$linkedEntitiesByCeoNumList=as.numeric(acc$linkedEntitiesByCeoNumList)
> acc$linkedEntitiesByFounderNumList=as.numeric(acc$linkedEntitiesByFounderNumList)
> acc$linkedEntitiesChildrenNumList=as.numeric(acc$linkedEntitiesChildrenNumList)
> acc$capitalList=as.numeric(acc$capitalList)
> acc$gosWinnerNumList=as.numeric(acc$gosWinnerNumList)
> acc$gosWinnerSumList=as.numeric(acc$gosWinnerSumList)
> acc$gosPlacerNumList=as.numeric(acc$gosPlacerNumList)
> acc$gosPlacerSumList=as.numeric(acc$gosPlacerSumList)
> acc$inspectionsInFutureNumList=as.numeric(acc$inspectionsInFutureNumList)
> acc$inspectionsHasViolationsNumList=as.numeric(acc$inspectionsHasViolationsNumList)
> acc$inspectionsNoViolationsNumList=as.numeric(acc$inspectionsNoViolationsNumList)
> acc$inspectionsHasViolationsFailsList=as.numeric(acc$inspectionsHasViolationsFailsList)
> acc$Выручка=as.numeric(acc$Выручка)
> acc$Прибыль=as.numeric(acc$Прибыль)
> acc$Убыток=as.numeric(acc$Убыток)
> acc$Баланс=as.numeric(acc$Баланс)
> acc$Директор.Учредитель=as.numeric(acc$Директор.Учредитель)
> acc$Директор.отдельно=as.numeric(acc$Директор.отдельно)
> acc$Учредитель.отдельно=as.numeric(acc$Учредитель.отдельно)


> index <- sample(1:nrow(acc),round(0.75*nrow(acc)))
> train <- acc[index,]
> test <- acc[-index,]

> library("MASS")


> fitTrn =lda(id~.,data=train)
Error in lda.default(x, grouping, ...) :

ошибка была
variables 15 16 appear to be constant within groups


Как мне хотя бы маломальски точную классификацию получить?


Поздравляю, на этот раз "генерация данных" прошла лучше smile.gif
Эскизы прикрепленных изображений
Прикрепленное изображение
 
  Форум: Медицинская статистика · Просмотр сообщения: #21780 · Ответов: 57 · Просмотров: 5476

p2004r
Отправлено: 22.07.2017 - 19:08


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(kont @ 22.07.2017 - 16:48) *
p2004r, а Вы с юмором подходите, об чугунные батареи я убьюсь)) Дайте шанс. smile.gif
а что значат числа 34 и 3
200 это понятно это кол-во моих наблюдений



Вот картинка которую обожают психологи в тестах "найди закономерность":

Код
> names(df.korr[,-c(1:8)])
  [1] "Боль"            "Вина"            "Возмущение"      "Грусть"        
  [5] "Досада"          "Жалость"         "Забота"          "Злость"        
  [9] "Интерес"         "Испуг"           "Любовь"          "Обида"          
[13] "Огорчение"       "Отвержение"      "Отвращение"      "Печаль"        
[17] "Презрение"       "Равнодушие"      "Радость"         "Раздражение"    
[21] "Разочарование"   "Растерянность"   "Смущение"        "Сострадание"    
[25] "Сочувствие"      "Спокойствие"     "Страдание"       "Страх"          
[29] "Стыд"            "Счастье"         "Тревога"         "Удивление"      
[33] "Удовольствие"    "Ужас"            "Боль.1"          "Вина.1"        
[37] "Возмущение.1"    "Грусть.1"        "Досада.1"        "Жалость.1"      
[41] "Забота.1"        "Злость.1"        "Интерес.1"       "Испуг.1"        
[45] "Любовь.1"        "Обида.1"         "Огорчение.1"     "Отвержение.1"  
[49] "Отвращение.1"    "Печаль.1"        "Презрение.1"     "Равнодушие.1"  
[53] "Радость.1"       "Раздражение.1"   "Разочарование.1" "Растерянность.1"
[57] "Смущение.1"      "Сострадание.1"   "Сочувствие.1"    "Спокойствие.1"  
[61] "Страдание.1"     "Страх.1"         "Стыд.1"          "Счастье.1"      
[65] "Тревога.1"       "Удивление.1"     "Удовольствие.1"  "Ужас.1"        
[69] "Боль.2"          "Вина.2"          "Возмущение.2"    "Грусть.2"      
[73] "Досада.2"        "Жалость.2"       "Забота.2"        "Злость.2"      
[77] "Интерес.2"       "Испуг.2"         "Любовь.2"        "Обида.2"        
[81] "Огорчение.2"     "Отвержение.2"    "Отвращение.2"    "Печаль.2"      
[85] "Презрение.2"     "Равнодушие.2"    "Радость.2"       "Раздражение.2"  
[89] "Разочарование.2" "Растерянность.2" "Смущение.2"      "Сострадание.2"  
[93] "Сочувствие.2"    "Спокойствие.2"   "Страдание.2"     "Страх.2"        
[97] "Стыд.2"          "Счастье.2"       "Тревога.2"       "Удивление.2"    
[101] "Удовольствие.2"  "Ужас.2"          "Боль.3"          "Вина.3"        
[105] "Возмущение.3"    "Грусть.3"        "Досада.3"        "Жалость.3"      
[109] "Забота.3"        "Злость.3"        "Интерес.3"       "Испуг.3"        
[113] "Любовь.3"        "Обида.3"         "Огорчение.3"     "Отвержение.3"  
[117] "Отвращение.3"    "Печаль.3"        "Презрение.3"     "Равнодушие.3"  
[121] "Радость.3"       "Раздражение.3"   "Разочарование.3" "Растерянность.3"
[125] "Смущение.3"      "Сострадание.3"   "Сочувствие.3"    "Спокойствие.3"  
[129] "Страдание.3"     "Страх.3"         "Стыд.3"          "Счастье.3"      
[133] "Тревога.3"       "Удивление.3"     "Удовольствие.3"  "Ужас.3"



34 и 3 это "3 раза по 34 одинаковых качества"
  Форум: Медицинская статистика · Просмотр сообщения: #21760 · Ответов: 23 · Просмотров: 2291

p2004r
Отправлено: 21.07.2017 - 22:38


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(kont @ 18.07.2017 - 16:27) *
Вы этот имеете ввиду?
tnsr <- as.tensor(array(dat, dim = c(2, 3, 3)))


Пожалуй в бассейн можно смело вместо воды укладывать чугунные батареи smile.gif

Код
array(unlist(df.korr[,-c(1:8)]), dim = c(200, 34, 3))

  Форум: Медицинская статистика · Просмотр сообщения: #21758 · Ответов: 23 · Просмотров: 2291

p2004r
Отправлено: 21.07.2017 - 22:21


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Fedor_Petuhov @ 18.07.2017 - 14:25) *
Но в любом случае сможете помочь?


Зачем?

Код
> str(8345231(parse(text=js[,14][1])))
List of 7
$ alias               :8322456 [1:2] "by-ceo" "by-founder"
$ count               : num [1:2] 9 44
$ filters             :List of 2
  ..$ : list()
  ..$ : list()
$ name                :8322456 [1:2] "Через руководителей" "Через учредителей"
$ straightList        : logi [1:2] NA NA
$ straightListSubtitle:8322456 [1:2] "Учрежденные организации" "Учрежденные организации"
$ subjects            :List of 2
  ..$ :List of 9
  .. ..$ coCeo            :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 5
  .. .. .. .. ..$ balance : logi [1:3] NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:3] "9 июня 2012" "25 апреля 2012" "25 апреля 2012"
  .. .. .. .. ..$ label   :8322456 [1:3] "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена"
  .. .. .. .. ..$ name    :8322456 [1:3] "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"КОМПЛЕКС-М\""
  .. .. .. .. ..$ ogrn    :8322456 [1:3] "1127746459026" "1127746328797" "1127746328808"
  .. .. ..$ total: num 3
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 3 организаций"
  .. ..$ coFounded        :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 7
  .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:5] "9 июня 2012" "25 апреля 2012" "9 июня 2012" "21 февраля 2013" ...
  .. .. .. .. ..$ label   :8322456 [1:5] "Деятельность прекращена" "Деятельность прекращена" NA NA ...
  .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"МОДУЛЬ-М\"" "ООО \"ФОРТУНА\"" ...
  .. .. .. .. ..$ ogrn    :8322456 [1:5] "1127746459026" "1127746328797" "1127746457827" "5087746164468" ...
  .. .. .. .. ..$ share   :8322456 [1:5] "100%" "100%" "100%" "100%" ...
  .. .. .. .. ..$ sum     :8322456 [1:5] "10 000 руб" "10 000 руб" "10 000 руб" "300 010 руб" ...
  .. .. ..$ total: num 5
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций"
  .. ..$ id               :8322456 "402507024490"
  .. ..$ ipInfo           :List of 5
  .. .. ..$ balance : logi NA
  .. .. ..$ dateFrom:8322456 "7 декабря 2004"
  .. .. ..$ label   :8322456 "Деятельность прекращена"
  .. .. ..$ name    :8322456 "Епифанов Олег Николаевич"
  .. .. ..$ ogrn    :8322456 "304402534200116"
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : num 9
  .. ..$ name             :8322456 "ЕПИФАНОВ ОЛЕГ НИКОЛАЕВИЧ"
  ..$ :List of 9
  .. ..$ coCeo            :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 5
  .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:5] "22 ноября 2010" "25 сентября 2003" "17 мая 2004" "7 октября 2003" ...
  .. .. .. .. ..$ label   :8322456 [1:5] NA "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"МЕДИАПРО\"" "ООО \"МЕГАИНТЕЛ\"" "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" ...
  .. .. .. .. ..$ ogrn    :8322456 [1:5] "1037739909305" "1027710030138" "1037700256901" "1027700291761" ...
  .. .. ..$ total: num 22
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 22 организаций"
  .. ..$ coFounded        :List of 2
  .. .. ..$ items:List of 1
  .. .. .. ..$ :List of 7
  .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456 [1:5] "17 мая 2004" "8 октября 2003" "14 января 2003" "31 мая 2005" ...
  .. .. .. .. ..$ label   :8322456 [1:5] "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456 [1:5] "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" "ООО \"БЕГУН СЕРВИС\"" "ООО \"ХАКА ГРУПП\"" ...
  .. .. .. .. ..$ ogrn    :8322456 [1:5] "1037700256901" "1027700291761" "1027700323892" "1057747135599" ...
  .. .. .. .. ..$ share   : logi [1:5] NA NA NA NA NA
  .. .. .. .. ..$ sum     :8322456 [1:5] "10 000 руб" "8 400 руб" "10 000 руб" "10 000 руб" ...
  .. .. ..$ total: num 22
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 22 организаций"
  .. ..$ id               :8322456 "773713390842"
  .. ..$ ipInfo           : logi NA
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : num 44
  .. ..$ name             :8322456 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА"
> str(js[,14][[1]])
'data.frame':    2 obs. of  7 variables:
$ alias               :8322456  "by-ceo" "by-founder"
$ count               : int  9 44
$ filters             :List of 2
  ..$ : list()
  ..$ : list()
$ name                :8322456  "Через руководителей" "Через учредителей"
$ straightList        : logi  NA NA
$ straightListSubtitle:8322456  "Учрежденные организации" "Учрежденные организации"
$ subjects            :List of 2
  ..$ :'data.frame':    1 obs. of  9 variables:
  .. ..$ coCeo            :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    3 obs. of  5 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "9 июня 2012" "25 апреля 2012" "25 апреля 2012"
  .. .. .. .. ..$ label   :8322456  "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена"
  .. .. .. .. ..$ name    :8322456  "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"КОМПЛЕКС-М\""
  .. .. .. .. ..$ ogrn    :8322456  "1127746459026" "1127746328797" "1127746328808"
  .. .. ..$ total: int 3
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 3 организаций"
  .. ..$ coFounded        :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    5 obs. of  7 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "9 июня 2012" "25 апреля 2012" "9 июня 2012" "21 февраля 2013" ...
  .. .. .. .. ..$ label   :8322456  "Деятельность прекращена" "Деятельность прекращена" NA NA ...
  .. .. .. .. ..$ name    :8322456  "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"МОДУЛЬ-М\"" "ООО \"ФОРТУНА\"" ...
  .. .. .. .. ..$ ogrn    :8322456  "1127746459026" "1127746328797" "1127746457827" "5087746164468" ...
  .. .. .. .. ..$ share   :8322456  "100%" "100%" "100%" "100%" ...
  .. .. .. .. ..$ sum     :8322456  "10 000 руб" "10 000 руб" "10 000 руб" "300 010 руб" ...
  .. .. ..$ total: int 5
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций"
  .. ..$ id               :8322456 "402507024490"
  .. ..$ ipInfo           :'data.frame':    1 obs. of  5 variables:
  .. .. ..$ balance : logi NA
  .. .. ..$ dateFrom:8322456 "7 декабря 2004"
  .. .. ..$ label   :8322456 "Деятельность прекращена"
  .. .. ..$ name    :8322456 "Епифанов Олег Николаевич"
  .. .. ..$ ogrn    :8322456 "304402534200116"
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : int 9
  .. ..$ name             :8322456 "ЕПИФАНОВ ОЛЕГ НИКОЛАЕВИЧ"
  ..$ :'data.frame':    1 obs. of  9 variables:
  .. ..$ coCeo            :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    5 obs. of  5 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "22 ноября 2010" "25 сентября 2003" "17 мая 2004" "7 октября 2003" ...
  .. .. .. .. ..$ label   :8322456  NA "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456  "ООО \"МЕДИАПРО\"" "ООО \"МЕГАИНТЕЛ\"" "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" ...
  .. .. .. .. ..$ ogrn    :8322456  "1037739909305" "1027710030138" "1037700256901" "1027700291761" ...
  .. .. ..$ total: int 22
  .. ..$ coCeoSubtitle    :8322456 "Руководитель 22 организаций"
  .. ..$ coFounded        :'data.frame':    1 obs. of  2 variables:
  .. .. ..$ items:List of 1
  .. .. .. ..$ :'data.frame':    5 obs. of  7 variables:
  .. .. .. .. ..$ balance : logi  NA NA NA NA NA
  .. .. .. .. ..$ dateFrom:8322456  "17 мая 2004" "8 октября 2003" "14 января 2003" "31 мая 2005" ...
  .. .. .. .. ..$ label   :8322456  "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ...
  .. .. .. .. ..$ name    :8322456  "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" "ООО \"БЕГУН СЕРВИС\"" "ООО \"ХАКА ГРУПП\"" ...
  .. .. .. .. ..$ ogrn    :8322456  "1037700256901" "1027700291761" "1027700323892" "1057747135599" ...
  .. .. .. .. ..$ share   : logi  NA NA NA NA NA
  .. .. .. .. ..$ sum     :8322456  "10 000 руб" "8 400 руб" "10 000 руб" "10 000 руб" ...
  .. .. ..$ total: int 22
  .. ..$ coFoundedSubtitle:8322456 "Учредитель 22 организаций"
  .. ..$ id               :8322456 "773713390842"
  .. ..$ ipInfo           : logi NA
  .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. ..$ linkCount        : int 44
  .. ..$ name             :8322456 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА"
>
  Форум: Медицинская статистика · Просмотр сообщения: #21757 · Ответов: 12 · Просмотров: 1351

p2004r
Отправлено: 18.07.2017 - 14:03


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Fedor_Petuhov @ 18.07.2017 - 11:37) *
p2004r, а я его написал


теперь сравните этот код с тем, что был в первом (да и собственно всех кроме последнего) постах...
  Форум: Медицинская статистика · Просмотр сообщения: #21727 · Ответов: 12 · Просмотров: 1351

p2004r
Отправлено: 17.07.2017 - 22:39


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(kont @ 17.07.2017 - 20:27) *
Так точно:)
а с аргументом ранг, можете помочь разобраться?
Error: length(ranks) == (num_modes - 1) is not TRUE
тенсор то отработал, а вот ранг нет
Какова его суть, что я его вбил верно
пока у меня так
ranks=c(10,10)


Ну вот когда сделаете array, тогда и нальем воду в бассейн продолжим дальше.
  Форум: Медицинская статистика · Просмотр сообщения: #21723 · Ответов: 23 · Просмотров: 2291

p2004r
Отправлено: 17.07.2017 - 22:36


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Fedor_Petuhov @ 17.07.2017 - 20:17) *
нет, поймите, мне нужно так
4-ая колонка распарсилась при таком скрипте

json_file <- fromJSON(json_file)
lapply(
js[, 4],
function (txt.list) {
r.list <-8345231(parse(text = txt.list))
split(r.list$text, r.list$class)
}
)

а вот 14-ая выдала ошибку, у меня просто не один джейсон, их много.



Ну тогда напишите минимальный (или хотя бы просто работающий) пример, демонстрирующий ошибку.

  Форум: Медицинская статистика · Просмотр сообщения: #21722 · Ответов: 12 · Просмотров: 1351

p2004r
Отправлено: 17.07.2017 - 20:08


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(kont @ 17.07.2017 - 19:18) *
Спасибо, кажется понял
dat <- as.matrix(dat)
dat <- as.tensor(dat)
class(dat)
[1] "Tensor"



Это вряд ли (С) т. Сухов

Сначала мана мана array() надо заполнить, что бы получился гиперкуб на каждой грани которого отдельно "люди", "шкалы", "картинки" ... и вот потом уже вышеприведенное.
  Форум: Медицинская статистика · Просмотр сообщения: #21719 · Ответов: 23 · Просмотров: 2291

p2004r
Отправлено: 17.07.2017 - 20:04


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Fedor_Petuhov @ 17.07.2017 - 19:26) *
т.е. мне надо посмотреть какие там поля есть.


ну так вот они все поля приведены в выводе str()

зачем куда то эту структуру данных еще дополнительно преобразовывать? пользоваться надо smile.gif
  Форум: Медицинская статистика · Просмотр сообщения: #21718 · Ответов: 12 · Просмотров: 1351

p2004r
Отправлено: 17.07.2017 - 19:00


Дух форума
*

Группа: Пользователи
Сообщений: 962
Регистрация: 26.08.2010
Пользователь №: 22699


Цитата(Fedor_Petuhov @ 17.07.2017 - 18:18) *
Подскажите, мне нужно распарсить json file из датасета

json_file <- fromJSON(paste(readLines("9729093289.json"), collapse=""))
json_file <- purrr::map_df(temp, function(x) {
purrr::map(jsonlite::fromJSON(x), function(y) ifelse(is.null(y), NA, y))
})

js <- as.data.frame(json_file)


json_file <- fromJSON(json_file)
lapply(
js[, 14],
function (txt.list) {
r.list <-8345231(parse(text = txt.list))
split(r.list$text, r.list$class)
}
)

ошибка

Error in split.default(r.list$text, r.list$class) :
first argument must be a vector

как победить?



Ну вот прочитано в список, дальше что?

Код
> str(jsonlite::fromJSON("9729093289.json"))
List of 20
$ balanceCollection: NULL
$ checkMap         :List of 5
  ..$ blocks            :'data.frame':    6 obs. of  3 variables:
  .. ..$ comment : logi [1:6] NA NA NA NA NA NA
  .. ..$ items   :List of 6
  .. .. ..$ :'data.frame':    11 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:11] "red" NA NA "red" ...
  .. .. .. ..$ name :8322456 [1:11] "Контрагент существует" "Статус контрагента" "Уставный капитал" "Руководитель является единственным учредителем" ...
  .. .. .. ..$ value:8322456 [1:11] "Меньше года" "Действует" "55 000 руб" "Да" ...
  .. .. ..$ :'data.frame':    5 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:5] "red" "red" "red" "red" ...
  .. .. .. ..$ name :8322456 [1:5] "Выручка" "Чистая прибыль (убыток)" "Основные средства" "Долгосрочные инвестиции" ...
  .. .. .. ..$ value:8322456 [1:5] "Баланс не найден" "Баланс не найден" "Баланс не найден" "Баланс не найден" ...
  .. .. ..$ :'data.frame':    8 obs. of  3 variables:
  .. .. .. ..$ class: logi [1:8] NA NA NA NA NA NA ...
  .. .. .. ..$ name :8322456 [1:8] "Суды в роли ответчика" "Дела о банкротстве" "Изменения в деле о банкротстве за последний месяц" "Исполнительные производства" ...
  .. .. .. ..$ value:8322456 [1:8] "Нет" "Нет" "Нет" "Нет" ...
  .. .. ..$ :'data.frame':    7 obs. of  3 variables:
  .. .. .. ..$ class: logi [1:7] NA NA NA NA NA NA ...
  .. .. .. ..$ name :8322456 [1:7] "Проверки госорганов" "Суды в роли истца" "Выигранные или размещенные госконтракты" "Последнее изменение в ЕГРЮЛ" ...
  .. .. .. ..$ value:8322456 [1:7] "-" "Нет" "Нет" "14 июня 2017 ? Представление сведений о регистрации юридического лица в качестве страхователя в территориальном органе пенсионн"| __truncated__ ...
  .. .. ..$ :'data.frame':    7 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:7] NA NA NA NA ...
  .. .. .. ..$ name :8322456 [1:7] "Суды в роли истца или ответчика" "Филиалы" "Представительства" "Заключено или размещено госконтрактов за год" ...
  .. .. .. ..$ value:8322456 [1:7] "Нет" "Нет" "Нет" "Нет" ...
  .. .. ..$ :'data.frame':    6 obs. of  3 variables:
  .. .. .. ..$ class:8322456 [1:6] "red" NA NA NA ...
  .. .. .. ..$ name :8322456 [1:6] "Контрагент существует" "Организационная форма" "Выручка за 2015" "Чистая прибыль (убыток)" ...
  .. .. .. ..$ value:8322456 [1:6] "Меньше 3 лет" NA "Баланс не найден" "Баланс не найден" ...
  .. ..$ subtitle:8322456 [1:6] "Проверка на фирму-однодневку" "Проверка финансового состояния за последний год" "Проверка добросовестности" "Проверка деловой активности за последний год" ...
  ..$ downloadButtonUrl : NULL
  ..$ showDownloadButton: logi FALSE
  ..$ showPrintButton   : logi FALSE
  ..$ title             :8322456 "Итоги проверки ООО \"ПОЛИС-ЭКСПО\""
$ courtPractice    : NULL
$ digest           :List of 1
  ..$ items:'data.frame':    5 obs. of  3 variables:
  .. ..$ class:8322456 [1:5] "green" "green" "green" "green" ...
  .. ..$ items:List of 5
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. .. ..$ : list()
  .. ..$ text :8322456 [1:5] "Нет дел о банкротстве" "Не участвует в судах" "Нет в реестре массовых руководителей" "Нет дисквалифицированных лиц" ...
$ docRequestText   :8322456 "Здравствуйте.<br /><br />В сервисе ?Главбух. Проверка контрагентов? ООО \"ПОЛИС-ЭКСПО\" определяется как компания со средним ри"| __truncated__
$ egr              :List of 6
  ..$ date      : NULL
  ..$ id        : NULL
  ..$ newRequest: NULL
  ..$ ogrn      :8322456 "1177746570253"
  ..$ state     :8322456 "notExists"
  ..$ text      :8322456 "Выписки пока нет"
$ egrChanges       :List of 3
  ..$ blocks:'data.frame':    1 obs. of  3 variables:
  .. ..$ alias:8322456 "done"
  .. ..$ items:List of 1
  .. .. ..$ :'data.frame':    4 obs. of  7 variables:
  .. .. .. ..$ code      :8322456 [1:4] "13300" "13400" "11201" "13200"
  .. .. .. ..$ date      :8322456 [1:4] "2017-06-14T00:00:00" "2017-06-13T00:00:00" "2017-06-08T00:00:00" "2017-06-08T00:00:00"
  .. .. .. ..$ docs      :List of 4
  .. .. .. .. ..$ :8322456(0)
  .. .. .. .. ..$ :8322456(0)
  .. .. .. .. ..$ :8322456 [1:4] "Р11001 ЗАЯВЛЕНИЕ О СОЗДАНИИ ЮЛ" "ДОКУМЕНТ ОБ ОПЛАТЕ ГОСУДАРСТВЕННОЙ ПОШЛИНЫ" "УСТАВ ЮЛ" "РЕШЕНИЕ О СОЗДАНИИ ЮЛ"
  .. .. .. .. ..$ :8322456(0)
  .. .. .. ..$ grn       :8322456 [1:4] "6177747376537" "6177747331778" "1177746570253" "6177747152511"
  .. .. .. ..$ id        :8322456 [1:4] "2b3fd09d-a932-484c-8757-3cfaf6e8b54d" "dc329991-041d-4e1b-990b-55afcdf716e9" "7bbc8409-1fcd-4125-b68e-17d4ce62ba19" "1d73027c-7b77-4371-831e-d3faacc52172"
  .. .. .. ..$ registrant:8322456 [1:4] "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве"
  .. .. .. ..$ type      :8322456 [1:4] "Представление сведений о регистрации юридического лица в качестве страхователя в территориальном органе пенсионного фонда росси"| __truncated__ "Представление сведений о регистрации юридического лица в качестве страхователя в исполнительном органе фонда социального страхо"| __truncated__ "Создание юридического лица" "Представление сведений об учете юридического лица в налоговом органе"
  .. ..$ title:8322456 "Внесенные"
  ..$ title :8322456 "Изменения в ЕГРЮЛ"
  ..$ total : int 4
$ executions       : NULL
$ goscontracts     : NULL
$ info             :List of 27
  ..$ address                                      :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "8 июня 2017"
  .. ..$ text    :8322456 "119633, Москва, Боровское шоссе, 21, квартира 216"
  .. ..$ title   :8322456 "Адрес"
  ..$ aoReestrHolder                               : NULL
  ..$ blockInn                                     :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "9729093289"
  .. ..$ title   :8322456 "ИНН"
  ..$ blockKpp                                     :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "772901001"
  .. ..$ title   :8322456 "КПП"
  ..$ blockOgrn                                    :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "1177746570253"
  .. ..$ title   :8322456 "ОГРН"
  ..$ capital                                      :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "8 июня 2017"
  .. ..$ text    :8322456 "55 000 руб"
  .. ..$ title   :8322456 "Уставный капитал"
  ..$ email                                        : NULL
  ..$ filials                                      : NULL
  ..$ filialsAndRepresentitivesCaption             : NULL
  ..$ formationDate                                :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "8 июня 2017"
  .. ..$ text    :8322456 "8 июня 2017 ? создание юридического лица"
  .. ..$ title   :8322456 "Существует меньше года"
  ..$ founders                                     :List of 2
  .. ..$ items:'data.frame':    1 obs. of  10 variables:
  .. .. ..$ alerts            :List of 1
  .. .. .. ..$ : list()
  .. .. ..$ dateFrom          :8322456 "8 июня 2017"
  .. .. ..$ delegates         : logi NA
  .. .. ..$ encumbrances      : logi NA
  .. .. ..$ inn               :8322456 "773203847708"
  .. .. ..$ linkedEntityButton: logi NA
  .. .. ..$ name              :8322456 "Мянзелев Андрей Иммратович"
  .. .. ..$ ogrn              : logi NA
  .. .. ..$ share             :'data.frame':    1 obs. of  4 variables:
  .. .. .. ..$ alerts  :List of 1
  .. .. .. .. ..$ : list()
  .. .. .. ..$ dateFrom: logi NA
  .. .. .. ..$ text    :8322456 "100%"
  .. .. .. ..$ title   :8322456 "Доля в уставном капитале"
  .. .. ..$ shareSumm         :8322456 "55 000 руб"
  .. ..$ title:8322456 "Учредители"
  ..$ fssRegistration                              :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "13 июня 2017"
  .. ..$ text    :8322456 "772109334477211"
  .. ..$ title   :8322456 "ФСС"
  ..$ inn                                          :8322456 "9729093289"
  ..$ name                                         :8322456 "ООО \"ПОЛИС-ЭКСПО\""
  ..$ new_activities                               :List of 2
  .. ..$ items:8322456 [1:8] "46.32 Торговля оптовая мясом и мясными продуктами" "46.33 Торговля оптовая молочными продуктами, яйцами и пищевыми маслами и жирами" "46.34 Торговля оптовая напитками" "46.35 Торговля оптовая табачными изделиями" ...
  .. ..$ title:8322456 "Дополнительные виды деятельности"
  ..$ new_activity                                 :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "46.90 Торговля оптовая неспециализированная"
  .. ..$ title   :8322456 "Основной вид деятельности 46.90"
  ..$ new_ceos                                     :List of 2
  .. ..$ items:'data.frame':    1 obs. of  6 variables:
  .. .. ..$ alerts            :List of 1
  .. .. .. ..$ : list()
  .. .. ..$ dateFrom          :8322456 "8 июня 2017"
  .. .. ..$ fio               :8322456 "Мянзелев Андрей Иммратович"
  .. .. ..$ inn               :8322456 "773203847708"
  .. .. ..$ linkedEntityButton:'data.frame':    1 obs. of  3 variables:
  .. .. .. ..$ id  :8322456 "773203847708"
  .. .. .. ..$ tab :8322456 "by-ceo"
  .. .. .. ..$ text:8322456 "Перейти к 10 связанным компаниям"
  .. .. ..$ post              :8322456 "Генеральный директор"
  .. ..$ title:8322456 "Лица, действующие без доверенности"
  ..$ new_fullName                                 :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ text    :8322456 "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ПОЛИС-ЭКСПО\""
  .. ..$ title   :8322456 "Полное наименование"
  ..$ ogrn                                         :8322456 "1177746570253"
  ..$ pfrRegistration                              :List of 4
  .. ..$ alerts  : list()
  .. ..$ dateFrom:8322456 "13 июня 2017"
  .. ..$ text    :8322456 "087816014781"
  .. ..$ title   :8322456 "ПФР"
  ..$ pravopreemniki                               : NULL
  ..$ pravopreemnikiAndPravopredshestvennikiCaption: NULL
  ..$ predshestvenniki                             : NULL
  ..$ representitives                              : NULL
  ..$ status                                       :List of 5
  .. ..$ alerts  : list()
  .. ..$ dateFrom: NULL
  .. ..$ subtext : NULL
  .. ..$ text    :8322456 "Действующая организация"
  .. ..$ title   : NULL
  ..$ upravOrg                                     : NULL
  ..$ warnings                                     : list()
$ inspections      : NULL
$ isActive         : logi TRUE
$ licenses         : NULL
$ linkedEntities   :List of 3
  ..$ tabs :'data.frame':    1 obs. of  7 variables:
  .. ..$ alias               :8322456 "by-ceo"
  .. ..$ count               : int 10
  .. ..$ filters             :List of 1
  .. .. ..$ : list()
  .. ..$ name                :8322456 "Через руководителей"
  .. ..$ straightList        : logi NA
  .. ..$ straightListSubtitle:8322456 "Учрежденные организации"
  .. ..$ subjects            :List of 1
  .. .. ..$ :'data.frame':    1 obs. of  9 variables:
  .. .. .. ..$ coCeo            :'data.frame':    1 obs. of  2 variables:
  .. .. .. .. ..$ items:List of 1
  .. .. .. .. .. ..$ :'data.frame':    5 obs. of  5 variables:
  .. .. .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ dateFrom:8322456 [1:5] "2 июня 2017" "2 июня 2017" "2 июня 2017" "22 июня 2017" ...
  .. .. .. .. .. .. ..$ label   : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"ТРИСТАН-ГРУПП\"" "ООО \"ЭКВИЛИБРИ\"" "ООО \"ПОЛИС-ЭКСПО\"" "ООО \"РИБС-ТРЕЙД\"" ...
  .. .. .. .. .. .. ..$ ogrn    :8322456 [1:5] "1177746548836" "1177746551762" "1177746551575" "1177746618884" ...
  .. .. .. .. ..$ total: int 5
  .. .. .. ..$ coCeoSubtitle    :8322456 "Руководитель 5 организаций"
  .. .. .. ..$ coFounded        :'data.frame':    1 obs. of  2 variables:
  .. .. .. .. ..$ items:List of 1
  .. .. .. .. .. ..$ :'data.frame':    5 obs. of  7 variables:
  .. .. .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ dateFrom:8322456 [1:5] "2 июня 2017" "2 июня 2017" "2 июня 2017" "22 июня 2017" ...
  .. .. .. .. .. .. ..$ label   : logi [1:5] NA NA NA NA NA
  .. .. .. .. .. .. ..$ name    :8322456 [1:5] "ООО \"ТРИСТАН-ГРУПП\"" "ООО \"ЭКВИЛИБРИ\"" "ООО \"ПОЛИС-ЭКСПО\"" "ООО \"РИБС-ТРЕЙД\"" ...
  .. .. .. .. .. .. ..$ ogrn    :8322456 [1:5] "1177746548836" "1177746551762" "1177746551575" "1177746618884" ...
  .. .. .. .. .. .. ..$ share   :8322456 [1:5] "100%" "100%" "100%" "100%" ...
  .. .. .. .. .. .. ..$ sum     :8322456 [1:5] "90 000 руб" "70 000 руб" "55 000 руб" "80 000 руб" ...
  .. .. .. .. ..$ total: int 5
  .. .. .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций"
  .. .. .. ..$ id               :8322456 "773203847708"
  .. .. .. ..$ ipInfo           : logi NA
  .. .. .. ..$ ipLinkSubtitle   :8322456 "Индивидуальный предприниматель"
  .. .. .. ..$ linkCount        : int 10
  .. .. .. ..$ name             :8322456 "МЯНЗЕЛЕВ АНДРЕЙ ИММРАТОВИЧ"
  ..$ title:8322456 "Связанные организации"
  ..$ total: int 10
$ reports          :List of 3
  ..$ enabled: logi TRUE
  ..$ reports:'data.frame':    2 obs. of  3 variables:
  .. ..$ href   :8322456 [1:2] "/site/details/ogrn/1177746570253/reports/detailed/" "/site/details/ogrn/1177746570253/egr-xml"
  .. ..$ name   :8322456 [1:2] "По контрагенту" "XML из ЕГРЮЛ (отладочный)"
  .. ..$ visible: logi [1:2] TRUE TRUE
  ..$ text   :8322456 "Скачать отчет"
$ semaphore        :List of 3
  ..$ class:8322456 "doc-lights_state_yellow"
  ..$ text :8322456 "Контрагент работает недавно, получите рекомендации его клиентов"
  ..$ title:8322456 "Рекомендуем проверить"
$ size             : NULL
$ tabs             :'data.frame':    9 obs. of  7 variables:
  ..$ active : logi [1:9] TRUE FALSE FALSE FALSE TRUE TRUE ...
  ..$ alias  :8322456 [1:9] "main" "finance" "court-practice" "executions" ...
  ..$ default: logi [1:9] TRUE FALSE FALSE FALSE FALSE FALSE ...
  ..$ name   :8322456 [1:9] "Основное" "Баланс" "Арбитраж" "Приставы" ...
  ..$ order  : int [1:9] 1 2 3 4 5 6 7 8 9
  ..$ total  :8322456 [1:9] NA NA NA NA ...
  ..$ visible: logi [1:9] TRUE TRUE TRUE TRUE TRUE TRUE ...
$ type             :8322456 "org_entity"
$ warnings         : list()
  Форум: Медицинская статистика · Просмотр сообщения: #21714 · Ответов: 12 · Просмотров: 1351

38 страниц V   1 2 3 > » 

Открытая тема (есть новые ответы)  Открытая тема (есть новые ответы)
Открытая тема (нет новых ответов)  Открытая тема (нет новых ответов)
Горячая тема (есть новые ответы)  Горячая тема (есть новые ответы)
Горячая тема (нет новых ответов)  Горячая тема (нет новых ответов)
Опрос (есть новые голоса)  Опрос (есть новые голоса)
Опрос (нет новых голосов)  Опрос (нет новых голосов)
Закрытая тема  Закрытая тема
Тема перемещена  Тема перемещена