{"width":"100%","author_url":"https://blog.hatena.ne.jp/ryamada22/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20140914%2F1410676826\" title=\"\u30ed\u30c8\u30ab=\u30f4\u30a9\u30eb\u30c6\u30e9\u306e\u5411\u304d\u306e\u5206\u96e2 - ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":"\u30ed\u30c8\u30ab=\u30f4\u30a9\u30eb\u30c6\u30e9\u306e\u5411\u304d\u306e\u5206\u96e2","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","height":"190","description":"my.Moving.Frame.2 <- function(X,k=length(X[1,])){ n <- length(X[,1]) # No. points d <- length(X[1,]) # Dimension # inter-point distance L <- rep(0,n-1) for(i in 1:(n-1)){ L[i] <- sqrt(sum((X[i,]-X[i+1,])^2)) } diff.X <- list() #diff.X[[1]] <- X diff.X[[1]] <- apply(X,2,diff) diff.L <- list() diff.L[\u2026","published":"2014-09-14 15:40:26","author_name":"ryamada22","blog_url":"https://ryamada22.hatenablog.jp/","type":"rich","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20140914/20140914154010.jpg","version":"1.0","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","url":"https://ryamada22.hatenablog.jp/entry/20140914/1410676826","categories":["R","deSolve","\u30ed\u30c8\u30ab=\u30f4\u30a9\u30eb\u30c6\u30e9","\u66f2\u7dda","\u66f2\u7387"]}