apply

    0

    2答えて

    私のプロジェクトでSassスクリプトを "コンパイル"するためにAntタスクを作成しようとしましたが、 "このようなファイルやディレクトリはありません"エラー。私はそれがビルドパスのスペースによって引き起こされたと思ったので、プロジェクトを移動するだけで、Antがパスを返すときにファイルセットのルートディレクトリを省略しているように見えます。 ...私はエコーSASSから実行可能ファイルを切り替え

    11

    3答えて

    値のリストがあれば、すべての要素がNILでなければTに、NILでないならNILにリストを減らしたいと思います。この場合と同様に (apply #'and (get-some-list)) :これは私にエラーを与える [11]> (defun my-and (x y) (and x y)) MY-AND [12]> (reduce #'my-and '(T T T T T)) T [

    0

    1答えて

    コアのjQueryイベントを上書きしようとしています。この場合は​​イベントです。私の意図は、preventDefault()の機能Left(37)、Up(38)、Right(39)とDown(40)です。私のウェブアプリケーションでホットキーの一貫性を維持します。 条件付きcharCode preventDefaultの問題については、hereのソリューションを使用しています。 何らかの理由で、

    85

    6答えて

    行列が2であり、その引数の1つとして2ベクトルをとる関数があるとします。行列の各行に関数を適用し、nベクトルを取得したいと思います。どのようにRでこれを行うには?例えば 、私は3点で2D標準正規分布の密度を計算したい: bivariate.density(x = c(0, 0), mu = c(0, 0), sigma = c(1, 1), rho = 0){ exp(-1/(2*(1-

    6

    2答えて

    可変数のパラメータを受け入れるJavascript関数を作成し、それらのパラメータのすべてを他の匿名関数に転送するにはどうすればよいですか?例えば 、イベントを発生する方法のシナリオを考えてみます。 function fireStartedEvent(a,b,c,d,e,f,g,...) { for(var i = 0; i < startedListeners.length; i++)

    3

    1答えて

    これは実際にapply.weeklyについて学んだ私のquestionの延長です。これはうまくいきますが、幅広いzooオブジェクトでこれを実行したいと思います。私は広いzooにapply.weeklyを使用する場合には、列を合計し、その後、毎週集計実行: > library(xts) > set.seed(2001) > zoo.daily <- zoo(data.frame(a=rnorm(

    1

    3答えて

    私はこの問題の解決策をオンラインで見つけることができませんでした。ここ はそれがあります:一般的に言えば #Construct test dataframe tf <- data.frame(1:3,4:6,c("A","A","A")) #Try the apply function I'm trying to use test <- apply(tf,2,function(x) if(

    6

    2答えて

    データセットmtcars(ベースRバージョン2.12.1の一部)に関する要約統計量を取得したいとします。 以下では、エンジンシリンダの数に応じて車をグループ化し、残りの変数のグループ単位の平均値をmtcarsにします。 > str(mtcars) 'data.frame': 32 obs. of 11 variables: $ mpg : num 21 21 22.8 21.4 18.7 18

    0

    1答えて

    遺伝的パッケージのLD()関数を使用して連鎖不平衡計算を実行しようとしています。 g1=genotype(a) g2=genotype(b) LD(g1,g2) とbが、私は4列のデータフレームと多数の行を持っていると私は」という は、与えられた文字で、次のように知らない人のために、それが書かれています2つの列のLDを見つけようとしています。上の例のdf $ col3とdf $ col4が

    4

    3答えて

    Rの関数に引数を部分的にバインド/適用するにはどうすればよいですか? ... bind <- function(fun,...) { argNames <- names(formals(fun)) bindedArgs <- list(...) bindedNames <- names(bindedArgs) function(argNames[!argN