Familyプラン(2台)の場合530ドルのSIMロックフリーを買った方が安い。 > fx <- function(x){c((529.99 * 2) + 109.99 * x, 179.99 * 2 + 79.99 * x * 2) + 70} > m <- t(sapply(1:24, fx)) > m <- cbind(m, m[,2] - m[,1]) > m [,1] [,2] [,3] [1,] 1239.97 …