Error in is.na(tmp$var_ratio) && any(tmp$icc_slope >= 0, na.rm = TRUE) : 'length = 27' in coercion to 'logical(1)

[Luca-Sclisizzo]

Hi,

I get this error "Error in is.na(tmp$var_ratio) && any(tmp$icc_slope >= 0, na.rm = TRUE) :
'length = 27' in coercion to 'logical(1)'" while I'm trying to run this script:

d <- study_parameters(
n1 = 6,
n2 = 50,
n3 = 3,
icc_pre_subject = 0.05,
var_ratio = 0.019,
dropout = dropout_weibull(proportion = 0.3,
rate = 1/2),
effect_size = 0.5
)

plot(d)
pwr <- get_power(d)
x <- get_power_table(d, n2 = seq(10, 50, by = 5), n3 = seq(1, 3, by = 1))
plot(x)

The error occurs whatever I put in get_power_table() function.

Thanks!