Мой фрейм данных выглядит следующим образом. Я рассчитал наклон каждой точки информационного кадра. Эта функция не работает на моем новом ноутбуке. Я не знаю, что делать
X1 X2 X3 X4
==========================================================
0.1000000 0.1414214 0.1414214 0.1414214
----------------------------------------------------------
0.1414214 0.1414214 0.1414214 0.1732051
----------------------------------------------------------
0.1414214 0.2449490 0.2645751 0.2645751
----------------------------------------------------------
0.1414214 0.1732051 0.2236068 0.2449490
----------------------------------------------------------
0.1414214 0.1414214 0.1732051 0.1732051
----------------------------------------------------------
0.3316625 0.3464102 0.3605551 0.3741657
----------------------------------------------------------
0.2236068 0.2645751 0.3000000 0.3162278
----------------------------------------------------------
0.1000000 0.1414214 0.1732051 0.2000000
----------------------------------------------------------
0.1414214 0.3000000 0.3162278 0.3464102
----------------------------------------------------------
0.1000000 0.1732051 0.1732051 0.1732051
----------------------------------------------------------
structure(list(X1 = c(0.1, 0.141421356237309, 0.141421356237309,
0.14142135623731, 0.346410161513775), X2 = c(0.14142135623731,
0.33166247903554, 0.1, 0.244948974278318, 0.1), X3 = c(0.14142135623731,
0.223606797749979, 0.100000000000001, 0.412310562561766, 0.33166247903554
), X4 = c(0.14142135623731, 0.0999999999999996, 0.223606797749979,
0.360555127546399, 0.141421356237309)), .Names = c("X1", "X2",
"X3", "X4"), row.names = c(NA, 5L), class = "data.frame")
Я рассчитывал наклон, как
d<- apply(data,1, function(x) coef(lm(I(1:4)~x)) ), но он не работает. Выдает ошибку
Error in model.frame.default(formula = I(1:4) ~ x, drop.unused.levels = TRUE): variable lengths differ (found for 'x')