2012-08-01から1ヶ月間の記事一覧
library("quadprog")### general # loading file csv_to_df<-function(file_path){ matrix<-read.table(file_path, sep=',',row.names=1,header=T) return(matrix) }### Problem 1 ## making r vector (mean of rmat) rmat_to_rvec<-function(rmat){ rvec <-…