Оптимист выдает ошибки из пар ввода, где fn = dlogis - PullRequest
Новая
       33

Оптимист выдает ошибки из пар ввода, где fn = dlogis

0 голосов
/ 13 марта 2020

Я не знаю, должен ли это быть новый предмет или нет.

Я изменил код так: 

library(Rcpp)

rm(list = ls())

datafile <- data.frame(
  N = c(1.5, 2.6, 0.555555555555556, 0.535714285714286, 0.418604651162791, 0.557377049180328, 0.463157894736842, 0.762589928057554, 0.583673469387755, 0.528350515463918, 0.649241146711636, 0.534764826175869, 0.556295802798135, 0.250856164383562, 0.202258726899384, 0.351266723598064, 0.226669475458184, 0.1275974583548, 0.0906183368869936, 0.123027510124284, 0.119124595871674)
)
View(datafile)
datafile$a<-dlogis(datafile$N, location = 0, scale = 1, log = FALSE)

файл данных не становится 2 столбцами N строк. Это становится 1 столбцом N + 1 строк, где файл данных $ a становится еще одной записью.

Мне интересно, если кто-нибудь узнает, является ли это проблемой, мой код с dlogis или с optim.
1) Консоль говорит, что я правильно запускаю dlogis.
Консоль одновременно говорит, что я не запускаю его правильно, когда я вызываю optim с dlogis. Как правильно вызывать optim с помощью приведенного ниже кода?

2) Кроме того, когда я вызываю dlogis, я хочу найти расположение параметров и их масштаб, чтобы можно было минимизировать ошибки с данными, которые я передаю. , Есть еще вещи, на которые я должен обратить внимание?

Спасибо 

library(Rcpp)

rm(list = ls())

datafile <- data.frame(
  N = c(1.5, 2.6, 0.555555555555556, 0.535714285714286, 0.418604651162791, 0.557377049180328, 0.463157894736842, 0.762589928057554, 0.583673469387755, 0.528350515463918, 0.649241146711636, 0.534764826175869, 0.556295802798135, 0.250856164383562, 0.202258726899384, 0.351266723598064, 0.226669475458184, 0.1275974583548, 0.0906183368869936, 0.123027510124284, 0.119124595871674)
)
View(datafile)
datafile$a<-dlogis(datafile$N, location = 0, scale = 1, log = FALSE)
View(datafile)

optim(c(datafile$N, 0.5, 0.1), dlogis)

Консоль выдаёт мне эту ошибку msg: 

> optim(c(datafile$N, 0.5, 0.1), dlogis)
Error in optim(c(datafile$N, 0.5, 0.1), dlogis) : 
  objective function in optim evaluates to length 23 not 1
...