绘制包含序列/列表的函数。

I have a simple function A

我有一个简单的函数a

A<-function(s){
  c0=360
  c1=60
  c2=30
  k=10
(8/60)*(c0+(sum(k*(c1+c2*(1:(s-1))))))
}
A<-fu