Как раз обход: вы можете использовать какой-то более ранний видеоролик DOS, например ...
asm
{
mov ax, 13h
push bp
int 10h
pop bp
}
... для разрешения 320x200 пикселей.
Но я не уверен, что это будет работать для приложения Windows ... Возможно, нет!
Попробуйте один раз
if (ad2 $ Cost.x> = ad2 $ lower & ad2 $ Cost.x < = ad2 $ upper) {ad3 < - ad2 [, c (страна, бренд , Год, BU219.x, Cost.x, Value.x, Optimized_point.x)]}
Если вы напечатаете значения ad2$Cost.x>=ad2$lower & ad2$Cost.x<=ad2$upper
, вы можете увидеть более одного логического условия в результате. Это потому, что в R все операции векторизованы.
Пример:
> cc =c(T,F)
> if (cc) print(cc)
[1] TRUE FALSE
Warning message:
In if (cc) print(cc) :
the condition has length > 1 and only the first element will be used
Поэтому используйте все или любую функцию, подобную этой:
> if (all(cc)) print(cc) #If all conditions are true
> if (any(cc)) print(cc)
[1] TRUE FALSE