Язык R

[print_Alex]

Напишите функцию assessment(), которая

• принимает на вход вектор прибыли (может содержать как положительные, так и отрицательные значения);

• возвращает вектор такой же длины, что и вектор на входе, из 0 и 1, где 0 соответствует отрицательным и нулевым значениям прибыли, а 1 – положительным значениям прибыли. В этой задаче необходимо использовать цикл for.

Пример:

На входе: с(-100, 150, 3500, 720, 0, -350).
На выходе: c(0, 1, 1, 1, 1, 0, 0).