mutate(optiontype = as.double(optiontype == "put")) %>%
mutate(buy_gain = (optionstrike - settle_sp_price)*(optiontype*2 - 1)) %>%
mutate(bet_price = optionstrike - optionclosingprice*(optiontype*2 - 1))
prices <- options %>%
select(todaydate, today_sp_price) %>%
unique() %>%
mutate(lag_one = lag(today_sp_price), lag_three = lag(today_sp_price, 3),
lag_five = lag(today_sp_price, 5) ) %>%
select(-(today_sp_price)) `
Qu'est ce que le bet_ price ? Je peux également vous fournir le nom des colonnes du data si vous le voulez. Merci d'avance