329364_zh-CN

liliconcom

对多个数据集重复代码

您好，我已经阅读了有关JSL作为SAS宏的替代方法的文章，但是当我尝试创建一个以不同的变量值循环几次代码时，我进入了一个无限循环。 在下面的代码中，我制作了三个数据集，然后要为每个组运行下一个代码。 JSL函数可以做到这一点吗？ 谢谢！

 

 

Data Table( "CSTtable_ad_all1" ) << set name( "CSTtableall" );

//make data set with AI and without AI for table1 summary stats

Data Table( "CSTtableall" ) << select where( :ai == 1 );

Data Table( "CSTtableall" ) << subset( selected rows( 1 ), selected columns( 0 ), output table( "CSTtableai" ) );

Data Table( "CSTtableall" ) << select where( :ai == 0 );

Data Table( "CSTtableall" ) << subset( selected rows( 1 ), selected columns( 0 ), output table( "CSTtableno" ) );

//create summary statistics for CST table; this is the beginning of the code I would like to run through three times&nbsp;&nbsp;

summall = Data Table( "CSTtableall" ) << Summary(
    Min( :age ), 
    Min( :mmesumactiveperday ), 
    Min( :AM_cort1 ), 
    Min( :durationofexp ), 
    Min( :durationofexp90 ), 
    Min( :cum_opioid_ex ), 
    Min( :cum_opioid_ex90 ), 
    Min( :max_cort ), 
    Max( :age ), 
    Max( :mmesumactiveperday ), 
    Max( :AM_cort1 ), 
    Max( :durationofexp ), 
    Max( :durationofexp90 ), 
    Max( :cum_opioid_ex ), 
    Max( :cum_opioid_ex90 ), 
    Max( :max_cort ), 
    Mean( :age ), 
    Mean( :mmesumactiveperday ), 
    Mean( :AM_cort1 ), 
    Mean( :durationofexp ), 
    Mean( :durationofexp90 ), 
    Mean( :cum_opioid_ex ), 
    Mean( :cum_opioid_ex90 ), 
    Mean( :max_cort ), 
    Std Dev( :age ), 
    Std Dev( :mmesumactiveperday ), 
    Std Dev( :AM_cort1 ), 
    Std Dev( :durationofexp ), 
    Std Dev( :durationofexp90 ), 
    Std Dev( :cum_opioid_ex ), 
    Std Dev( :cum_opioid_ex90 ), 
    Std Dev( :max_cort ), 
    Freq( "None" ), 
    Weight( "None" )
);

stackall = summall << 
Stack(
    columns(
        :Name( "Min(age)" ), 
        :Name( "Min(mmesumactiveperday)" ), 
        :Name( "Min(AM_cort1)" ), 
        :Name( "Min(durationofexp)" ), 
        :Name( "Min(durationofexp90)" ), 
        :Name( "Min(cum_opioid_ex)" ), 
        :Name( "Min(cum_opioid_ex90)" ), 
        :Name( "Min(max_cort)" ), 
        :Name( "Max(age)" ), 
        :Name( "Max(mmesumactiveperday)" ), 
        :Name( "Max(AM_cort1)" ), 
        :Name( "Max(durationofexp)" ), 
        :Name( "Max(durationofexp90)" ), 
        :Name( "Max(cum_opioid_ex)" ), 
        :Name( "Max(cum_opioid_ex90)" ), 
        :Name( "Max(max_cort)" ), 
        :Name( "Mean(age)" ), 
        :Name( "Mean(mmesumactiveperday)" ), 
        :Name( "Mean(AM_cort1)" ), 
        :Name( "Mean(durationofexp)" ), 
        :Name( "Mean(durationofexp90)" ), 
        :Name( "Mean(cum_opioid_ex)" ), 
        :Name( "Mean(cum_opioid_ex90)" ), 
        :Name( "Mean(max_cort)" ), 
        :Name( "Std Dev(age)" ), 
        :Name( "Std Dev(mmesumactiveperday)" ), 
        :Name( "Std Dev(AM_cort1)" ), 
        :Name( "Std Dev(durationofexp)" ), 
        :Name( "Std Dev(durationofexp90)" ), 
        :Name( "Std Dev(cum_opioid_ex)" ), 
        :Name( "Std Dev(cum_opioid_ex90)" ), 
        :Name( "Std Dev(max_cort)" ), 
    ), 

    Source Label Column( "Label" ), 
    Stacked Data Column( "Data" ), 
    Number of Series( 4 ), 
    Output Table Name( "Table 1 All" ), 
    Contiguous
);

//stackall << Delete Column( :N Rows );
stackall << New Column( "Parameter", character, formula( Word( 2, :Label, "()" ) ) );
stackall << Move Selected Columns( {“Parameter”}, To First );

Column( Data Table( "Table 1 All" ), "Parameter" ) << Delete Formula;

stackall << Delete Column( :Label );
stackall << Delete Column( :Label 2 );
stackall << Delete Column( :Label 3 );
stackall << Delete Column( :Label 4 );

Column( Data Table( "Table 1 All" ), "Data" ) << Set Name( "Min" );
Column( Data Table( "Table 1 All" ), "Data 2" ) << Set Name( "Max" );
Column( Data Table( "Table 1 All" ), "Data 3" ) << Set Name( "Mean" );
Column( Data Table( "Table 1 All" ), "Data 4" ) << Set Name( "St Dev" );

Close( summall, no save );

 

脚本编写