这是试验过程中的一个结果,但是不会用spss实现,所以找了个sas程序做的,大家看看在spss里能不能实现?
以下是sas的程序:
- DATA A;
- INPUT aa ry;
- cards;
- 0 49.9
- 75 52.1
- 150 53.5
- 225 53.9
- 300 54.2
- 375 53.7
-
- ;
- TITLE1 'Yield Response Data';
- TITLE2 'LRP Model';
- PROC NLIN DATA=A BEST=3;
- PARMS A=49.9 to 54.2 by 1 B=0 to 1 by 0.1 K=0 to 375 by 15;
- IF AA<K THEN DO;
- MODEL RY = A + B*AA;
- DER.A = 1;
- DER.B = AA;
- DER.K = 0;
- END;
- ELSE DO;
- MODEL RY = A + B*K;
- DER.A = 1;
- DER.B = K;
- DER.K = B;
- END;
- FILE PRINT;
- IF _OBS_ = 1 AND _MODEL_= 0 THEN DO;
- PLATEAU = A + B*K;
- PUT PLATEAU=;
- END;
- PLATEAU = A + B*K;
- ID PLATEAU;
- OUTPUT OUT=NEW P=PRY PARMS=A B K SSE=SSE;
- RUN;
- PROC PLOT;
- PLOT RY*AA='+' PRY*AA='*'/OVERLAY;
- RUN;
- /* For you information:
- */
- /* This part of the program outputs Rsquares, significance,
- plateau, */
- /* and soil-test value at the joining point into a nice dataset.
- */
- PROC MEANS NOPRINT;
- VAR RY SSE A B K PLATEAU;
- OUTPUT OUT=NEW2 N=TDF
- MEAN=RY SSE A B K PLATEAU
- CSS=CSST;
- DATA NEW3; SET NEW2;
- INTERCPT=A; SLOPE=B; JOINT=K;
- RSQ=(CSST-SSE)/CSST;
- EDF=TDF-3;
- SSR=CSST-SSE;
- MSR=SSR/2;
- MSE=SSE/EDF;
- F=MSR/MSE;
- PROBF=1-(PROBF(F,2,EDF));
- KEEP INTERCPT SLOPE JOINT PLATEAU RSQ F PROBF;
- PROC PRINT;
- RUN;



雷达卡





京公网安备 11010802022788号







