[honda]

#pytanie #informatyka #zadaniaprogramistyczne #pytaniedoeksperta #studia

Mireczki i Mirabelki, czy jest tu ktoś kto ogarnia R ? Mam zadanie dotyczące programowania liniowego z wykorzystaniem pakietu LpSolve. Rozwiązanie w #excel jest łatwe, ale musze je odtworzyć z wykorzystaniem pakietu R i tutaj zaczynają się schody...

Doradca finansowy skontaktował pana Andrzeja z agentem nieruchomości, który przedstawił mu ofertę 40 mieszkań w różnych częściach miasta. Pan Andrzej stwierdził, że będzie w stanie sam zarządzać mieszkaniami, pod warunkiem, że nie będzie ich więcej niż 6. Pan Andrzej musi się zastanowić które i ile z podanych mieszkań opłaca się kupić najbardziej dysponując budżetem miliona złotych. Szczegóły oferty przedstawiono w tabeli w załączniku.

Trzeba zbudować macierz z kolumnami zysk, cena oraz macierz zmiennych binarnych(?). Ograniczenia są takie że suma zmiennych binarnych <=6, suma ceny <= 1 000 000, a zysk powinien dążyć do maximum.

Z Solvera wychodzi, że pan Andrzej powinien zdecydować się na opcję inwestycji w nieruchomości kupując przy tym mieszkania 2, 15, 20, 29, 35, 39 płacąc przy tym 996640,66 zł i osiągając miesięczny zysk 5768,16 zł

Jak to ogarnąć w R ?

[L.....k]

@honda: hej, pokażesz rozwiązanie w Solverze? Mało go ogarniam, a taki praktyczny przykład to fajne ćwiczenie.

[honda]

@Luxik Tutaj masz excela z całym zadaniem i zrzutem ekranu z solvera KLIK

[zzbkk]

@honda: jak Cię interesuje to mogę poszukać s swoich materiałach coś na ten temat w tym środowisku ale z samego R nie pomogę

[honda]

@zzbkk chętnie rzucę okiem na Twoje materiały:)

[zzbkk]

@honda: bardzo proszę https://drive.google.com/drive/folders/0Bw9gG1ARLPuzTTN3Mlp0cUJCeVE?usp=sharing dostępne przez 24h

[honda]

@zzbkk: Dzięki wielkie, super materiały jak wywalcze rozwiązanie to się podzielę wynikiem jakby inne Mirki były w potrzebie

[honda]

Jakby kto spotkał się z podobnym problemem to udało się go rozwiązać:

Matrix1 = read.table("ŚCIEŻKA DOSTĘPU DO DANYCH", sep = "\t", header = 1)

library(lpSolve)

lp("max", as.vector(Matrix1[,2]),t(Matrix1[,3:4]),c("<=","="),c(1000000,6), binary.vec = c(1:40))

lp("max", as.vector(Matrix1[,2]),t(Matrix_1[,3:4]),c("<=","="),c(1000000,6), binary.vec = c(1:40))$solution