追加を追加することを提案した上級ユーザーがいますノモグラム、DCA決定曲線、およびNRI予測モデリングで。 これらの機能は現在Rで使用されており、ユーザー、特に医療ユーザーはJMPでも使用することを期待しています。
@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の使い方を教えています。 これらの新しいfu今のところ、Rで機能を実行できます。
今回はまずノモグラムについてお話します。
ノモグラムは、医学研究や論文で一般的に使用されており、医療従事者の間で非常に人気があります。
私は数ヶ月前に病院の医師を対象に調査を行いました。 医師のほぼ80〜90％は、論文でノモグラムを使用する必要があります。 私は中国SEにJMPAnd RによるJSLのプログラミングを依頼し、顧客と共有しました。 しかし、顧客はそれでもJMPを使用して直接作成したいと考えています。
ノモグラムをJMPに追加できれば、JMPはそれらの医療従事者の間でより競争力を持つようになるでしょう。
詳細を教えてください。 参照へのリンク、他のリクエストへのリンク（利用可能な場合）、例、スクリーンショット、...
ありがとう！
