双葉杏のスリーサイズ推定問題を流用して、初音ミクのスリーサイズを推定するというパンドラの箱的な取り組み。 公式には年齢、身長、体重しかないので、アイマスデータで足りないものはすべて組み合わせて発生させることでゴリ押しした。 data0 <- read.csv("imasPCA.csv", header=TRUE) data1 <- data0[,-which(colnames(data0)=="name")] #PCA用に数値だけにする library(glmnet) data2 <- data1[-32, ] #杏を抜いた anzu <- data1[32, ] data3 <- array(0, c(nrow(data2), ncol(data2)-2, 3)) #BWHでデータ data3[, , 1] <- as.matrix(data2[, -c(7, 8)]) #B data3