var.relations.mfi will fail if create.forest is FALSE

[floriangaerber]

var.relations.mfi() depends on forest_perm, x_perm and allvariables, which will not be set if create.forest = FALSE.

RFSurrogates/R/var.relations.mfi.R

Lines 156 to 176 in 0354f3b

	if (all(candidates %in% allvariables)) {
	if (all(variables %in% allvariables)) {
	# count surrogates
	s <- count.surrogates(forest$trees)
	rel <- meanAdjAgree(forest$trees,
	variables = allvariables, allvariables = allvariables, candidates = allvariables,
	t = t, s$s.a, select.var = FALSE, num.threads = num.threads
	)
	allvariables_perm <- colnames(x_perm)
	rel_perm <- meanAdjAgree(forest_perm$trees,
	variables = allvariables_perm, allvariables = allvariables_perm, candidates = allvariables_perm,
	t = t, s$s.a, select.var = FALSE, num.threads = num.threads
	)
	} else {
	stop("allvariables do not contain the chosen variables")
	}
	} else {
	stop("allvariables do not contain the candidate variables")
	}