# One whole plot factor at two levels and one sub plot factor at three levels in four runs
Result1 <- equivalent_BSPD(1, list(c(1, -1)), 1, list(c(1,0,-1)), 4, 0.1, 0.9)
# One whole plot factor at three levels and one sub plot factor at three levels in six runs
Result2 <- equivalent_BSPD(1, list(c(1, 0, -1)), 1, list(c(1, 0, -1)), 6, 0.5, 0.95)
# One whole plot factor at three levels and two sub plot factors each at two levels in six runs
Result3 <- equivalent_BSPD(1, list(c(1, 0, -1)), 2, list(c(1, -1), c(1, -1)), 6, 0.6, 0.9)
# Accessing results
Result1$Total_equivalent_estimation_designs
Result1$Equivalent_Estimation_Designs
Result1$All_equivalent_estimation_designs_with_D_Dt_Trend_Factor
Result1$Max_D_value
Result1$D_optimal_designs
Result1$Max_Dt_value
Result1$Dt_optimal_designs
Result1$Max_Trend_factor_value
Result1$Number_of_Designs_Max_Trend_Factor
Result1$Equivalent_Estimation_designs_in_trend_factor_range
Run the code above in your browser using DataLab