# [R] Help to make a function

Ronaldo Reis Jr. chrysopa at insecta.ufv.br
Tue Jan 28 23:47:06 CET 2003

Hi all,

I have a simple code to produce some populations graphics.

10: DIM X(71)
20: INPUT "r=";R
30: INPUT "k=";K
40: INPUT "P(0)=";P(0)
50: FOR T=0 TO 69
60: P(T+1) = P(T) + R*P(T) * (1-P(T)/K)
70: NEXT T
80: GRAPH
90: COLOR 0
100: LINE (0,0)-(0,220)
110: LINE (0,0)-(220,0)
120: LINE (0,K)-(220,K)
130: COLOR 3
140: FOR T= 0 TO 69
150: LINE (3*T,P(T)-(3*(T+1)),P(T+1))
160: NEXT T
170: COLOR 0
180: END

where P = Y, T = X, R and K are constants.

how to make a similar function in R to make this graphic?

Thanks
Ronaldo
--
College:
The fountains of knowledge, where everyone goes to drink.
--
|   //|\\   [*****************************][*******************]
|| ( õ õ )  [Ronaldo Reis Júnior          ][PentiumIII-600     ]
|     V     [ESALQ/USP-Entomologia, CP-09 ][HD: 30 + 10 Gb     ]
||  / l \   [13418-900 Piracicaba - SP    ][RAM: 128 Mb        ]
|  /(lin)\  [Fone: 19-429-4199 r.229      ][Video: SiS620-8Mb  ]
||/(linux)\ [chrysopa at insecta.ufv.br      ][Modem: Pctel-onboar]
|/ (linux) \[ICQ#: 5692561                ][Kernel: 2.4.18     ]
||  ( x )   [*****************************][*******************]