{"provider_url":"https://hatena.blog","version":"1.0","categories":["R","\u533b\u5b66"],"blog_url":"https://mikuhatsune.hatenadiary.com/","type":"rich","height":"190","provider_name":"Hatena Blog","url":"https://mikuhatsune.hatenadiary.com/entry/20120530/1338717451","description":"\u306e\u5869\u57fa\u914d\u5217 21\u500b\u306e\u30a2\u30df\u30ce\u9178 4*4*4*21\u306e\u5206\u5272\u8868 \u3092\u4f5c\u308b\u306e\u306b\u3001\u6b21\u5143\u3092\u3069\u3046\u3053\u3046\u3057\u305f\u3044\u3068\u3044\u3046\u8a71\u3002 \u30b3\u30c9\u30f3\u3092\u4e00\u751f\u61f8\u547d\u6253\u3063\u305f\u306e\u3067\u30e1\u30e2\u3002 #\u9069\u5f53\u306bmRNA\u914d\u5217\u3092\u4f5c\u6210\u3059\u308b mRNA <- function(n=100, prob = rep(1, 4)){ bases <- c(\"A\", \"T\", \"G\", \"C\") res <- sample(bases, size=n, prob=prob, replace=TRUE) res1 <- NULL for(i in 1:length(res)){ res1 <- paste(res1, a[i], sep=\"\") } return(res1) } \u2026","width":"100%","published":"2012-05-30 18:57:31","author_url":"https://blog.hatena.ne.jp/MikuHatsune/","author_name":"MikuHatsune","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20120530%2F1338717451\" title=\"5/30\u3000MIKU\u30bb\u30df\u30ca\u30fc - \u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"title":"5/30\u3000MIKU\u30bb\u30df\u30ca\u30fc","blog_title":"\u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099"}