Nothing
#-----------------------------------------------------------------------
# Copyright (C) 2012-2017 Serge Iovleff, University Lille 1, Inria
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of the
# License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public
# License along with this program; if not, write to the
# Free Software Foundation, Inc.,
# 59 Temple Place,
# Suite 330,
# Boston, MA 02111-1307
# USA
#
# Contact : S..._Dot_I..._At_stkpp_Dot_org (see copyright for ...)
#
#-----------------------------------------------------------------------
# test wrap method (mostly of myself, could be enhanced...)
#
# This file cannot be set in the tests directory:
#
# Error in compileCode(f, code, language = language, verbose = verbose) :
# Compilation ERROR, function(s)/method(s) not created! Error in file(filename, "r", encoding = encoding) :
# cannot open the connection
# Calls: local ... eval.parent -> eval -> eval -> eval -> eval -> source -> file
# In addition: Warning message:
# In file(filename, "r", encoding = encoding) :
# cannot open file 'startup.Rs': No such file or directory
# Execution halted
# Calls: cxxfunction -> compileCode
# Execution halted
#
if (require("inline"))
{
body <- '
RMatrix<double> m_rtab(tab1);
RVector<double> v_rtab(tab2);
ArrayXX m_stk = m_rtab;
VectorX v_stk = v_rtab;
PointX p_stk = v_rtab;
ArrayDiagonalX d_stk = v_rtab;
ArraySquareX m_stk2 = m_rtab;
ArrayLowerTriangularXX l_stk = m_rtab.lowerTriangularize();
ArrayUpperTriangularXX u_stk = m_rtab.upperTriangularize();
// return wrap
List ret;
ret("RMatrix") = STK::wrap(m_rtab);
ret("RVector") = STK::wrap(v_rtab);
ret("STKMatrix") = STK::wrap(m_stk);
ret("STKSquare") = STK::wrap(m_stk2);
ret("STKVector") = STK::wrap(v_stk);
ret("STKPoint") = STK::wrap(p_stk);
ret("STKDiagonal") = STK::wrap(d_stk);
ret("STKUpper") = STK::wrap(u_stk);
ret("STKLower") = STK::wrap(l_stk);
return ret;
'
wrap <- cxxfunction( signature(tab1 = "matrix", tab2 = "vector")
, body
, plugin = "rtkore"
, verbose = TRUE
)
tab1 <- matrix(rnorm(100), ncol=10)
tab2 <- rnorm(10)
res_wrap <- wrap( tab1, tab2)
res_wrap
}else
{
print("Install the package inline in order to launch this test")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.