JMP 中的 R 接口你好，
我在 R 中編寫了一個我想運行到 JMP 中的代碼。 這是代碼：
R init();
//send data to R
R Send(dt);
R submit("
library(spatstat)
#creation fenetre
fenn<-owin(xrange=c(40,760), yrange=c(40,160), poly=NULL, mask=NULL, units=NULL)
ppp<-ppp(x=dt$XM,y=dt$YM,window=fenn)
print(quadratcount(ppp,nx=6,ny=3)
Q<-quadrat.test.ppp(ppp,nx=6,ny=3)
a<-cdf.test(ppp,'x')
D=0
if(a[[2]] & Q[[3]] < 0.1 ){
D=0}else {D=1}
Distribution=as.data.frame(rep(c(D),nrow(dt)))
class(Distribution)
print(a)
");
R term();
然後當我運行它時，我遇到了兩個問題：
首先，我從這些行中有一個錯誤：
fenn<-owin(xrange=c(40,760), yrange=c(40,160), poly=NULL, mask=NULL, units=NULL)
ppp<-ppp(x=dt$XM,y=dt$YM,window=fenn)
其中說：
錯誤：使用 2 個無法識別的參數調用函數邊界框
另外：警告信息：
2 個點因位於指定窗口之外而被拒絕
實際上，當我將 40 更改為 0 時，它可以工作，因為我的所有點都在我的窗口中，但是當我在 R 上運行代碼時，我的所有點都不在窗口中這一事實不是問題。 如果我在 R 中運行之前的代碼，它就可以工作。 所以我不明白為什麼我在 JMP 中收到警告消息，但在 R 中卻沒有。
第二個問題是當我想導出我的數據時，JMP 不想提取我的數據框，我不明白為什麼。 我使用這段代碼：
ResidJMP = R Get(Distribution);
ResidJMP << New Data View;
R term();
事實上，我想在 JMP 中返回一個數據表，然後我想將它用作主數據表。
數據表其他腳本視窗回复：JMP 中的 R 接口你好，
舉個基本的例子，
R Init(); // Initiate R connection
dt = Open(“$SAMPLE_DATA/Big Class.jmp”,invisible);
R Send(dt);
應按以下方式調用列：
R Submit("
print(dt['weight'])
//b<-dt['weight']/dt['height']
");
代替
R Submit("
print(dt$weight)
//b<-dt['weight']/dt['height']
");
我認為它應該改變你的第一個問題的輸出。
回复：JMP 中的 R 接口當我將此應用於我的數據時，它說我使用的列不是數字，然後當我使用 as.numeric() 函數時，它說：'list' 對像不能被強制輸入'double'。 $ 調用不會出現此問題。 不幸的是這裡有很多問題
回复：JMP 中的 R 接口您可以將 JMP 數據表用作 R 中的數據框。 R Send() 函數自動將一種數據結構轉換為另一種數據結構。 這是一個簡單的例子：
Names Default to Here( 1 );
// make sure JMP can find the desired installed version of R
Set Environment Variable( "R_HOME", "C:\Program Files\R\R-4.1.3" );
// use regression example from JMP Sample Data Folder
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// use standard linear model function with data frame
R Init( );
R Send( dt );
R Submit(
"fit <- lm( dt$weight~dt$height )
print( fit )"
);
R Term();
// examine results in Log
所以我懷疑R代碼（函數參數）有問題，或者數據框中變量的性質有問題。 在確保您的函數調用正確後，嘗試從 R 打印數據表以查看是否所有內容都按預期傳輸。
回复：JMP 中的 R 接口當我在 R 上使用此代碼時
library(spatstat)
data<-read.("Results.csv")
#creation fenetre
fenn<-owin(xrange=c(40,760), yrange=c(40,160), poly=NULL, mask=NULL, units=NULL)
#creation point pattern
ppp<-ppp(x=data$XM,y=data$YM,window=fenn)
plot(ppp)
summary(ppp)
#test quadrat
quadratcount(ppp,nx=6,ny=3)
Q<-quadrat.test.ppp(ppp,nx=6,ny=3)
paste("Ma pvalue du quadrat test ", format(Q[[3]], scientific=TRUE, digits=3))
#test ks
a<-kstest(ppp,'x')
paste("Ma pvalue du KS test ", format(a[[2]], scientific=TRUE, digits=3))
D=character()
if(a[[2]] & Q[[3]] < 0.1 ){
D="Distribution Non-Uniforme"}else {D="Distribution Uniforme"}
Distribution<-rep(c(D),length(XM))
dt<-cbind(dt,Distribution)
它運作良好。 事實上，如果我使用這個窗口，它在 JMP 中效果很好：
fenn<-owin(xrange=c(0,760), yrange=c(0,160), poly=NULL, mask=NULL, units=NULL)
因為我所有的 (x,y) 點都在窗口中，所以當我放置我想要的窗口時，問題就出現了。 但是在R中沒有窗口問題。
但是，如果變量有問題，它不應該與其他窗口一起使用，這是我不明白的。
也許您的評論中有一些我不明白的地方，但我沒有發現可能是什麼錯誤。 當我從 RI 在 JMP 上打印它時，它有良好的數據框。 我肯定迷路了
回复：JMP 中的 R 接口我嘗試使用 R Submit File() 函數，以便可以使用完全相同的代碼。 但是我在 jmp 代碼上遇到了與 R 中沒有的相同的錯誤。 這是我需要解決的錯誤。 我嘗試了很多東西，也不明白為什麼會出現。
Error: Function boundingbox called with 2 unrecognised arguments
