@@ -158,26 +158,27 @@ function selectSeasonalIntegrationOrder(
158
158
return StateSpaceModels. canova_hansen_test (y, seasonality)
159
159
elseif test == " ocsb"
160
160
try
161
- py """
162
- def seasonal_diffs (ts , seasonal_period ):
163
- ts_np = numpy.array(ts)
164
- return pmdarima.arima.nsdiffs(ts_np, m = seasonal_period)
165
- """
166
- return py " seasonal_diffs" (y, seasonality)
161
+ if ! (" PyCall" ∈ keys (Pkg. project (). dependencies))
162
+ # Warning message
163
+ @warn " The PyCall package is not installed. Please install it to use the 'ocsb' test."
164
+ @warn " Using the 'seas' test instead."
165
+ return StateSpaceModels. seasonal_strength_test (y, seasonality)
166
+ end
167
+
168
+ return seasonal_diffs (y, seasonality)
167
169
catch e
168
170
println (e)
169
171
throw (Error (" It seems that the pmdarima package is not installed. Please install it to use the 'ocsb' test." ))
170
172
end
171
173
elseif test == " ocsbR"
172
174
try
173
- @rput y seasonality
174
- R """
175
- # Example time series data (replace with your actual data)
176
- ts_data <- ts(y , frequency = seasonality )
177
- D <- nsdiffs(ts_data )
178
- """
179
- D:: Int = @rget D
180
- return D
175
+ if ! (" RCall" ∈ keys (Pkg. project (). dependencies))
176
+ # Warning message
177
+ @warn " The RCall package is not installed. Please install it to use the 'ocsbR' test."
178
+ @warn " Using the 'seas' test instead."
179
+ return StateSpaceModels. seasonal_strength_test (y, seasonality)
180
+ end
181
+ return seasonal_diffsR (y, seasonality)
181
182
catch e
182
183
println (e)
183
184
throw (Error (" It seems that the R forecast package is not installed. Please install it to use the 'ocsbR' test." ))
@@ -216,16 +217,14 @@ function selectIntegrationOrder(
216
217
return StateSpaceModels. repeated_kpss_test (y, maxd, D, seasonality)
217
218
elseif test == " kpssR"
218
219
try
219
- @rput y maxd D seasonality
220
- R """
221
- diffy <- y
222
- if (D > 0 & seasonality > 1 ) {
223
- diffy <- diff(y , differences = D , lag = seasonality )
224
- }
225
- d <- ndiffs(diffy , test = " kpss" , max.d = maxd )
226
- """
227
- d:: Int = @rget d
228
- return d
220
+ if ! (" RCall" ∈ keys (Pkg. project (). dependencies))
221
+ # Warning message
222
+ @warn " The RCall package is not installed. Please install it to use the 'kpssR' test."
223
+ @warn " Using the 'kpss' test instead."
224
+ return StateSpaceModels. repeated_kpss_test (y, maxd, D, seasonality)
225
+ end
226
+
227
+ return kpssR (y, maxd, D, seasonality)
229
228
catch e
230
229
println (e)
231
230
throw (Error (" It seems that the R forecast package is not installed. Please install it to use the 'kpssR' test." ))
0 commit comments