抽1000次對獎語法(是42取6的小樂透):SPSS
DEFINE repsamp().
!DO !doover=1!TO 1000.
USE ALL.
do if $casenum = 1.
compute #s_$_1=6.
compute #s_$_2=42.
end if.
do if #s_$_2 > 0.
compute filter_$ = uniform(1)* #s_$_2 < #s_$_1.
compute #s_$_1 = #s_$_1 - filter_$.
compute #s_$_2 = #s_$_2 - 1.
else.
compute filter_$ = 0.
end if.
VARIABLE LABEL filter_$ .
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .
RECODE
var00001 (1=0) (2=1) (3=0) (4=1) (5=0) (6=0) (7=0) (9=1) (10=0)
(11=0) (12=0) (13=0) (14=0) (15=0) (16=0) (17=0) (18=0) (19=0)
(20=0) (21=0) (22=0) (23=0) (24=0) (25=0) (26=1) (27=0) (28=0)
(29=0) (30=0) (31=1) (32=0) (33=0) (34=0) (35=0) (36=0) (37=0)
(38=0) (39=0) (40=0) (41=0) (42=1) (8=2) .
EXECUTE .
* General Tables.
TABLES
/FORMAT BLANK MISSING('.')
/GBASE=CASES
/TABLE=var00001 BY (STATISTICS) .
!DOEND.
!ENDDEFINE
repsamp.
RECODE
var0002 (2=1) (4=1) (9=1) (26=1) (31=1) (42=1) (8=2) (ELSE=0) .
EXECUTE.
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.119.150.2
推
09/18 23:33, , 1F
09/18 23:33, 1F
推
09/18 23:36, , 2F
09/18 23:36, 2F
推
09/19 01:01, , 3F
09/19 01:01, 3F
討論串 (同標題文章)
以下文章回應了本文:
完整討論串 (本文為第 1 之 4 篇):