Этот вопрос может быть задан, но я работал над ним целый день, и я не решил и не понял других решений. До сегодняшнего дня мой код явно работал. Я ничего не менял, однако сегодня в одном и том же коде у меня каждый раз возникали разные ошибки. Я использую macOS. Я установил пакеты rYsmPy r Java и вот мой код;
lagrange.poly <- function(x, y) {
l <- list() # List to store Lagrangian polynomials L_{1,2,3,4}
k <- 1
for (i in x) {
num <- 1
denom <- 1
p <- x[! x %in% i]
for (j in p) {
num <- paste(num, "*", "(", 'x', " - ", as.character(j), ")", sep = "", collapse = "")
denom <- paste(denom, "*", "(", as.character(i)," - ", as.character(j), ")", sep = "", collapse = "")
}
l[k] <- paste("(", num, ")", "/", "(", denom, ")", sep = "", collapse = "")
k <- k + 1
}
eq <- 0
for (i in 1:length(y)) {
eq <- paste(eq, '+', as.character(y[i]), "*", l[[i]], sep = "", collapse = "")
}
x <- Var('x')
return(sympy(paste("simplify(", eq, ")")))
}
lagrange.poly(x, y)
Когда я запустил его в последний раз, я получил эту ошибку Error in .jcall("RJavaTools", "Z", "hasField", .jcast(x, "java/lang/Object"), :
java.lang.NullPointerException
Called from: .jcheck()
Затем программа автоматически открывает функцию .jcheck. Результат:
function (silent = FALSE)
invisible(.Call(RJavaCheckExceptions, silent))
Также до этой ошибки я получил Error in .jcheck() : No running JVM detected. Maybe .jinit() would help.
Я думаю, что они подключены, но у меня нет идеи решить эту проблему. Кто-нибудь может мне помочь? Большое спасибо. Это после ошибки, которую я вижу на своем экране: введите описание изображения здесь