source("RefreshStack.R");
Floats[C] <- as.numeric(GPfunction(x)[i]);
if (Floats[B] == "NaN") 
{Floats[B] <- as.numeric(Floats[C]);
Floats <- Floats[-(C)];};