Дисперсия неисправностей

Question

Я пытаюсь вручную вычислить дисперсию в матрицах в R, и у меня возникают некоторые проблемы, связанные с неправильным количеством измерений.

У меня есть x, матрица 12x250, Temp.means, матрица 12x1, и я передаю ее в функцию с поиском внутри.

Мне бы в основном хотелось дисперсиюx поэтому я использую функцию apply, чтобы попытаться применить мою функцию дисперсии к моему коду ... но что-то работает не так.

Вот мой код:

Variance.fun <- function(x,Temp.means) {
for (i in 1:250) {
     vari <- (matrix(x[i,]-Temp.means)^2)/250
 }
 }

Answer 1

Если под «дисперсией» вы подразумеваете отличия строк от «стандартной строки» (как предложено в цикле for), то один из способов получить это - использовать apply

res <- apply( x, 1, "-", Temp.means)

может быть превращен в функцию:

 row.variation.from.std <- function (mat, std){
                            apply( mat, 1, "-", std) }

Я подозреваю, что использование вами слова «дисперсия» вводит в заблуждение некоторых потенциальных респондентов, которые предположили, что вы имели в виду понятие, как это слово определено в статистической практике.