# NOT RUN {
library(TRES)
## Load data "bat"
data("bat")
Xn <- bat$Xn
Yn <- bat$Yn
fit <- TRR.fit(Xn, Yn, method="standard")
## Print cofficient
coef(fit)
## Print the summary
summary(fit)
## Make the prediction on the original dataset
predict(fit, Xn)
## Draw the plot of two-way coefficient tensor (or matrix)
plot(fit)
# }
Run the code above in your browser using DataLab