Nothing
tests/testthat/_snaps/draw_sample.md
In sprtt: Sequential Probability Ratio Tests Toolbox
I draw_sample_normal: check correct behaviour oh show
Code
show(draw_sample_normal(k_groups = 2, f = 0.25, max_n = 30))
Output
y x
1 -2.30128979 1
2 0.52773897 2
3 -1.77596060 1
4 -0.01916362 2
5 0.98305388 1
6 0.88360774 2
7 0.10271746 1
8 -0.31048248 2
9 -1.37490028 1
10 -0.62430362 2
11 -0.20613838 1
12 -0.33397514 2
13 -1.07329858 1
14 0.36059280 2
15 0.11472778 1
16 0.30370100 2
17 1.11867235 1
18 -0.13045724 2
19 -0.95632036 1
20 1.21687656 2
21 -0.96016648 1
22 0.19082635 2
23 -0.48094342 1
24 0.94200045 2
25 1.10682290 1
26 2.03872284 2
27 0.16071582 1
28 -1.93785470 2
29 -0.95278946 1
30 0.54986416 2
31 0.89946968 1
32 -0.05164149 2
33 -0.79733935 1
34 -0.13540415 2
35 0.02637203 1
36 0.40186081 2
37 -0.68138079 1
38 -1.62050006 2
39 -0.17366674 1
40 0.01964405 2
41 0.06746484 1
42 -1.34268440 2
43 -0.43194062 1
44 2.00614174 2
45 -0.13605068 1
46 -0.04216508 2
47 1.50409316 1
48 2.05958455 2
49 -0.41706889 1
50 1.49128597 2
51 0.04010419 1
52 0.19627645 2
53 -0.17569522 1
54 0.13560610 2
55 -1.68381629 1
56 -0.09207492 2
57 0.18550459 1
58 0.54297294 2
59 -1.10981789 1
60 1.30689333 2
Code
show(draw_sample_normal(k_groups = 4, f = 1, sd = c(1, 0.8, 1, 1), max_n = 30))
Output
y x
1 -0.97359684 1
2 1.14097958 2
3 -1.12270522 3
4 -2.65066851 4
5 0.25476947 1
6 -0.47805947 2
7 -0.27788822 3
8 -1.28471300 4
9 0.28386638 1
10 -0.34597016 2
11 -0.14637930 3
12 0.12857747 4
13 1.87775659 1
14 0.25154051 2
15 0.96273137 3
16 -0.59832287 4
17 -0.17971706 1
18 -1.18839393 2
19 0.12479108 3
20 -1.28483404 4
21 1.17213816 1
22 0.37554315 2
23 0.63468484 3
24 -2.85283746 4
25 1.96726846 1
26 0.18740073 2
27 1.48936086 3
28 -0.03880732 4
29 0.60829762 1
30 -0.07302225 2
31 0.89495215 3
32 -3.33728160 4
33 0.98816642 1
34 0.26442197 2
35 0.38757643 3
36 -1.00285665 4
37 0.36527269 1
38 1.66521636 2
39 0.45412581 3
40 -2.80828333 4
41 -0.24377594 1
42 -0.26936384 2
43 0.01259100 3
44 -1.35897923 4
45 0.99194620 1
46 -0.25056638 2
47 0.43321193 3
48 -1.89438506 4
49 3.11603445 1
50 0.34404012 2
51 0.70812658 3
52 -1.25336223 4
53 1.66344305 1
54 0.34051343 2
55 0.69780345 3
56 -1.04893182 4
57 -0.21474052 1
58 -0.89835710 2
59 2.50661451 3
60 -0.03909643 4
61 0.97213776 1
62 0.58175123 2
63 1.02602495 3
64 -1.23554496 4
65 0.36100896 1
66 -1.51871162 2
67 0.01726798 3
68 -1.36800653 4
69 -1.43527725 1
70 0.54598193 2
71 0.79224568 3
72 -0.85135106 4
73 1.68370015 1
74 1.92938614 2
75 0.62847109 3
76 -0.63367871 4
77 0.84330208 1
78 1.24457511 2
79 1.37429627 3
80 -0.40494692 4
81 2.76131930 1
82 0.34880539 2
83 1.00058930 3
84 -1.65217161 4
85 2.15362714 1
86 0.16936481 2
87 1.17353474 3
88 -0.87120355 4
89 0.32375713 1
90 -1.71353075 2
91 0.72294907 3
92 -0.31328298 4
93 0.95824196 1
94 0.42493943 2
95 2.01132178 3
96 -2.02363888 4
97 1.72361329 1
98 0.91187823 2
99 2.05794008 3
100 -2.41948073 4
101 -0.82616035 1
102 -1.06990486 2
103 0.74828918 3
104 -2.36455247 4
105 0.90625077 1
106 0.97124913 2
107 -0.73473633 3
108 -0.80467140 4
109 1.90673699 1
110 -0.11019307 2
111 0.86674084 3
112 -2.07180330 4
113 1.17725606 1
114 -1.18412428 2
115 -0.19673848 3
116 -1.53364871 4
117 1.94964353 1
118 -0.58430960 2
119 1.17936536 3
120 -2.42016539 4
Code
show(draw_sample_normal(k_groups = 3, f = 0.12, sd = c(1, 0.8, 2),
sample_ratio = c(1, 2, 1), max_n = 50))
Output
y x
1 -0.936675605 1
2 -0.226495718 2
3 0.726903769 2
4 1.171692758 3
5 0.625765104 1
6 0.121431936 2
7 1.404898561 2
8 -0.463956453 3
9 1.276218694 1
10 0.988857660 2
11 0.825425744 2
12 -1.961664564 3
13 -0.081434902 1
14 -0.267999180 2
15 1.157428335 2
16 0.297846188 3
17 0.787176518 1
18 1.087855584 2
19 -0.057334887 2
20 -1.364703384 3
21 -1.044534741 1
22 -0.959843244 2
23 -0.969902906 2
24 -2.047922860 3
25 0.084171288 1
26 -0.746268160 2
27 -0.443365144 2
28 2.764267254 3
29 0.092174640 1
30 -0.218944123 2
31 -1.733187229 2
32 0.260986113 3
33 0.959491494 1
34 -0.069193351 2
35 0.568621828 2
36 2.505688662 3
37 0.375506716 1
38 -1.568810495 2
39 -0.598254780 2
40 0.099080638 3
41 -1.065773027 1
42 -0.292174697 2
43 -0.207858899 2
44 -2.863657636 3
45 -0.627534874 1
46 2.454584668 2
47 0.649545043 2
48 -1.098047776 3
49 -0.724620437 1
50 0.480632479 2
51 0.162462675 2
52 -2.117389076 3
53 0.421297252 1
54 -0.425199435 2
55 -0.318059197 2
56 3.767242568 3
57 -0.453672377 1
58 0.340127844 2
59 -0.827336962 2
60 0.761081283 3
61 0.119063619 1
62 1.112774892 2
63 -0.319780639 2
64 0.434381525 3
65 2.616104139 1
66 0.379077942 2
67 0.087260993 2
68 0.460536143 3
69 2.062928682 1
70 0.562703989 2
71 0.540852782 2
72 2.669300377 3
73 -1.126187466 1
74 0.969438006 2
75 -0.110448409 2
76 0.200412295 3
77 0.114899017 1
78 0.562903113 2
79 -0.874938428 2
80 2.046722310 3
81 -0.347652027 1
82 0.513399111 2
83 -0.197021579 2
84 0.048880196 3
85 -1.272650790 1
86 -0.364024249 2
87 -0.005338713 2
88 1.998387388 3
89 1.181871832 1
90 0.488059301 2
91 -0.183331245 2
92 -1.847133816 3
93 -0.080187948 1
94 0.809648448 2
95 1.170627104 2
96 0.020854272 3
97 -0.047562050 1
98 -0.370831261 2
99 0.089182715 2
100 2.206326026 3
101 -0.296804761 1
102 0.728464307 2
103 0.409324443 2
104 0.647724512 3
105 -0.045722368 1
106 0.855722638 2
107 -0.833750018 2
108 1.187849650 3
109 -0.126708788 1
110 0.998049281 2
111 0.553959313 2
112 -4.111397098 3
113 1.125439349 1
114 1.036634448 2
115 1.106736619 2
116 6.652641665 3
117 0.978951302 1
118 1.519591769 2
119 0.421018431 2
120 -2.953812403 3
121 1.228523122 1
122 -0.007738038 2
123 0.183137700 2
124 2.186830430 3
125 -0.650401364 1
126 2.324544685 2
127 0.818396901 2
128 0.020695568 3
129 0.006014754 1
130 1.017913718 2
131 -0.910423156 2
132 -1.099665932 3
133 2.308601113 1
134 -0.841518372 2
135 0.750021447 2
136 0.775404325 3
137 -0.653104908 1
138 0.012648806 2
139 -0.273025517 2
140 -2.495480813 3
141 -0.160619201 1
142 -0.681265771 2
143 0.568567683 2
144 -2.547826677 3
145 0.387336230 1
146 0.146981391 2
147 1.211387438 2
148 1.588344020 3
149 0.329922193 1
150 1.142682795 2
151 -0.296327036 2
152 -1.995666362 3
153 -0.262441660 1
154 -0.084823594 2
155 0.355180821 2
156 -0.569200135 3
157 0.368716253 1
158 0.520577365 2
159 0.870166136 2
160 4.596592376 3
161 0.673656960 1
162 0.206732023 2
163 1.328961216 2
164 1.397614675 3
165 -0.458671107 1
166 0.776654055 2
167 -0.640149732 2
168 -1.305364301 3
169 0.460997688 1
170 -0.649177226 2
171 0.731561855 2
172 3.011606470 3
173 0.739496915 1
174 1.078734838 2
175 -0.244194955 2
176 1.059978916 3
177 -1.606052747 1
178 0.855640045 2
179 0.168354194 2
180 1.895596565 3
181 1.742529269 1
182 1.020426598 2
183 0.320661005 2
184 0.079637765 3
185 -0.970342883 1
186 0.844350589 2
187 -1.667785773 2
188 0.763828592 3
189 1.644208206 1
190 0.056109208 2
191 0.099161837 2
192 4.629369369 3
193 1.113327804 1
194 -0.393152388 2
195 0.609521646 2
196 0.409718664 3
197 -1.427810492 1
198 0.567318876 2
199 -0.083888348 2
200 -1.498606763 3
II draw_sample_normal: check correct behaviour of show
Code
show(draw_sample_normal(k_groups = 2, f = 0.25, max_n = 30))
Output
y x
1 -2.30128979 1
2 0.52773897 2
3 -1.77596060 1
4 -0.01916362 2
5 0.98305388 1
6 0.88360774 2
7 0.10271746 1
8 -0.31048248 2
9 -1.37490028 1
10 -0.62430362 2
11 -0.20613838 1
12 -0.33397514 2
13 -1.07329858 1
14 0.36059280 2
15 0.11472778 1
16 0.30370100 2
17 1.11867235 1
18 -0.13045724 2
19 -0.95632036 1
20 1.21687656 2
21 -0.96016648 1
22 0.19082635 2
23 -0.48094342 1
24 0.94200045 2
25 1.10682290 1
26 2.03872284 2
27 0.16071582 1
28 -1.93785470 2
29 -0.95278946 1
30 0.54986416 2
31 0.89946968 1
32 -0.05164149 2
33 -0.79733935 1
34 -0.13540415 2
35 0.02637203 1
36 0.40186081 2
37 -0.68138079 1
38 -1.62050006 2
39 -0.17366674 1
40 0.01964405 2
41 0.06746484 1
42 -1.34268440 2
43 -0.43194062 1
44 2.00614174 2
45 -0.13605068 1
46 -0.04216508 2
47 1.50409316 1
48 2.05958455 2
49 -0.41706889 1
50 1.49128597 2
51 0.04010419 1
52 0.19627645 2
53 -0.17569522 1
54 0.13560610 2
55 -1.68381629 1
56 -0.09207492 2
57 0.18550459 1
58 0.54297294 2
59 -1.10981789 1
60 1.30689333 2
Code
show(draw_sample_normal(k_groups = 4, f = 1, sd = c(1, 0.8, 1, 1), max_n = 30))
Output
y x
1 -0.97359684 1
2 1.14097958 2
3 -1.12270522 3
4 -2.65066851 4
5 0.25476947 1
6 -0.47805947 2
7 -0.27788822 3
8 -1.28471300 4
9 0.28386638 1
10 -0.34597016 2
11 -0.14637930 3
12 0.12857747 4
13 1.87775659 1
14 0.25154051 2
15 0.96273137 3
16 -0.59832287 4
17 -0.17971706 1
18 -1.18839393 2
19 0.12479108 3
20 -1.28483404 4
21 1.17213816 1
22 0.37554315 2
23 0.63468484 3
24 -2.85283746 4
25 1.96726846 1
26 0.18740073 2
27 1.48936086 3
28 -0.03880732 4
29 0.60829762 1
30 -0.07302225 2
31 0.89495215 3
32 -3.33728160 4
33 0.98816642 1
34 0.26442197 2
35 0.38757643 3
36 -1.00285665 4
37 0.36527269 1
38 1.66521636 2
39 0.45412581 3
40 -2.80828333 4
41 -0.24377594 1
42 -0.26936384 2
43 0.01259100 3
44 -1.35897923 4
45 0.99194620 1
46 -0.25056638 2
47 0.43321193 3
48 -1.89438506 4
49 3.11603445 1
50 0.34404012 2
51 0.70812658 3
52 -1.25336223 4
53 1.66344305 1
54 0.34051343 2
55 0.69780345 3
56 -1.04893182 4
57 -0.21474052 1
58 -0.89835710 2
59 2.50661451 3
60 -0.03909643 4
61 0.97213776 1
62 0.58175123 2
63 1.02602495 3
64 -1.23554496 4
65 0.36100896 1
66 -1.51871162 2
67 0.01726798 3
68 -1.36800653 4
69 -1.43527725 1
70 0.54598193 2
71 0.79224568 3
72 -0.85135106 4
73 1.68370015 1
74 1.92938614 2
75 0.62847109 3
76 -0.63367871 4
77 0.84330208 1
78 1.24457511 2
79 1.37429627 3
80 -0.40494692 4
81 2.76131930 1
82 0.34880539 2
83 1.00058930 3
84 -1.65217161 4
85 2.15362714 1
86 0.16936481 2
87 1.17353474 3
88 -0.87120355 4
89 0.32375713 1
90 -1.71353075 2
91 0.72294907 3
92 -0.31328298 4
93 0.95824196 1
94 0.42493943 2
95 2.01132178 3
96 -2.02363888 4
97 1.72361329 1
98 0.91187823 2
99 2.05794008 3
100 -2.41948073 4
101 -0.82616035 1
102 -1.06990486 2
103 0.74828918 3
104 -2.36455247 4
105 0.90625077 1
106 0.97124913 2
107 -0.73473633 3
108 -0.80467140 4
109 1.90673699 1
110 -0.11019307 2
111 0.86674084 3
112 -2.07180330 4
113 1.17725606 1
114 -1.18412428 2
115 -0.19673848 3
116 -1.53364871 4
117 1.94964353 1
118 -0.58430960 2
119 1.17936536 3
120 -2.42016539 4
Code
show(draw_sample_normal(k_groups = 3, f = 0.12, sd = c(1, 0.8, 2),
sample_ratio = c(1, 2, 1), max_n = 50))
Output
y x
1 -0.936675605 1
2 -0.226495718 2
3 0.726903769 2
4 1.171692758 3
5 0.625765104 1
6 0.121431936 2
7 1.404898561 2
8 -0.463956453 3
9 1.276218694 1
10 0.988857660 2
11 0.825425744 2
12 -1.961664564 3
13 -0.081434902 1
14 -0.267999180 2
15 1.157428335 2
16 0.297846188 3
17 0.787176518 1
18 1.087855584 2
19 -0.057334887 2
20 -1.364703384 3
21 -1.044534741 1
22 -0.959843244 2
23 -0.969902906 2
24 -2.047922860 3
25 0.084171288 1
26 -0.746268160 2
27 -0.443365144 2
28 2.764267254 3
29 0.092174640 1
30 -0.218944123 2
31 -1.733187229 2
32 0.260986113 3
33 0.959491494 1
34 -0.069193351 2
35 0.568621828 2
36 2.505688662 3
37 0.375506716 1
38 -1.568810495 2
39 -0.598254780 2
40 0.099080638 3
41 -1.065773027 1
42 -0.292174697 2
43 -0.207858899 2
44 -2.863657636 3
45 -0.627534874 1
46 2.454584668 2
47 0.649545043 2
48 -1.098047776 3
49 -0.724620437 1
50 0.480632479 2
51 0.162462675 2
52 -2.117389076 3
53 0.421297252 1
54 -0.425199435 2
55 -0.318059197 2
56 3.767242568 3
57 -0.453672377 1
58 0.340127844 2
59 -0.827336962 2
60 0.761081283 3
61 0.119063619 1
62 1.112774892 2
63 -0.319780639 2
64 0.434381525 3
65 2.616104139 1
66 0.379077942 2
67 0.087260993 2
68 0.460536143 3
69 2.062928682 1
70 0.562703989 2
71 0.540852782 2
72 2.669300377 3
73 -1.126187466 1
74 0.969438006 2
75 -0.110448409 2
76 0.200412295 3
77 0.114899017 1
78 0.562903113 2
79 -0.874938428 2
80 2.046722310 3
81 -0.347652027 1
82 0.513399111 2
83 -0.197021579 2
84 0.048880196 3
85 -1.272650790 1
86 -0.364024249 2
87 -0.005338713 2
88 1.998387388 3
89 1.181871832 1
90 0.488059301 2
91 -0.183331245 2
92 -1.847133816 3
93 -0.080187948 1
94 0.809648448 2
95 1.170627104 2
96 0.020854272 3
97 -0.047562050 1
98 -0.370831261 2
99 0.089182715 2
100 2.206326026 3
101 -0.296804761 1
102 0.728464307 2
103 0.409324443 2
104 0.647724512 3
105 -0.045722368 1
106 0.855722638 2
107 -0.833750018 2
108 1.187849650 3
109 -0.126708788 1
110 0.998049281 2
111 0.553959313 2
112 -4.111397098 3
113 1.125439349 1
114 1.036634448 2
115 1.106736619 2
116 6.652641665 3
117 0.978951302 1
118 1.519591769 2
119 0.421018431 2
120 -2.953812403 3
121 1.228523122 1
122 -0.007738038 2
123 0.183137700 2
124 2.186830430 3
125 -0.650401364 1
126 2.324544685 2
127 0.818396901 2
128 0.020695568 3
129 0.006014754 1
130 1.017913718 2
131 -0.910423156 2
132 -1.099665932 3
133 2.308601113 1
134 -0.841518372 2
135 0.750021447 2
136 0.775404325 3
137 -0.653104908 1
138 0.012648806 2
139 -0.273025517 2
140 -2.495480813 3
141 -0.160619201 1
142 -0.681265771 2
143 0.568567683 2
144 -2.547826677 3
145 0.387336230 1
146 0.146981391 2
147 1.211387438 2
148 1.588344020 3
149 0.329922193 1
150 1.142682795 2
151 -0.296327036 2
152 -1.995666362 3
153 -0.262441660 1
154 -0.084823594 2
155 0.355180821 2
156 -0.569200135 3
157 0.368716253 1
158 0.520577365 2
159 0.870166136 2
160 4.596592376 3
161 0.673656960 1
162 0.206732023 2
163 1.328961216 2
164 1.397614675 3
165 -0.458671107 1
166 0.776654055 2
167 -0.640149732 2
168 -1.305364301 3
169 0.460997688 1
170 -0.649177226 2
171 0.731561855 2
172 3.011606470 3
173 0.739496915 1
174 1.078734838 2
175 -0.244194955 2
176 1.059978916 3
177 -1.606052747 1
178 0.855640045 2
179 0.168354194 2
180 1.895596565 3
181 1.742529269 1
182 1.020426598 2
183 0.320661005 2
184 0.079637765 3
185 -0.970342883 1
186 0.844350589 2
187 -1.667785773 2
188 0.763828592 3
189 1.644208206 1
190 0.056109208 2
191 0.099161837 2
192 4.629369369 3
193 1.113327804 1
194 -0.393152388 2
195 0.609521646 2
196 0.409718664 3
197 -1.427810492 1
198 0.567318876 2
199 -0.083888348 2
200 -1.498606763 3
III draw_sample_mixture: check correct behaviour of show
Code
show(draw_sample_mixture(k_groups = 2, f = 0.25, max_n = 30))
Output
y x
1 -0.2968 1
2 0.6607 2
3 1.4095 1
4 -0.2448 2
5 -0.6702 1
6 0.0501 2
7 -0.4452 1
8 0.6138 2
9 -0.5893 1
10 0.7303 2
11 -0.2416 1
12 1.7096 2
13 -0.7096 1
14 0.1768 2
15 -1.0189 1
16 2.7613 2
17 1.9641 1
18 -0.4269 2
19 -0.7524 1
20 -0.1272 2
21 -0.1493 1
22 0.8260 2
23 -1.7704 1
24 -1.9212 2
25 -0.6461 1
26 0.8786 2
27 0.0006 1
28 2.7196 2
29 0.1150 1
30 0.9282 2
31 -0.7716 1
32 0.6649 2
33 -1.6054 1
34 0.0657 2
35 0.4546 1
36 -0.1479 2
37 0.8698 1
38 -0.4138 2
39 -1.7788 1
40 0.1029 2
41 -0.2011 1
42 -2.0765 2
43 1.2032 1
44 -0.5536 2
45 -0.5709 1
46 -0.5789 2
47 -1.1251 1
48 -0.0113 2
49 -0.0135 1
50 0.4689 2
51 0.6118 1
52 0.5000 2
53 0.5140 1
54 -0.1874 2
55 1.2229 1
56 1.1427 2
57 -0.1737 1
58 0.5148 2
59 -2.7390 1
60 2.3657 2
Code
suppressMessages(show(draw_sample_mixture(k_groups = 4, f = 1, max_n = 30,
verbose = TRUE)))
Output
y x
1 2.4910 1
2 0.0675 2
3 -0.4683 3
4 -0.9187 4
5 0.3189 1
6 0.7794 2
7 -1.6730 3
8 -2.5698 4
9 2.9761 1
10 -0.0471 2
11 0.3060 3
12 -2.2047 4
13 2.3544 1
14 -0.1104 2
15 0.0361 3
16 -1.7993 4
17 0.6482 1
18 -0.2647 2
19 -0.0522 3
20 -0.2465 4
21 2.1516 1
22 0.3486 2
23 -0.0988 3
24 -2.2877 4
25 2.7909 1
26 1.0040 2
27 -0.6218 3
28 -0.0245 4
29 1.8623 1
30 2.4961 2
31 -0.1047 3
32 -0.2501 4
33 2.5719 1
34 0.3452 2
35 -0.8797 3
36 -1.9779 4
37 2.6650 1
38 0.1728 2
39 -0.7123 3
40 -1.9692 4
41 2.9951 1
42 0.2990 2
43 0.0369 3
44 -0.1540 4
45 2.7398 1
46 0.1658 2
47 -0.2292 3
48 -0.1883 4
49 2.2093 1
50 1.5512 2
51 -1.4558 3
52 -0.1454 4
53 2.8197 1
54 0.4540 2
55 0.2131 3
56 -0.0444 4
57 0.4924 1
58 0.6376 2
59 -1.4554 3
60 0.1083 4
61 2.5895 1
62 -0.5686 2
63 -3.0066 3
64 -0.1592 4
65 3.1274 1
66 1.4327 2
67 -1.3523 3
68 -0.1326 4
69 2.9455 1
70 0.1351 2
71 -1.4518 3
72 -1.2041 4
73 2.1853 1
74 0.4302 2
75 -0.3479 3
76 -0.1739 4
77 0.5177 1
78 -0.4684 2
79 -3.4303 3
80 0.1590 4
81 1.7165 1
82 0.7031 2
83 -0.1307 3
84 -0.1991 4
85 0.2796 1
86 0.4674 2
87 -0.9933 3
88 0.0534 4
89 2.2181 1
90 0.1253 2
91 -1.4520 3
92 -2.0679 4
93 2.3852 1
94 -0.1615 2
95 -1.7813 3
96 0.0105 4
97 2.8237 1
98 2.0998 2
99 -0.0535 3
100 -2.9976 4
101 2.3783 1
102 2.0114 2
103 -1.8989 3
104 -0.1166 4
105 2.5713 1
106 1.7327 2
107 -0.2999 3
108 -0.3638 4
109 0.7090 1
110 1.3038 2
111 -1.2345 3
112 -1.3464 4
113 1.9724 1
114 0.3479 2
115 -0.5697 3
116 0.0205 4
117 0.5220 1
118 0.0658 2
119 -0.1224 3
120 -2.1263 4
Code
suppressMessages(show(draw_sample_mixture(k_groups = 3, f = 0.12, max_n = 50,
verbose = TRUE)))
Output
y x
1 -0.2410 1
2 -0.1934 2
3 -0.2757 3
4 -0.6969 1
5 -0.4536 2
6 -0.8092 3
7 -0.6245 1
8 -2.5398 2
9 1.1419 3
10 0.3547 1
11 -0.6883 2
12 -0.7196 3
13 -0.7558 1
14 -0.5984 2
15 -0.3976 3
16 -0.9133 1
17 -0.9348 2
18 0.9654 3
19 0.7393 1
20 0.0178 2
21 -0.4229 3
22 -0.2429 1
23 1.7604 2
24 -0.6110 3
25 0.7065 1
26 0.3390 2
27 0.4631 3
28 -0.5304 1
29 -0.6921 2
30 -0.3141 3
31 0.9784 1
32 0.2219 2
33 -0.4645 3
34 -0.2089 1
35 -1.4769 2
36 -0.8270 3
37 0.4255 1
38 -0.6820 2
39 -0.5628 3
40 -1.7210 1
41 -0.1164 2
42 0.8722 3
43 1.1805 1
44 -0.1715 2
45 -3.3865 3
46 -0.0950 1
47 -0.0837 2
48 0.0269 3
49 0.9172 1
50 0.3552 2
51 0.6874 3
52 0.4152 1
53 -0.2585 2
54 0.0032 3
55 0.2972 1
56 0.4635 2
57 -1.2692 3
58 0.3623 1
59 0.1776 2
60 0.0768 3
61 0.1265 1
62 -1.3828 2
63 0.1808 3
64 -0.0566 1
65 -0.2596 2
66 -0.4645 3
67 -0.5068 1
68 2.4167 2
69 1.5020 3
70 -0.7959 1
71 -0.0110 2
72 -0.0041 3
73 -0.2586 1
74 1.3139 2
75 0.1569 3
76 0.1840 1
77 0.5937 2
78 -0.2695 3
79 -0.9742 1
80 -0.8063 2
81 3.0596 3
82 0.4044 1
83 1.1431 2
84 -0.0321 3
85 0.2661 1
86 1.3805 2
87 0.1521 3
88 1.7057 1
89 0.4342 2
90 -0.1004 3
91 -0.2495 1
92 -0.1205 2
93 -0.4312 3
94 0.6073 1
95 0.1998 2
96 -0.1832 3
97 -1.1601 1
98 -2.7660 2
99 -0.4342 3
100 0.4027 1
101 0.0423 2
102 0.5722 3
103 -1.2653 1
104 -0.3429 2
105 -0.9985 3
106 -0.1167 1
107 0.7571 2
108 -0.4233 3
109 -0.3670 1
110 -0.2564 2
111 2.0780 3
112 0.1786 1
113 -2.3183 2
114 0.1252 3
115 0.2839 1
116 0.2548 2
117 -0.5821 3
118 1.9404 1
119 -1.0286 2
120 2.6396 3
121 -0.1017 1
122 0.6644 2
123 0.6063 3
124 0.7612 1
125 -0.3978 2
126 -0.0463 3
127 -0.3653 1
128 -0.0054 2
129 -0.3708 3
130 0.1721 1
131 -1.3761 2
132 0.0778 3
133 -0.3353 1
134 0.0611 2
135 -1.1323 3
136 0.1725 1
137 -0.9822 2
138 1.1456 3
139 1.0595 1
140 -1.1812 2
141 -0.4041 3
142 1.8361 1
143 -0.0383 2
144 0.1401 3
145 0.1020 1
146 0.4085 2
147 0.0623 3
148 0.7737 1
149 0.7064 2
150 0.1564 3
Try the sprtt package in your browser
Any scripts or data that you put into this service are public.
sprtt documentation built on May 6, 2026, 5:06 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
I draw_sample_normal: check correct behaviour oh show
Code
show(draw_sample_normal(k_groups = 2, f = 0.25, max_n = 30))
Output
y x
1 -2.30128979 1
2 0.52773897 2
3 -1.77596060 1
4 -0.01916362 2
5 0.98305388 1
6 0.88360774 2
7 0.10271746 1
8 -0.31048248 2
9 -1.37490028 1
10 -0.62430362 2
11 -0.20613838 1
12 -0.33397514 2
13 -1.07329858 1
14 0.36059280 2
15 0.11472778 1
16 0.30370100 2
17 1.11867235 1
18 -0.13045724 2
19 -0.95632036 1
20 1.21687656 2
21 -0.96016648 1
22 0.19082635 2
23 -0.48094342 1
24 0.94200045 2
25 1.10682290 1
26 2.03872284 2
27 0.16071582 1
28 -1.93785470 2
29 -0.95278946 1
30 0.54986416 2
31 0.89946968 1
32 -0.05164149 2
33 -0.79733935 1
34 -0.13540415 2
35 0.02637203 1
36 0.40186081 2
37 -0.68138079 1
38 -1.62050006 2
39 -0.17366674 1
40 0.01964405 2
41 0.06746484 1
42 -1.34268440 2
43 -0.43194062 1
44 2.00614174 2
45 -0.13605068 1
46 -0.04216508 2
47 1.50409316 1
48 2.05958455 2
49 -0.41706889 1
50 1.49128597 2
51 0.04010419 1
52 0.19627645 2
53 -0.17569522 1
54 0.13560610 2
55 -1.68381629 1
56 -0.09207492 2
57 0.18550459 1
58 0.54297294 2
59 -1.10981789 1
60 1.30689333 2
Code
show(draw_sample_normal(k_groups = 4, f = 1, sd = c(1, 0.8, 1, 1), max_n = 30))
Output
y x
1 -0.97359684 1
2 1.14097958 2
3 -1.12270522 3
4 -2.65066851 4
5 0.25476947 1
6 -0.47805947 2
7 -0.27788822 3
8 -1.28471300 4
9 0.28386638 1
10 -0.34597016 2
11 -0.14637930 3
12 0.12857747 4
13 1.87775659 1
14 0.25154051 2
15 0.96273137 3
16 -0.59832287 4
17 -0.17971706 1
18 -1.18839393 2
19 0.12479108 3
20 -1.28483404 4
21 1.17213816 1
22 0.37554315 2
23 0.63468484 3
24 -2.85283746 4
25 1.96726846 1
26 0.18740073 2
27 1.48936086 3
28 -0.03880732 4
29 0.60829762 1
30 -0.07302225 2
31 0.89495215 3
32 -3.33728160 4
33 0.98816642 1
34 0.26442197 2
35 0.38757643 3
36 -1.00285665 4
37 0.36527269 1
38 1.66521636 2
39 0.45412581 3
40 -2.80828333 4
41 -0.24377594 1
42 -0.26936384 2
43 0.01259100 3
44 -1.35897923 4
45 0.99194620 1
46 -0.25056638 2
47 0.43321193 3
48 -1.89438506 4
49 3.11603445 1
50 0.34404012 2
51 0.70812658 3
52 -1.25336223 4
53 1.66344305 1
54 0.34051343 2
55 0.69780345 3
56 -1.04893182 4
57 -0.21474052 1
58 -0.89835710 2
59 2.50661451 3
60 -0.03909643 4
61 0.97213776 1
62 0.58175123 2
63 1.02602495 3
64 -1.23554496 4
65 0.36100896 1
66 -1.51871162 2
67 0.01726798 3
68 -1.36800653 4
69 -1.43527725 1
70 0.54598193 2
71 0.79224568 3
72 -0.85135106 4
73 1.68370015 1
74 1.92938614 2
75 0.62847109 3
76 -0.63367871 4
77 0.84330208 1
78 1.24457511 2
79 1.37429627 3
80 -0.40494692 4
81 2.76131930 1
82 0.34880539 2
83 1.00058930 3
84 -1.65217161 4
85 2.15362714 1
86 0.16936481 2
87 1.17353474 3
88 -0.87120355 4
89 0.32375713 1
90 -1.71353075 2
91 0.72294907 3
92 -0.31328298 4
93 0.95824196 1
94 0.42493943 2
95 2.01132178 3
96 -2.02363888 4
97 1.72361329 1
98 0.91187823 2
99 2.05794008 3
100 -2.41948073 4
101 -0.82616035 1
102 -1.06990486 2
103 0.74828918 3
104 -2.36455247 4
105 0.90625077 1
106 0.97124913 2
107 -0.73473633 3
108 -0.80467140 4
109 1.90673699 1
110 -0.11019307 2
111 0.86674084 3
112 -2.07180330 4
113 1.17725606 1
114 -1.18412428 2
115 -0.19673848 3
116 -1.53364871 4
117 1.94964353 1
118 -0.58430960 2
119 1.17936536 3
120 -2.42016539 4
Code
show(draw_sample_normal(k_groups = 3, f = 0.12, sd = c(1, 0.8, 2),
sample_ratio = c(1, 2, 1), max_n = 50))
Output
y x
1 -0.936675605 1
2 -0.226495718 2
3 0.726903769 2
4 1.171692758 3
5 0.625765104 1
6 0.121431936 2
7 1.404898561 2
8 -0.463956453 3
9 1.276218694 1
10 0.988857660 2
11 0.825425744 2
12 -1.961664564 3
13 -0.081434902 1
14 -0.267999180 2
15 1.157428335 2
16 0.297846188 3
17 0.787176518 1
18 1.087855584 2
19 -0.057334887 2
20 -1.364703384 3
21 -1.044534741 1
22 -0.959843244 2
23 -0.969902906 2
24 -2.047922860 3
25 0.084171288 1
26 -0.746268160 2
27 -0.443365144 2
28 2.764267254 3
29 0.092174640 1
30 -0.218944123 2
31 -1.733187229 2
32 0.260986113 3
33 0.959491494 1
34 -0.069193351 2
35 0.568621828 2
36 2.505688662 3
37 0.375506716 1
38 -1.568810495 2
39 -0.598254780 2
40 0.099080638 3
41 -1.065773027 1
42 -0.292174697 2
43 -0.207858899 2
44 -2.863657636 3
45 -0.627534874 1
46 2.454584668 2
47 0.649545043 2
48 -1.098047776 3
49 -0.724620437 1
50 0.480632479 2
51 0.162462675 2
52 -2.117389076 3
53 0.421297252 1
54 -0.425199435 2
55 -0.318059197 2
56 3.767242568 3
57 -0.453672377 1
58 0.340127844 2
59 -0.827336962 2
60 0.761081283 3
61 0.119063619 1
62 1.112774892 2
63 -0.319780639 2
64 0.434381525 3
65 2.616104139 1
66 0.379077942 2
67 0.087260993 2
68 0.460536143 3
69 2.062928682 1
70 0.562703989 2
71 0.540852782 2
72 2.669300377 3
73 -1.126187466 1
74 0.969438006 2
75 -0.110448409 2
76 0.200412295 3
77 0.114899017 1
78 0.562903113 2
79 -0.874938428 2
80 2.046722310 3
81 -0.347652027 1
82 0.513399111 2
83 -0.197021579 2
84 0.048880196 3
85 -1.272650790 1
86 -0.364024249 2
87 -0.005338713 2
88 1.998387388 3
89 1.181871832 1
90 0.488059301 2
91 -0.183331245 2
92 -1.847133816 3
93 -0.080187948 1
94 0.809648448 2
95 1.170627104 2
96 0.020854272 3
97 -0.047562050 1
98 -0.370831261 2
99 0.089182715 2
100 2.206326026 3
101 -0.296804761 1
102 0.728464307 2
103 0.409324443 2
104 0.647724512 3
105 -0.045722368 1
106 0.855722638 2
107 -0.833750018 2
108 1.187849650 3
109 -0.126708788 1
110 0.998049281 2
111 0.553959313 2
112 -4.111397098 3
113 1.125439349 1
114 1.036634448 2
115 1.106736619 2
116 6.652641665 3
117 0.978951302 1
118 1.519591769 2
119 0.421018431 2
120 -2.953812403 3
121 1.228523122 1
122 -0.007738038 2
123 0.183137700 2
124 2.186830430 3
125 -0.650401364 1
126 2.324544685 2
127 0.818396901 2
128 0.020695568 3
129 0.006014754 1
130 1.017913718 2
131 -0.910423156 2
132 -1.099665932 3
133 2.308601113 1
134 -0.841518372 2
135 0.750021447 2
136 0.775404325 3
137 -0.653104908 1
138 0.012648806 2
139 -0.273025517 2
140 -2.495480813 3
141 -0.160619201 1
142 -0.681265771 2
143 0.568567683 2
144 -2.547826677 3
145 0.387336230 1
146 0.146981391 2
147 1.211387438 2
148 1.588344020 3
149 0.329922193 1
150 1.142682795 2
151 -0.296327036 2
152 -1.995666362 3
153 -0.262441660 1
154 -0.084823594 2
155 0.355180821 2
156 -0.569200135 3
157 0.368716253 1
158 0.520577365 2
159 0.870166136 2
160 4.596592376 3
161 0.673656960 1
162 0.206732023 2
163 1.328961216 2
164 1.397614675 3
165 -0.458671107 1
166 0.776654055 2
167 -0.640149732 2
168 -1.305364301 3
169 0.460997688 1
170 -0.649177226 2
171 0.731561855 2
172 3.011606470 3
173 0.739496915 1
174 1.078734838 2
175 -0.244194955 2
176 1.059978916 3
177 -1.606052747 1
178 0.855640045 2
179 0.168354194 2
180 1.895596565 3
181 1.742529269 1
182 1.020426598 2
183 0.320661005 2
184 0.079637765 3
185 -0.970342883 1
186 0.844350589 2
187 -1.667785773 2
188 0.763828592 3
189 1.644208206 1
190 0.056109208 2
191 0.099161837 2
192 4.629369369 3
193 1.113327804 1
194 -0.393152388 2
195 0.609521646 2
196 0.409718664 3
197 -1.427810492 1
198 0.567318876 2
199 -0.083888348 2
200 -1.498606763 3
II draw_sample_normal: check correct behaviour of show
Code
show(draw_sample_normal(k_groups = 2, f = 0.25, max_n = 30))
Output
y x
1 -2.30128979 1
2 0.52773897 2
3 -1.77596060 1
4 -0.01916362 2
5 0.98305388 1
6 0.88360774 2
7 0.10271746 1
8 -0.31048248 2
9 -1.37490028 1
10 -0.62430362 2
11 -0.20613838 1
12 -0.33397514 2
13 -1.07329858 1
14 0.36059280 2
15 0.11472778 1
16 0.30370100 2
17 1.11867235 1
18 -0.13045724 2
19 -0.95632036 1
20 1.21687656 2
21 -0.96016648 1
22 0.19082635 2
23 -0.48094342 1
24 0.94200045 2
25 1.10682290 1
26 2.03872284 2
27 0.16071582 1
28 -1.93785470 2
29 -0.95278946 1
30 0.54986416 2
31 0.89946968 1
32 -0.05164149 2
33 -0.79733935 1
34 -0.13540415 2
35 0.02637203 1
36 0.40186081 2
37 -0.68138079 1
38 -1.62050006 2
39 -0.17366674 1
40 0.01964405 2
41 0.06746484 1
42 -1.34268440 2
43 -0.43194062 1
44 2.00614174 2
45 -0.13605068 1
46 -0.04216508 2
47 1.50409316 1
48 2.05958455 2
49 -0.41706889 1
50 1.49128597 2
51 0.04010419 1
52 0.19627645 2
53 -0.17569522 1
54 0.13560610 2
55 -1.68381629 1
56 -0.09207492 2
57 0.18550459 1
58 0.54297294 2
59 -1.10981789 1
60 1.30689333 2
Code
show(draw_sample_normal(k_groups = 4, f = 1, sd = c(1, 0.8, 1, 1), max_n = 30))
Output
y x
1 -0.97359684 1
2 1.14097958 2
3 -1.12270522 3
4 -2.65066851 4
5 0.25476947 1
6 -0.47805947 2
7 -0.27788822 3
8 -1.28471300 4
9 0.28386638 1
10 -0.34597016 2
11 -0.14637930 3
12 0.12857747 4
13 1.87775659 1
14 0.25154051 2
15 0.96273137 3
16 -0.59832287 4
17 -0.17971706 1
18 -1.18839393 2
19 0.12479108 3
20 -1.28483404 4
21 1.17213816 1
22 0.37554315 2
23 0.63468484 3
24 -2.85283746 4
25 1.96726846 1
26 0.18740073 2
27 1.48936086 3
28 -0.03880732 4
29 0.60829762 1
30 -0.07302225 2
31 0.89495215 3
32 -3.33728160 4
33 0.98816642 1
34 0.26442197 2
35 0.38757643 3
36 -1.00285665 4
37 0.36527269 1
38 1.66521636 2
39 0.45412581 3
40 -2.80828333 4
41 -0.24377594 1
42 -0.26936384 2
43 0.01259100 3
44 -1.35897923 4
45 0.99194620 1
46 -0.25056638 2
47 0.43321193 3
48 -1.89438506 4
49 3.11603445 1
50 0.34404012 2
51 0.70812658 3
52 -1.25336223 4
53 1.66344305 1
54 0.34051343 2
55 0.69780345 3
56 -1.04893182 4
57 -0.21474052 1
58 -0.89835710 2
59 2.50661451 3
60 -0.03909643 4
61 0.97213776 1
62 0.58175123 2
63 1.02602495 3
64 -1.23554496 4
65 0.36100896 1
66 -1.51871162 2
67 0.01726798 3
68 -1.36800653 4
69 -1.43527725 1
70 0.54598193 2
71 0.79224568 3
72 -0.85135106 4
73 1.68370015 1
74 1.92938614 2
75 0.62847109 3
76 -0.63367871 4
77 0.84330208 1
78 1.24457511 2
79 1.37429627 3
80 -0.40494692 4
81 2.76131930 1
82 0.34880539 2
83 1.00058930 3
84 -1.65217161 4
85 2.15362714 1
86 0.16936481 2
87 1.17353474 3
88 -0.87120355 4
89 0.32375713 1
90 -1.71353075 2
91 0.72294907 3
92 -0.31328298 4
93 0.95824196 1
94 0.42493943 2
95 2.01132178 3
96 -2.02363888 4
97 1.72361329 1
98 0.91187823 2
99 2.05794008 3
100 -2.41948073 4
101 -0.82616035 1
102 -1.06990486 2
103 0.74828918 3
104 -2.36455247 4
105 0.90625077 1
106 0.97124913 2
107 -0.73473633 3
108 -0.80467140 4
109 1.90673699 1
110 -0.11019307 2
111 0.86674084 3
112 -2.07180330 4
113 1.17725606 1
114 -1.18412428 2
115 -0.19673848 3
116 -1.53364871 4
117 1.94964353 1
118 -0.58430960 2
119 1.17936536 3
120 -2.42016539 4
Code
show(draw_sample_normal(k_groups = 3, f = 0.12, sd = c(1, 0.8, 2),
sample_ratio = c(1, 2, 1), max_n = 50))
Output
y x
1 -0.936675605 1
2 -0.226495718 2
3 0.726903769 2
4 1.171692758 3
5 0.625765104 1
6 0.121431936 2
7 1.404898561 2
8 -0.463956453 3
9 1.276218694 1
10 0.988857660 2
11 0.825425744 2
12 -1.961664564 3
13 -0.081434902 1
14 -0.267999180 2
15 1.157428335 2
16 0.297846188 3
17 0.787176518 1
18 1.087855584 2
19 -0.057334887 2
20 -1.364703384 3
21 -1.044534741 1
22 -0.959843244 2
23 -0.969902906 2
24 -2.047922860 3
25 0.084171288 1
26 -0.746268160 2
27 -0.443365144 2
28 2.764267254 3
29 0.092174640 1
30 -0.218944123 2
31 -1.733187229 2
32 0.260986113 3
33 0.959491494 1
34 -0.069193351 2
35 0.568621828 2
36 2.505688662 3
37 0.375506716 1
38 -1.568810495 2
39 -0.598254780 2
40 0.099080638 3
41 -1.065773027 1
42 -0.292174697 2
43 -0.207858899 2
44 -2.863657636 3
45 -0.627534874 1
46 2.454584668 2
47 0.649545043 2
48 -1.098047776 3
49 -0.724620437 1
50 0.480632479 2
51 0.162462675 2
52 -2.117389076 3
53 0.421297252 1
54 -0.425199435 2
55 -0.318059197 2
56 3.767242568 3
57 -0.453672377 1
58 0.340127844 2
59 -0.827336962 2
60 0.761081283 3
61 0.119063619 1
62 1.112774892 2
63 -0.319780639 2
64 0.434381525 3
65 2.616104139 1
66 0.379077942 2
67 0.087260993 2
68 0.460536143 3
69 2.062928682 1
70 0.562703989 2
71 0.540852782 2
72 2.669300377 3
73 -1.126187466 1
74 0.969438006 2
75 -0.110448409 2
76 0.200412295 3
77 0.114899017 1
78 0.562903113 2
79 -0.874938428 2
80 2.046722310 3
81 -0.347652027 1
82 0.513399111 2
83 -0.197021579 2
84 0.048880196 3
85 -1.272650790 1
86 -0.364024249 2
87 -0.005338713 2
88 1.998387388 3
89 1.181871832 1
90 0.488059301 2
91 -0.183331245 2
92 -1.847133816 3
93 -0.080187948 1
94 0.809648448 2
95 1.170627104 2
96 0.020854272 3
97 -0.047562050 1
98 -0.370831261 2
99 0.089182715 2
100 2.206326026 3
101 -0.296804761 1
102 0.728464307 2
103 0.409324443 2
104 0.647724512 3
105 -0.045722368 1
106 0.855722638 2
107 -0.833750018 2
108 1.187849650 3
109 -0.126708788 1
110 0.998049281 2
111 0.553959313 2
112 -4.111397098 3
113 1.125439349 1
114 1.036634448 2
115 1.106736619 2
116 6.652641665 3
117 0.978951302 1
118 1.519591769 2
119 0.421018431 2
120 -2.953812403 3
121 1.228523122 1
122 -0.007738038 2
123 0.183137700 2
124 2.186830430 3
125 -0.650401364 1
126 2.324544685 2
127 0.818396901 2
128 0.020695568 3
129 0.006014754 1
130 1.017913718 2
131 -0.910423156 2
132 -1.099665932 3
133 2.308601113 1
134 -0.841518372 2
135 0.750021447 2
136 0.775404325 3
137 -0.653104908 1
138 0.012648806 2
139 -0.273025517 2
140 -2.495480813 3
141 -0.160619201 1
142 -0.681265771 2
143 0.568567683 2
144 -2.547826677 3
145 0.387336230 1
146 0.146981391 2
147 1.211387438 2
148 1.588344020 3
149 0.329922193 1
150 1.142682795 2
151 -0.296327036 2
152 -1.995666362 3
153 -0.262441660 1
154 -0.084823594 2
155 0.355180821 2
156 -0.569200135 3
157 0.368716253 1
158 0.520577365 2
159 0.870166136 2
160 4.596592376 3
161 0.673656960 1
162 0.206732023 2
163 1.328961216 2
164 1.397614675 3
165 -0.458671107 1
166 0.776654055 2
167 -0.640149732 2
168 -1.305364301 3
169 0.460997688 1
170 -0.649177226 2
171 0.731561855 2
172 3.011606470 3
173 0.739496915 1
174 1.078734838 2
175 -0.244194955 2
176 1.059978916 3
177 -1.606052747 1
178 0.855640045 2
179 0.168354194 2
180 1.895596565 3
181 1.742529269 1
182 1.020426598 2
183 0.320661005 2
184 0.079637765 3
185 -0.970342883 1
186 0.844350589 2
187 -1.667785773 2
188 0.763828592 3
189 1.644208206 1
190 0.056109208 2
191 0.099161837 2
192 4.629369369 3
193 1.113327804 1
194 -0.393152388 2
195 0.609521646 2
196 0.409718664 3
197 -1.427810492 1
198 0.567318876 2
199 -0.083888348 2
200 -1.498606763 3
III draw_sample_mixture: check correct behaviour of show
Code
show(draw_sample_mixture(k_groups = 2, f = 0.25, max_n = 30))
Output
y x
1 -0.2968 1
2 0.6607 2
3 1.4095 1
4 -0.2448 2
5 -0.6702 1
6 0.0501 2
7 -0.4452 1
8 0.6138 2
9 -0.5893 1
10 0.7303 2
11 -0.2416 1
12 1.7096 2
13 -0.7096 1
14 0.1768 2
15 -1.0189 1
16 2.7613 2
17 1.9641 1
18 -0.4269 2
19 -0.7524 1
20 -0.1272 2
21 -0.1493 1
22 0.8260 2
23 -1.7704 1
24 -1.9212 2
25 -0.6461 1
26 0.8786 2
27 0.0006 1
28 2.7196 2
29 0.1150 1
30 0.9282 2
31 -0.7716 1
32 0.6649 2
33 -1.6054 1
34 0.0657 2
35 0.4546 1
36 -0.1479 2
37 0.8698 1
38 -0.4138 2
39 -1.7788 1
40 0.1029 2
41 -0.2011 1
42 -2.0765 2
43 1.2032 1
44 -0.5536 2
45 -0.5709 1
46 -0.5789 2
47 -1.1251 1
48 -0.0113 2
49 -0.0135 1
50 0.4689 2
51 0.6118 1
52 0.5000 2
53 0.5140 1
54 -0.1874 2
55 1.2229 1
56 1.1427 2
57 -0.1737 1
58 0.5148 2
59 -2.7390 1
60 2.3657 2
Code
suppressMessages(show(draw_sample_mixture(k_groups = 4, f = 1, max_n = 30,
verbose = TRUE)))
Output
y x
1 2.4910 1
2 0.0675 2
3 -0.4683 3
4 -0.9187 4
5 0.3189 1
6 0.7794 2
7 -1.6730 3
8 -2.5698 4
9 2.9761 1
10 -0.0471 2
11 0.3060 3
12 -2.2047 4
13 2.3544 1
14 -0.1104 2
15 0.0361 3
16 -1.7993 4
17 0.6482 1
18 -0.2647 2
19 -0.0522 3
20 -0.2465 4
21 2.1516 1
22 0.3486 2
23 -0.0988 3
24 -2.2877 4
25 2.7909 1
26 1.0040 2
27 -0.6218 3
28 -0.0245 4
29 1.8623 1
30 2.4961 2
31 -0.1047 3
32 -0.2501 4
33 2.5719 1
34 0.3452 2
35 -0.8797 3
36 -1.9779 4
37 2.6650 1
38 0.1728 2
39 -0.7123 3
40 -1.9692 4
41 2.9951 1
42 0.2990 2
43 0.0369 3
44 -0.1540 4
45 2.7398 1
46 0.1658 2
47 -0.2292 3
48 -0.1883 4
49 2.2093 1
50 1.5512 2
51 -1.4558 3
52 -0.1454 4
53 2.8197 1
54 0.4540 2
55 0.2131 3
56 -0.0444 4
57 0.4924 1
58 0.6376 2
59 -1.4554 3
60 0.1083 4
61 2.5895 1
62 -0.5686 2
63 -3.0066 3
64 -0.1592 4
65 3.1274 1
66 1.4327 2
67 -1.3523 3
68 -0.1326 4
69 2.9455 1
70 0.1351 2
71 -1.4518 3
72 -1.2041 4
73 2.1853 1
74 0.4302 2
75 -0.3479 3
76 -0.1739 4
77 0.5177 1
78 -0.4684 2
79 -3.4303 3
80 0.1590 4
81 1.7165 1
82 0.7031 2
83 -0.1307 3
84 -0.1991 4
85 0.2796 1
86 0.4674 2
87 -0.9933 3
88 0.0534 4
89 2.2181 1
90 0.1253 2
91 -1.4520 3
92 -2.0679 4
93 2.3852 1
94 -0.1615 2
95 -1.7813 3
96 0.0105 4
97 2.8237 1
98 2.0998 2
99 -0.0535 3
100 -2.9976 4
101 2.3783 1
102 2.0114 2
103 -1.8989 3
104 -0.1166 4
105 2.5713 1
106 1.7327 2
107 -0.2999 3
108 -0.3638 4
109 0.7090 1
110 1.3038 2
111 -1.2345 3
112 -1.3464 4
113 1.9724 1
114 0.3479 2
115 -0.5697 3
116 0.0205 4
117 0.5220 1
118 0.0658 2
119 -0.1224 3
120 -2.1263 4
Code
suppressMessages(show(draw_sample_mixture(k_groups = 3, f = 0.12, max_n = 50,
verbose = TRUE)))
Output
y x
1 -0.2410 1
2 -0.1934 2
3 -0.2757 3
4 -0.6969 1
5 -0.4536 2
6 -0.8092 3
7 -0.6245 1
8 -2.5398 2
9 1.1419 3
10 0.3547 1
11 -0.6883 2
12 -0.7196 3
13 -0.7558 1
14 -0.5984 2
15 -0.3976 3
16 -0.9133 1
17 -0.9348 2
18 0.9654 3
19 0.7393 1
20 0.0178 2
21 -0.4229 3
22 -0.2429 1
23 1.7604 2
24 -0.6110 3
25 0.7065 1
26 0.3390 2
27 0.4631 3
28 -0.5304 1
29 -0.6921 2
30 -0.3141 3
31 0.9784 1
32 0.2219 2
33 -0.4645 3
34 -0.2089 1
35 -1.4769 2
36 -0.8270 3
37 0.4255 1
38 -0.6820 2
39 -0.5628 3
40 -1.7210 1
41 -0.1164 2
42 0.8722 3
43 1.1805 1
44 -0.1715 2
45 -3.3865 3
46 -0.0950 1
47 -0.0837 2
48 0.0269 3
49 0.9172 1
50 0.3552 2
51 0.6874 3
52 0.4152 1
53 -0.2585 2
54 0.0032 3
55 0.2972 1
56 0.4635 2
57 -1.2692 3
58 0.3623 1
59 0.1776 2
60 0.0768 3
61 0.1265 1
62 -1.3828 2
63 0.1808 3
64 -0.0566 1
65 -0.2596 2
66 -0.4645 3
67 -0.5068 1
68 2.4167 2
69 1.5020 3
70 -0.7959 1
71 -0.0110 2
72 -0.0041 3
73 -0.2586 1
74 1.3139 2
75 0.1569 3
76 0.1840 1
77 0.5937 2
78 -0.2695 3
79 -0.9742 1
80 -0.8063 2
81 3.0596 3
82 0.4044 1
83 1.1431 2
84 -0.0321 3
85 0.2661 1
86 1.3805 2
87 0.1521 3
88 1.7057 1
89 0.4342 2
90 -0.1004 3
91 -0.2495 1
92 -0.1205 2
93 -0.4312 3
94 0.6073 1
95 0.1998 2
96 -0.1832 3
97 -1.1601 1
98 -2.7660 2
99 -0.4342 3
100 0.4027 1
101 0.0423 2
102 0.5722 3
103 -1.2653 1
104 -0.3429 2
105 -0.9985 3
106 -0.1167 1
107 0.7571 2
108 -0.4233 3
109 -0.3670 1
110 -0.2564 2
111 2.0780 3
112 0.1786 1
113 -2.3183 2
114 0.1252 3
115 0.2839 1
116 0.2548 2
117 -0.5821 3
118 1.9404 1
119 -1.0286 2
120 2.6396 3
121 -0.1017 1
122 0.6644 2
123 0.6063 3
124 0.7612 1
125 -0.3978 2
126 -0.0463 3
127 -0.3653 1
128 -0.0054 2
129 -0.3708 3
130 0.1721 1
131 -1.3761 2
132 0.0778 3
133 -0.3353 1
134 0.0611 2
135 -1.1323 3
136 0.1725 1
137 -0.9822 2
138 1.1456 3
139 1.0595 1
140 -1.1812 2
141 -0.4041 3
142 1.8361 1
143 -0.0383 2
144 0.1401 3
145 0.1020 1
146 0.4085 2
147 0.0623 3
148 0.7737 1
149 0.7064 2
150 0.1564 3
Try the sprtt package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.