Похоже, ваш фрейм данных называется "предсказанием".
Операция ==
берет каждый элемент, если векторы имеют одинаковую длину, и сравнивает их, возвращая ИСТИНА или ЛОЖЬ.При выполнении арифметики со значениями ИСТИНА и ЛОЖЬ они обрабатываются как 1 и 0 соответственно.Таким образом, среднее значение этого ==
сравнения даст вам то, что вы хотите.
mean(prediction[["pred"]]==prediction[["obs"]])