@@ -40,11 +40,11 @@ bench( pkg, function benchmark( b ) {
40
40
var i ;
41
41
42
42
rho = 0.5 ;
43
- x = new Array ( 300 ) ;
44
- y = new Array ( 300 ) ;
43
+ x = [ ] ;
44
+ y = [ ] ;
45
45
for ( i = 0 ; i < 300 ; i ++ ) {
46
- x [ i ] = rnorm ( 0.0 , 1.0 ) ;
47
- y [ i ] = ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ;
46
+ x . push ( rnorm ( 0.0 , 1.0 ) ) ;
47
+ y . push ( ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ) ;
48
48
}
49
49
50
50
b . tic ( ) ;
@@ -74,11 +74,11 @@ bench( pkg+'::one-sided', function benchmark( b ) {
74
74
var i ;
75
75
76
76
rho = 0.5 ;
77
- x = new Array ( 300 ) ;
78
- y = new Array ( 300 ) ;
77
+ x = [ ] ;
78
+ y = [ ] ;
79
79
for ( i = 0 ; i < 300 ; i ++ ) {
80
- x [ i ] = rnorm ( 0.0 , 1.0 ) ;
81
- y [ i ] = ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ;
80
+ x . push ( rnorm ( 0.0 , 1.0 ) ) ;
81
+ y . push ( ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ) ;
82
82
}
83
83
opts = {
84
84
'alternative' : 'less'
@@ -111,11 +111,11 @@ bench( pkg+':rho=0.5', function benchmark( b ) {
111
111
var i ;
112
112
113
113
rho = 0.5 ;
114
- x = new Array ( 300 ) ;
115
- y = new Array ( 300 ) ;
114
+ x = [ ] ;
115
+ y = [ ] ;
116
116
for ( i = 0 ; i < 300 ; i ++ ) {
117
- x [ i ] = rnorm ( 0.0 , 1.0 ) ;
118
- y [ i ] = ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ;
117
+ x . push ( rnorm ( 0.0 , 1.0 ) ) ;
118
+ y . push ( ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ) ;
119
119
}
120
120
opts = {
121
121
'rho' : 0.5
@@ -148,11 +148,11 @@ bench( pkg+':print', function benchmark( b ) {
148
148
var i ;
149
149
150
150
rho = 0.5 ;
151
- x = new Array ( 300 ) ;
152
- y = new Array ( 300 ) ;
151
+ x = [ ] ;
152
+ y = [ ] ;
153
153
for ( i = 0 ; i < 300 ; i ++ ) {
154
- x [ i ] = rnorm ( 0.0 , 1.0 ) ;
155
- y [ i ] = ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ;
154
+ x . push ( rnorm ( 0.0 , 1.0 ) ) ;
155
+ y . push ( ( rho * x [ i ] ) + rnorm ( 0.0 , sqrt ( 1.0 - ( rho * rho ) ) ) ) ;
156
156
}
157
157
result = pcorrtest ( x , y ) ;
158
158
0 commit comments