추가를 제안한 고급 사용자가 있습니다. 노모그램, DCA 결정 곡선 및 NRI 예측 모델링에서. 이러한 기능은 이제 R에서 사용되며 사용자, 특히 의료 사용자는 JMP에서도 사용할 것으로 기대하고 있습니다.
방금 노모그램을 만드는 방법에 대한 질문을 받았는데 위시리스트에서 이것을 보게 되어 기쁩니다. 이 고객은 Poseida였으며 JMP, JMP Pro, JMP Clinical 및 JMP Live에 대한 라이선스를 보유하고 있습니다.
@mia_stephens
안녕 미아
제 제안에 관심을 가져주셔서 감사합니다.
JMP와 R을 결합하여 추가 기능을 프로그래밍하도록 SE에 요청했습니다.JSL은 다음과 같습니다.
// Expressions List
LoadExprs = expr(
InitR = expr(
R Init();
R Submit( "
library(survival)
library(rms)
" );
);
MakeNomoPlot = expr(
yy = yvar << Get Items;
cc = cvar << Get Items;
xx = xvar << Get Items;
R send(yy);
R send(cc);
R send(xx);
dt = Current Data Table();
R Send(dt);
R Submit(
EvalInsert("\[
dd<-datadist(dt)
options(datadist="dd")
t1 <- yy[1]
t2 <- cc[1]
t3 <- paste(xx, collapse = "+")
formula=eval(parse(text=paste("Surv(",t1,",",t2,")~",t3)))
f<-cph(formula,data=lung,x=TRUE,y=TRUE,surv=TRUE)
survival<-Survival(f)
survival1<-function(x)survival(365,x)
survival2<-function(x)survival(730,x)
nom<-nomogram(f,fun=list(survival1,survival2),
fun.at=c(0.05,seq(0.1,0.9,by=0.05),0.95),
funlabel=c('1 year survival','2 year survival'))
plot(nom)
]\"));
);
CapturePlot = expr(
JMP_plot = R Get Graphics(png);
New Window("Imported Plot", Picture Box(JMP_Plot));
);
RunClose = expr(
inwin << Close Window; // close window
R Term( ); //Close r connection
);
);
LoadExprs; //load all the expressions that reside at the end of the file
InitR; //Start R Connection and load libraries
// Prompt for data table if none is open
if(IsEmpty(Current Data Table()), dt = Open(), dt = Current Data Table());
//Draw Window and Create Fields and Buttons
inwin = New Window( //Draw New Window and name inwin
"列线图", //Window Title
Panel Box("选择列", //Draws visible box
H List Box( //Invisible box for layout - glues horizontally
clb1 = Col List Box( all ), //Column listbox, with name clb1 so we can access later
// Draw First Lineup Box (invisible, provides arrangement) for Selecting Columns
Lineup Box( N Col( 2 ), //with 2 columns indicated, each pair will span a row
//First Row
Button Box( "Y,事件时间", yvar << setitems( clb1 << getselected ) ),
yvar = Col List Box( minitems( 1 ), maxitems( 1 ), nlines( 1 ) ),
//Second Row
Button Box( "删失", cvar << setitems( clb1 << getselected ) ),
cvar = Col List Box( minitems( 1 ), maxitems( 1 ), nlines( 1 ) ),
//Third Row
Button Box( "X,因子", xvar << setitems( clb1 << Get Selected ) ),
xvar = Col List Box( minitems( 1 ), maxitems( 100 ), nlines( 10 ) ),
),
// Draw Second Lineup Box for Buttons
Lineup Box( N Col( 1 ),
Button Box("确定", MakeNomoPlot),
Button Box("在JMP窗口中显示", CapturePlot),
Button Box("关闭", RunClose )
) //close Lineup Box
) //close H List Box
) //close Panel box
); //close New Window정보 주셔서 감사합니다.@클레어 , 공유할 수 있는 스크립트나 추가 기능이 있습니까?
여기 내가 찾은 것이 있습니다. 위키백과 .나는 이 링크가 그것의 사용법도 설명한다고 생각합니다. 그 맞습니까 @클레어
안녕 미아
노모그램, DCA 결정 곡선 및 NRI 병원의 선임 JMP 사용자가 예측 모델링의 고급 기능 및 새로운 기능으로 제안했습니다. 그는 병원의 의사들에게 JMP 사용법을 가르칩니다. 이 새로운 푸 현재로서는 R에서 nction을 수행할 수 있습니다.
이번에는 먼저 노모그램에 대해 공유하겠습니다.
노모그램은 의료 연구 및 논문에서 일반적으로 사용되며 의료 종사자들 사이에서 매우 인기가 있습니다.
나는 몇 달 전에 병원의 의사들 사이에서 설문 조사를 했습니다. 거의 80-90%의 의사가 논문에 노모그램을 사용해야 합니다. 나는 중국 SE에게 JMP와 R로 JSL을 프로그래밍하도록 요청하고 고객과 공유했습니다. 하지만 고객은 여전히 JMP를 사용하여 직접 만들고 싶어합니다.
JMP에 노모그램을 추가할 수 있다면 JMP는 의료 종사자들 사이에서 더 경쟁력을 갖게 될 것입니다.
자세한 내용을 제공해 주시겠습니까? 참조에 대한 링크, 다른 요청에 대한 링크(있는 경우), 예, 스크린샷,...
감사해요!
