In msperlin/adfeR: Data, exercises and Functions for Book "Analise de Dados Financeiros e Economicos com o R"

total_shares <- 100
price_purchase <- 15

total_purchase_value <- total_shares*price_purchase

qtd_sell_1 <- 30
price_sell_1 <- 18
total_sell_1 <- qtd_sell_1*18

qtd_sell_2 <- total_shares-qtd_sell_1
price_sell_2 <- 22
total_sell_2 <- qtd_sell_2*price_sell_2

total_sell_value <- total_sell_1 + total_sell_2

# solution
my_sol <- total_sell_value - total_purchase_value

my_answers <- make_random_answers(my_sol, is_cash = TRUE)

#check_answers(my_answers)

Question

Vamos supor que, em certa data, você comprou r total_shares ações de uma empresa, a price_purchase reais por ação. Depois de algum tempo, você vendeu r qtd_sell_1 ações por r price_sell_1 reais cada e as r qtd_sell_2 ações restantes foram vendidas por r price_sell_2 reais em um dia posterior. Usando um script em R, estruture este problema financeiro criando objetos numéricos. Qual é o lucro bruto desta transação no mercado de ações?

exams::answerlist(my_answers, markup = "markdown")

Solution

Meta-information

extype: schoice exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE) exname: "numeric 01" exshuffle: TRUE

msperlin/adfeR documentation built on March 26, 2021, 3:05 a.m.