Последовательности должны быть
- `a0grid` including increments of 100 between starting at 500 and up to 2500 [500,600,700,...,2200,2300,2400,2500]
- `a1grid` including increments of 10 between -100 and 100 [-100,-90,-80,...,80,90,100]
Инициализация:
a0 <- seq(500,2500,by=100)
a1 <- seq(-100,100,by=10)
[1] 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 1900 2000 2100 2200 2300 2400 2500
[1] -100 -90 -80 -70 -60 -50 -40 -30 -20 -10 0 10 20 30 40 50 60 70 80 90 100
Что я сейчас получаю:
То, что я ищу (не совсем, а только точки повсюду, как показано):