10  COM X[103,22],M[19,19],U[19,19],Q[20],V[20],P[78]
30  COM M$[60],N$[72]
40  COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1
45  COM I3,I4,U9,X$[20]
50  REM:6MAY74
52  REM:>HELP
100  DIM C$[12]
200  GOTO Q[7+Q[18]]-5 OF 1000,2000,3000
1000  PRINT "TRANSFORMATIONS :"
1010  PRINT 
1020  PRINT "ABSO   ABSOLUTE VALUE"
1030  PRINT "ADDC   ADD A CONSTANT TO A COLUMN"
1040  PRINT "ADDV   ADD TWO COLUMNS OF DATA MATRIX"
1050  PRINT "       NOTE THE DIFFERENCE OF TWO COLUMNS CAN"
1060  PRINT "       BE OBTAINED BY FIRST MULTIPLYING A COLUMN"
1070  PRINT "       BY -1 AND THEN ADDING TO ANOTHER COLUMN"
1072  PRINT "CATE   CREATE CATEGORICAL VALUE FROM VALUES IN SPECIFIED COLUMN"
1074  GOSUB 9020
1080  PRINT "DIFF   DIFFERENCING TRANSFORMATION"
1090  PRINT "       LET J BE THE COLUMN TO PLACE THE TRANSFORMED"
1100  PRINT "       VARIABLE, I BE THE VARIABLE TO BE TRANSFORMED,"
1110  PRINT "       AND K BE THE GAP FOR DIFFERENCING.  THEN"
1120  PRINT "       X(L,J) = X(L,I) - X(L-K,I), L=K+1,..."
1122  PRINT "       THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME"
1123  PRINT "       INACTIVE IN THE PROCESS AND CANNOT BE RETRIEVED"
1124  PRINT "       FOR FURTHER ANALYSES UNLESS COL.J IS REPLACED OR DELETED."
1126  GOSUB 9020
1128  PRINT "DIVI   DIVIDE TWO COLUMNS OF DATA MATRIX"
1130  PRINT "DOTP   DIRECT PRODUCT OF TWO COLUMNS"
1140  PRINT "EXPO   EXPONENTIAL TRANSFORMATION"
1150  PRINT "LAGG   LAG TRANSFORMATION X(L,J) = X(L-K,I), L=K+1,..."
1155  PRINT "       THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME"
1156  PRINT "       INACTIVE IN THE PROCESS AND CANNOT BE RETRIEVED"
1157  PRINT "       FOR FURTHER ANALYSES UNLESS COL.J IS REPLACED OR DELETED."
1158  GOSUB 9020
1160  PRINT "LOGE   NATURAL LOG (LN) TRANSFORMATION"
1170  PRINT "LOG1   COMMON LOG (BASE 10) TRANSFORMATION"
1180  PRINT "MULC   MULTIPLY A COLUMN OF DATA MATRIX BY A CONSTANT"
1190  PRINT "MULV   MULTIPLY TWO COLUMNS OF DATA MATRIX"
1200  PRINT "POWE   POWER TRANSFORMATION.  NOTE VALUE OF POWER ="
1202  PRINT "       -1   FOR RECIPROCAL TRANSFORMATION"
1204  PRINT "       .5   FOR SQUARE ROOT TRANSFORMATION, ETC."
1210  PRINT "RANK   ASSIGNS RANKS TO THE OBSERVATIONS (ROWS) OF A VARIABLE"
1212  PRINT "       (COLUMN) AND PLACES THE RANKS IN ANOTHER COLUMN"
1220  PRINT "STAN   STANDARDIZATION TRANSFORMATION--SUBTRACT MEAN"
1222  PRINT "       FROM EACH OBSERVATION, DIVIDE THE DEVIATION BY"
1224  PRINT "       THE STANDARD DEVIATION"
1226  GOTO 9939
2000  PRINT "SUMMARY STATISTICS :"
2010  PRINT 
2020  PRINT "CORR   CORRELATION MATRIX OF VARIABLES"
2030  PRINT "COVA   COVARIANCE MATRIX OF VARIABLES"
2040  PRINT "MEAN   MEANS AND STANDARD DEVIATIONS OF VARIABLES"
2050  PRINT "PARC   PARTIAL CORRELATION MATRIX OF ONE SET OF"
2060  PRINT "       VARIABLES GIVEN ANOTHER SET OF VARIABLES"
2500  GOTO 9939
3000  PRINT "ONE SAMPLE STATISTICS :"
3010  PRINT 
3020  PRINT "AUTO   AUTOCORRELATION (BOX-JENKINS ESTIMATES)"
3025  PRINT "DURB   DURBIN-WATSON STATISTIC (FOR RESIDUALS ONLY)"
3030  PRINT "RUNS   EXPECTED AND OBSERVED NUMBER OF RUNS ABOVE"
3040  PRINT "       AND BELOW THE MEAN.  NORMAL APPROXIMATION"
3050  PRINT "SERC   SERIAL CORRELATION (MAXIMUM LIKELIHOOD"
3060  PRINT "       ESTIMATE OF AUTOCORRELATION)"
3070  GOTO 9939
9000  PRINT "*  WANT MORE DETAILS ? ";
9010  GOTO 9040
9020  IF P[64]=0 OR P[64]>10 THEN 9180
9030  PRINT "* MORE ?";
9040  ENTER 255,Q8,C$
9050  PRINT 
9070  IF Q8>0 THEN 9130
9080  PRINT "PLEASE RESPOND:"
9090  PRINT "NO,"'10"FOLLOWED BY A CARRIAGE RETURN, ";
9100  PRINT "IF YOU DON'T WANT ANY MORE EXPLANATION"
9110  PRINT "WITH A CARRIAGE RETURN ONLY,"'10"IF YOU WANT MORE EXPLANATION"
9120  GOTO 9030
9130  IF C$="" THEN 9190
9132  IF C$[1,1]="Y" THEN 9190
9140  IF C$[1,1]="N" THEN 9998
9150  IF C$[1,1]="?" THEN 9080
9160  PRINT "INVALID RESPONSE."
9170  GOTO 9080
9180  PRINT 
9190  RETURN 
9939  CHAIN "$IDAE39",2000
9998  CHAIN "$IDA",150
9999  END 
