Создать новую переменную в группе по функции в блестящем - PullRequest
Новая
       4

Создать новую переменную в группе по функции в блестящем

0 голосов
/ 21 февраля 2019

У меня возникают некоторые проблемы при попытке выполнить эту функцию: 

server = function(input, output) {
Casco_l = subset(Data,INSR_TYPE==3003)
aggregated <- reactive({
Casco_l %>%
  group_by_("3003"=input$select) %>%
  summarise("Exposure" = sum(Exposure), "Earned Premium" = sum(Earned_Premium), ,"GWP" = sum(GWP_RON), "Incurred" = sum(inc),"NO of events" = sum(No_ev),
            "Frequency" = (sum(Exposure)/sum(No_ev)), "Loss Ratio" = (sum(Earned_Premium)/sum(inc)),
            "ULR"= ((sum(Earned_Premium)/sum(inc))*ulr), "Avr premium" = (sum(Earned_Premium)/sum(Exposure)),
            "Avr claim" = (ifelse(sum(No_ev)=0,0,(sum(inc)/sum(No_ev))) ))

})

Ошибка: 

 Error: unexpected '=' in:
 "                "ULR"= ((sum(Earned_Premium)/sum(inc))*ulr), "Avr premium" = (sum(Earned_Premium)/sum(Exposure)),
                  "Avr claim" = (ifelse(sum(No_ev)="

Я не понимаю, почему для«Коэффициент потерь» не проблема, а для других переменных что-то не работает.

Спасибо.

1 Ответ

0 голосов
/ 21 февраля 2019

Чтение вашего сообщения об ошибке: 

Error: unexpected '=' in:
 "                "ULR"= ((sum(Earned_Premium)/sum(inc))*ulr), "Avr premium" = (sum(Earned_Premium)/sum(Exposure)),
                  "Avr claim" = (ifelse(sum(No_ev)="

Проблема в том, что вы должны использовать "==" вместо "=" в операторе ifelse ,вот почему скрипт выдает ошибку.

...