# NOT RUN {
set.seed(0)
data = simulate_extra()
train = s2Data(data$xL, data$yL, data$xU)
valid = s2Data(data$xU, data$yU, preprocess = train)
model = s2netR(train, s2Params(0.1))
ypred = predict(model, valid$xL)
plot(ypred, valid$yL)
# }
Run the code above in your browser using DataCamp Workspace