CINXE.COM

<!DOCTYPE html><html lang="en-US"><head><title>Just a moment...</title><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta http-equiv="X-UA-Compatible" content="IE=Edge"><meta name="robots" content="noindex,nofollow"><meta name="viewport" content="width=device-width,initial-scale=1"><style>*{box-sizing:border-box;margin:0;padding:0}html{line-height:1.15;-webkit-text-size-adjust:100%;color:#313131;font-family:system-ui,-apple-system,BlinkMacSystemFont,Segoe UI,Roboto,Helvetica Neue,Arial,Noto Sans,sans-serif,Apple Color Emoji,Segoe UI Emoji,Segoe UI Symbol,Noto Color Emoji}body{display:flex;flex-direction:column;height:100vh;min-height:100vh}.main-content{margin:8rem auto;max-width:60rem;padding-left:1.5rem}@media (width <= 720px){.main-content{margin-top:4rem}}.h2{font-size:1.5rem;font-weight:500;line-height:2.25rem}@media (width <= 720px){.h2{font-size:1.25rem;line-height:1.5rem}}#challenge-error-text{background-image:url(data:image/svg+xml;base64,PHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIHdpZHRoPSIzMiIgaGVpZ2h0PSIzMiIgZmlsbD0ibm9uZSI+PHBhdGggZmlsbD0iI0IyMEYwMyIgZD0iTTE2IDNhMTMgMTMgMCAxIDAgMTMgMTNBMTMuMDE1IDEzLjAxNSAwIDAgMCAxNiAzbTAgMjRhMTEgMTEgMCAxIDEgMTEtMTEgMTEuMDEgMTEuMDEgMCAwIDEtMTEgMTEiLz48cGF0aCBmaWxsPSIjQjIwRjAzIiBkPSJNMTcuMDM4IDE4LjYxNUgxNC44N0wxNC41NjMgOS41aDIuNzgzem0tMS4wODQgMS40MjdxLjY2IDAgMS4wNTcuMzg4LjQwNy4zODkuNDA3Ljk5NCAwIC41OTYtLjQwNy45ODQtLjM5Ny4zOS0xLjA1Ny4zODktLjY1IDAtMS4wNTYtLjM4OS0uMzk4LS4zODktLjM5OC0uOTg0IDAtLjU5Ny4zOTgtLjk4NS40MDYtLjM5NyAxLjA1Ni0uMzk3Ii8+PC9zdmc+);background-repeat:no-repeat;background-size:contain;padding-left:34px}@media (prefers-color-scheme:dark){body{background-color:#222;color:#d9d9d9}}</style><meta http-equiv="refresh" content="120"></head><body class="no-js"><div class="main-wrapper" role="main"><div class="main-content"><noscript><div class="h2"><span id="challenge-error-text">Enable JavaScript and cookies to continue</span></div></noscript></div></div><script>(function(){window._cf_chl_opt={cvId: '3',cZone: "publications.waset.org",cType: 'non-interactive',cRay: '9150b9e17b465f54',cH: 'Zqi.9au8IajEgnSitc86d9qdKYrIkWldn.SHU2q4WpI-1740077885-1.2.1.1-MRnjQ7ioTmnRhZAgibofYGByIFYCc7GK2I2PUbcNOU8ds25X5pwdUUz7epebqsLP',cUPMDTk: "\/abstracts\/search?q=R%20function&__cf_chl_tk=nzXwWnh01ru11Klmj6mYpm4upR_54N5GHJd1lbQ3E_A-1740077885-1.0.1.1-CsW.bK6r81gIl_pc2HZ0V5RhOCDe_XY0g9EHH_.tHw4",cFPWv: 'b',cITimeS: '1740077885',cTTimeMs: '1000',cMTimeMs: '120000',cTplC: 0,cTplV: 5,cTplB: 'cf',cK: "unsupported-browser",fa: "\/abstracts\/search?q=R%20function&__cf_chl_f_tk=nzXwWnh01ru11Klmj6mYpm4upR_54N5GHJd1lbQ3E_A-1740077885-1.0.1.1-CsW.bK6r81gIl_pc2HZ0V5RhOCDe_XY0g9EHH_.tHw4",md: "q.ghlYDc7.vCrglKZQOo0p2voU1unfPDyf4h6rSrkgc-1740077885-1.2.1.1-IbE3dwjGawof1UcbSJimff4bvzLGe6gWnxEhei5IAuynV7i4fMBuZP4BXO11cFtWZM.0c47tN1bgxEOWPu.MucyMyW.DGGc2EDr7YKnTVnrk02AiAttEgWtN5Pwf9wIbtZvk5mEq2.ZnWqOuR3_g8m5uopOPLnr.7y_NcHDiqrrJZCNvD0olDizcVU0sTOsXnJlytnzzKqyd1qe3Hirl4SSzflFhLQTQkBJK.WXFmzwIn365tLms8KGpPoNo066xRsKP5P9rUU621krkOlSKXmUFlookmgRVqttAdUiVfjVrh3M1xtGb8rcw.JBlhgs7xzenlcWawtPCm2u_nzKPM8a1x5G3dyhg5GpFveD69UGy03rLNlbJ69gDmoUc0hGGHiICv6eVC2.3tMuoQLkZFaKFg_Z1NDZ.ygTwo9W6CLM_AHM6Am_pDYKGUJLFprdj_iTPd8WYgDPzEJfceE.9JLNkwHK5Pw7XHtNJ6FFtcxSFxdDMac4rIc.f4LVkce3PfOcR8tovZzLZJAf5lWmf80Qq4kPSDkkxsSteNO6PdboFWAMvYRV8eFgsWKrCClOfNKxVlV74AVw1iHrSkb0_T4eVH.OiM2V8Yqy8u8qxL0JszvocePAeCQcItQbfU9Utg7batXQyaYiCTTLCIW4Wiy9sHxp_hOB7qpRDYOnI9Jzu4HbPcqMPLR822L7A7JiaS.hzYpDKl0xuJKPGawefuCxUOQtWAi1.8sLvTftxgx8Qx5K9mfpisq.6ljeZIrvNaDJYVlY5CUAlpsZv0VKCzWSSocax8nOMpgqQCxzuEXIVITZ3AnHZH0oP1YWqZJrzzZ5f7R6UuzqNOlcpGR6EDsE3MVlG634nP1UsdetZdaJrxlKSulTn55aABkYb4JjQUiWaiOJ2dnOZrDePsZv.OKjLPd.YnNHgXpx2NZMa7ISU8BvW09XPBpflalWuOaO_4_LfPho4wTczC8dPe8B2wrzogU5IL8Nlw.42cpHFHPpHpxMCYKpp7HYUmfyDy7tSOQ212FEqSVHmwg1sG1ERp6_.ijaTZulo9ON_TjYlTNGS_rRSmjvDaLhydgefcx9EF2Bk8cNeokjepAmw._Yk6Cxpxm1XO0_uwJ_DfaGhQeTuoGiEUILUpANyMgzcrWrmjMlBHmhCdZy8f_90PA8OnJ51phZys2oMI5HaN7TUctK1F4Q7ZJk7ZQwVbNYbfJhn86vjaUlRjU0M7Dz0eoZPRS1J1tVIvhaYAZNaO3JypIys.rfT5YTmMBVM75twm3IUDmSKwPjxPeS6XP29EitcfeuR5PhxF2b7ECmahIZO9xBzLeVScpTv7HzJn_kZ9rB0ekyF7SA.Ct3NU3sYV0DwGRMwJXAxu6mdYfja8Sh5BjKEgmnOsQ9NTbMi.dIs0HIx2hlCfxdqdqjEuLxFgcaBK0QAM5_LFTIGZQ2ed2QcQEsDb.7qAMQ.LCVkJO2KKkz3eq4CMXo3hfRMZKfr7MMGEObTtvifbSuE8NR.XKPMHeDyjkpBxIA5CBLEyiIL2Ir59QufqStFa2ia9zflAL7bPnLIp4uxUurg_bbN5TfkTRkHJveWLPQ1U85G2SqJp8p1yHWtu_oB7plwC8MyAu_w4Kx79LSTOxzQfUN2cjK3Iyurc20z48X5BdzKNLgjv1Hy9urrEaU4.6M2tdHl5fv6bFY1p8sjPeqck_5qqwLZUsjRsSrvSHizk4ghIdHmNm4HBP7Lw_oDtHNPuRUYVBewYBxEL9AUiVOBBKEs3K6H__OyD6fRzL2H.t1TXxga9EziEO8G6oefNOPN9ScG_anTWLgiJeQ9YgpVXQRufOyR326nfZ6HI_QXkH2VmEbiQV4OEDQ2BD.khsgKFu0avM.eHAclQ8V76SDG7Tu1fQx0INWM5EBLrrGDlJjFx6VHopmXQw3G3yM0T58stiSvOV0yZg",mdrd: "DZY7y9iYsnmZwjGmGhkT3K_Moabkb2kPjgmRh7yv0V0-1740077885-1.2.1.1-TzTf0qgM5RejDPkkwezYeSA5mwEao3g6GOctHBSNdkCzeYchgsmnaKgfSUXjwM_jx2sN6b8NtNKNAEoJ2vFMJrNNIa0WopU2F0uiIMRt8fYRAuNrAjuxinXHquOmZmPTzWaFoHyDdO4kOIhcR5WijU9CNUq1.9yJ0wBBvOsVwSS9YrfPx_0.KkqRmFjmQZn88me_wJ5XNcTHZ1TDlkRrAAh24eGpSH0nhSOJzXTqYYF8bxnRXSzN807NAw_TinyQ1Q3wmwheGjGlOhUNznUIVdKDi7kgZX0HRRwbB2_S7UN3bI0_g9PaMmYQyFizBOH_Zm7ZH2koLb1318ZAu75mPlFXr73r0KrJDepzRPDNEsLZwwvrg_opPjhAo93AsieckDXhcdW6O05lWl49IrWjEODTVQzYD9ji36dGR0skYsxkVlcV_Sq8O_842li22dCGho812JvJp4YcrW7URAFcUz.sDVh9OWnQs2F4eHEcTlWwLe9x41OVVLEDvad839rQcChCInU6IloLgbiMyethxhRNCnin2e3SkaAPx1FgbjuMdLNy3RQ1ILrguqw0Qv70wNEOZzID7Z6CtmY4TQbH40MyZCMJOQISZAC6EacNrZehQP2zm93MWpB1s15U8r1kE.4VoASuLxPVTV1CK7KKk_2HuNAh0XqiwBPxj6QTD8MfShqIGNcze.0I392tSHSJiiZF.FqaHA0c4L2rhfa2Hz4uQGP2Y6sDMwyLtzI9D1A0Ji9QG4Uqo00jhsPPi0SmRWj0S4EMZDEmWdz3TWgc0votbdcymsuw5U3xffp2z4201ia.mFiPawbaHIlLvIUCi.BpEQ_1MxsiggvJQa9Ie_jcbb..gzSqvzEVFBKChXhEmtXfQoeYeRNKNgAsQwPu8.gc8tWBfwY7FSDAeTPcz7wPP1VIqNWJLTtvFNhqdLh99FMYYrTa.dNJKxIyYXvGfFP008ZWzDLJNBar0HN_SWzFjabXRrmHWiCW43Djvm3aC20imuM6DnAfYc2X03pYOl5mn7QbWQA8xCgTh9IwbuKTOJ1GRLQzWPquqIMtgRXcDOqApHyMrtQsttehp1x0V7id8TqMO.rgkJBFORttg21pda65WO2qSAlGyeqgFYIKwvdA8FFYc4NHU4GAy46pPQ1CUZgXNXQHFNz6g5wzhlSuESPEMU5xoL.mC54s6jn637yQkzp7FHIj4ntg7xyGHzEvLruTJH6.uHMakJLjKxbVvDRg1hmuUnjXH68EUsom4bg4BewfVwdL9S74TyzJ6GbNHZMV8MsP9VbWEMEVPyGgaY4LY5kUEclFJiuWVzZUyRGnD2GmYqgNNwGi56DO1ffmiEvMGfwVhyt2egepzStrAbEjhND6irC3pKJ8DFJK3GtYXjuLt3AiYVtvwiNGFrqJCmvJq1MKs0JqsypMJIof2XOi06A8C66Q1X7U2Jx9murOtFEJ.710iBceaOQgbbT7lQ1ll9biICBUpkDNYZ2MQJYQgOduR8x6TFvIalDN41olEGQINzf58OQ6FxF3qBc1JfDWUpolWLv46qJfuNjkNkMC54Yx.tnargTJwNzWbd.DrQk3_tr6CUNUS56uU8IYJGrt8gygqqfUfVJHQlC6eUemRmurGh_r9VXhWgJ5H0LhOs4m3XXjDf5l8U6bOSCCo4tcS2MuakkmF8QrtLG32jKV5qEQC6ccg4v67cSPFtIs8Rc7rj4ZVBe6fOeSjfagGR.v0pCPZa.Nzxmq8EAYeq0WE0ym.hpyrgqC_x.BGZ_cCXxsgm3pTxbOojQf7mlqApobDZyicodgXvqnX5XTPKle7k8kRNytuS7gyaGhjzGLj.Ea2wHVBwtNyPku0Lt3L1DMeHcUtUnzLjdm3YCK5NgrzhWg2.uJxIzVOuN3MQrDoZ37XJV.FaqFqPTEzdqBZGWRGhSYqDW7ze_bWLSTd3pJXaxXbCfBYwlUEnt73MQAE6CqEV8ay2wpAtZ_"};var cpo = document.createElement('script');cpo.src = '/cdn-cgi/challenge-platform/h/b/orchestrate/chl_page/v1?ray=9150b9e17b465f54';window._cf_chl_opt.cOgUHash = location.hash === '' && location.href.indexOf('#') !== -1 ? '#' : location.hash;window._cf_chl_opt.cOgUQuery = location.search === '' && location.href.slice(0, location.href.length - window._cf_chl_opt.cOgUHash.length).indexOf('?') !== -1 ? '?' : location.search;if (window.history && window.history.replaceState) {var ogU = location.pathname + window._cf_chl_opt.cOgUQuery + window._cf_chl_opt.cOgUHash;history.replaceState(null, null, "\/abstracts\/search?q=R%20function&__cf_chl_rt_tk=nzXwWnh01ru11Klmj6mYpm4upR_54N5GHJd1lbQ3E_A-1740077885-1.0.1.1-CsW.bK6r81gIl_pc2HZ0V5RhOCDe_XY0g9EHH_.tHw4" + window._cf_chl_opt.cOgUHash);cpo.onload = function() {history.replaceState(null, null, ogU);}}document.getElementsByTagName('head')[0].appendChild(cpo);}());</script></body></html>