#--- multi-task learning ---
data <- sim_data_multi()
sapply(X=data,FUN=dim)
#--- transfer learning ---
data <- sim_data_trans()
sapply(X=data$y_train,FUN=length)
sapply(X=data$X_train,FUN=dim)
sapply(X=data$y_test,FUN=length)
sapply(X=data$X_test,FUN=dim)
dim(data$beta)
Run the code above in your browser using DataLab