Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/cmod83.bas
There are 2 other files named cmod83.bas in the archive. Click here to see a list.
00020REM*****************************************************************
00030REM CMOD83 CMOD83 CMOD83 CMOD83 CMOD83
00040REM*****************************************************************
00041 FILES RFILE1,RFILE2,RFILE3
00060RESTORE#1
00061 INPUT# 1,I1,I2,I3
00065SCRATCH#1
00066 PRINT # 1,80,I2,I3
00330PRINT L$
00332PRINT "YOU CAN OBTAIN ADDITIONAL INFORMATION ABOUT THE REGRESSION ON"
00340PRINT "THE SET OF PREDICTORS YOU HAVE SELECTED."
00350PRINT " 1. NONSTANDARDIZED AND STANDARDIZED REGRESSION COEFFICIENTS"
00360PRINT " 2. OBSERVED AND PREDICTED CRITERION VALUES FOR YOUR DATA"
00370PRINT " 3. PREDICTIVE DISTRIBUTION FOR CHOSEN PREDICTOR VALUES"
00372PRINT " 4. HIGHEST DENSITY REGIONS FOR NONSTANDARDIZED REGRESSION"
00373PRINT " COEFFICIENTS."
00380PRINT
00382PRINT "TYPE THE NUMBER OF THE OPTION YOU WANT (NONE=0).";
00400GOSUB 9000
00410IF O1=1 THEN 500
00420IF O1=0 THEN 600
00430IF O1=2 THEN 700
00440IF O1=3 THEN 800
00445IF O1=4 THEN 810
00450PRINT "REENTER. INPUT MUST BE NUMBER OF OPTION."
00455GOTO 400
00500CHAIN "CMOD82"
00600CHAIN "CMOD85"
00700CHAIN "CMOD81"
00800CHAIN "CMOD80"
00810CHAIN "CMOD84"
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999 END