l2.norm <- function(s, datafd, M) { L2norm <- matrix(0,nrow=s,ncol=s) coef <- datafd$coef for (i in 1:(s-1)){ coef.i <- coef[,i] for (j in (i+1):s){ coef.j ...
確定! 回上一頁