Fatal编程技术网
  • r/
  • 理解并修改以前的R代码

理解并修改以前的R代码

r

理解并修改以前的R代码,r,R,我是R环境的新手，希望读者理解另一个线程中发布的代码 1>库（pracma） 2>xs ys pchipfun f集成（f，0，pi） 我的问题如下: 第5行正在调用第4行中的函数，但这并没有传递x值。那么第4行是如何取x值的呢 在上面的设置中，我想修改，如果x在pi/6和pi/4之间，函数应该返回0，否则返回计算值 提前感谢。对于问题1，您可以阅读有关咖喱的内容： 对于问题2，也许您可以先粘贴您尝试过的内容。函数pchipfun（）返回一个函数（定义）。调用构造函数f时需要x值。函数in

我是R环境的新手，希望读者理解另一个线程中发布的代码

1>库（pracma）
2>xs ys pchipfun f集成（f，0，pi）
我的问题如下:

  • 第5行正在调用第4行中的函数，但这并没有传递x值。那么第4行是如何取x值的呢

  • 在上面的设置中，我想修改，如果x在pi/6和pi/4之间，函数应该返回0，否则返回计算值

    • 提前感谢。

    对于问题1，您可以阅读有关咖喱的内容：

    对于问题2，也许您可以先粘贴您尝试过的内容。

    函数
    pchipfun（）
    返回一个函数（定义）。调用构造函数
    f
    时需要x值。函数
    integrate
    在内部调用
    f（x）
    。（1）我理解，integrate函数调用f（x），但在第5行中没有x。（2）如何修改代码？
    pchipfun实际上，我使用它作为参考代码，但我对集成不感兴趣。我想绘制cuve，但它仍然给我错误：在if（x<100）return（0）中：条件的长度>1，并且只使用第一个元素

    1 > library(pracma)
2 > xs <- linspace(0, pi, 10)
3 > ys <- sin(xs)
4 > pchipfun <- function(xi, yi) function(x) pchip(xi, yi, x)
5 > f <- pchipfun(xs, ys)
6 > integrate(f, 0, pi)