# NOT RUN {
data(biomasseY)
M <- 1*outer(sort(0:(ncol(biomasseY)-1)%%5),0:4,"==")
norm.M <- sqrt(colSums(M^2))
for (i in 1:ncol(M)){
M[,i]=M[,i]/norm.M[i]
}
res <- basis.mine(biomasseY, basis.args=list(baseL=M))
# }
Run the code above in your browser using DataLab