# NOT RUN {
library(PML)
##reformat data for further analysis
data(lis3)
pa3 <- form(lis3)
##apply Penalized Multi-band Learning
data(pa3)
re <- bandSelect(df=pa3,Nlength=1440*3,Nlambda=100,alpha=1,Ntop=3,cross=FALSE,Ncross=NULL,plot=TRUE)
##use trelliscope to visualize data:
##return a dataset with trelliscope panels for individual mean activity plots
data(var3)
tre.ind <- tre(lis3,varlis=var3)
tre.ind$activity_ind <- tre.ind$activity_all <- NULL
# }
Run the code above in your browser using DataLab