我有两个矢量e和g.我想知道每个元素中元素e的百分比g是否较小.在R中实现这一点的一种方法是:
set.seed(21)
e <- rnorm(1e4)
g <- rnorm(1e4)
mf <- function(p,v) {100*length(which(v<=p))/length(v)}
mf.out <- sapply(X=e, FUN=mf, v=g)
使用大型e或者g,这需要花费大量时间来运行.如何更改或修改此代码以使其运行更快？
注意:mf上面的函数基于messdismo包中函数的代码.
在 R 中，include_url()knitr 包中的函数允许设置嵌入式 iframe 的高度，但不能设置其宽度。
knitr::include_url("https://www.youtube.com/embed/9bZkp7q19f0", height="315")
以上将嵌入高度 = 315 和宽度 = 672 的 youtube。有没有办法自己设置宽度？