Nous avons un utilisateur avancé qui a suggéré d'ajouter add Nomogramme, courbe de décision DCA et NRI dans la modélisation prédictive. Ces fonctions sont désormais utilisées par R et les utilisateurs s'attendent à les utiliser également dans JMP, en particulier les utilisateurs médicaux.
@mia_stephens
Salut Mia
Merci d'avoir prêté attention à ma suggestion.
J'ai demandé au SE de programmer un complément en combinant JMP avec R.Le JSL est le suivant :
// 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 WindowMerci pour l'information.@Clare , existe-t-il un script ou un complément que vous pouvez partager ?
Voici ce que j'ai trouvé sur Wikipédia .Je pense que ce lien décrit également son utilisation. Est-ce exact @Clare
Salut Mia
Nomogramme, courbe de décision DCA et NRI est proposé en tant que fonctionnalités avancées et nouvelles dans la modélisation prédictive par notre utilisateur senior de JMP dans un hôpital. Il enseigne aux médecins à l'hôpital comment utiliser JMP. Ces nouveaux fu Les fonctions peuvent être effectuées dans R pour le moment.
Je vais d'abord partager le nomogramme cette fois.
Le nomogramme est couramment utilisé dans la recherche médicale et les articles et est très populaire parmi les travailleurs médicaux.
J'ai fait une enquête il y a des mois parmi les médecins des hôpitaux. Près de 80 à 90 % des médecins doivent utiliser le nomogramme dans leurs papiers. J'ai demandé à china SE de programmer JSL par JMP And R et partagé avec les clients. Mais les clients veulent toujours utiliser JMP pour le fabriquer directement.
Si nous pouvions ajouter le nomogramme à JMP, JMP deviendrait plus compétitif parmi ces travailleurs médicaux.
Pouvez-vous s'il vous plaît fournir plus de détails? Des liens vers des références, des liens vers d'autres demandes (si disponibles), un exemple, des captures d'écran,...
Merci!
