install.packages("yourpackage")
update.packages()
rm(list = ls())
parasite<- function(r,k,a,b,N10,p20,generations)
{N<-c(N10,numeric(generations-1))
p<-c(p20,numeric(generations-1))
for (t in 1:(generations-1))
{N[t+1]<- {N[t]*exp(r*(1-N[t]/k)-a*p[t])}
p[t+1]<- {b*N[t]*(1-exp(-a*p[t]))}}
result=(c(N,p))
return(result)}
Output<- parasite(r=1,k=10000,a=0.73,b=0.5,N10=100，p20=10,generations=100)
# Output<- dlogistic(k=5000,r=2.5,N0=20,generations=30)
generations<- 100
Output
par(mfrow=c(2,1))
plot(0:(generations-1),head(Output,generations),type="o",xlab = "time",ylab="N density",main = "N")
plot(0:(generations-1),tail(Output,generations),type="o",xlab = "p",ylab="p density",main = "p")
#plot(head(Output,generations),tail(Output,generations),type="o",xlab = "N",ylab="p",main = "p")
> install.packages("yourpackage") Warning in install.packages : package ‘yourpackage’ is not available for this version of R A version of this package for your version of R might be available elsewhere, see the ideas at https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages > update.packages() boot : Version 1.3-26 installed in /Library/Frameworks/R.framework/Versions/4.0/Resources/library Version 1.3-27 available at https://cran.rstudio.com Update? (Yes/no/cancel) rm(list = ls()) Error in askYesNo("Update?") : Unrecognized response “rm(list = ls())” > parasite<- function(r,k,a,b,N10,p20,generations) + {N<-c(N10,numeric(generations-1)) + p<-c(p20,numeric(generations-1)) + for (t in 1:(generations-1)) + {N[t+1]<- {N[t]*exp(r*(1-N[t]/k)-a*p[t])} + p[t+1]<- {b*N[t]*(1-exp(-a*p[t]))}} + result=(c(N,p)) + return(result)} > Output<- parasite(r=1,k=10000,a=0.73,b=0.5,N10=100，p20=10,generations=100) 错误: unexpected input in "Output<- parasite(r=1,k=10000,a=0.73,b=0.5,N10=100，" > # output<- dlogistic(k=5000,r=2.5,N0=20,generations=30) > generations<- 100 > Output 错误: 找不到对象'Output' > > par(mfrow=c(2,1)) > plot(0:(generations-1),head(Output,generations),type="o",xlab = "time",ylab="N density",main = "N") Error in head(Output, generations) : 找不到对象'Output' > > plot(0:(generations-1),tail(Output,generations),type="o",xlab = "p",ylab="p density",main = "p") Error in tail(Output, generations) : 找不到对象'Output' > > #plot(head(Output,generations),tail(Output,generations),type="o",xlab = "N",ylab="p",main = "p")
>package ‘yourpackage’ is not available for this version of R A version of this package for your version of R might be available elsewhere
R 语言应该没有一个包叫做 ‘yourpackage’ 吧，这个一般是示例代码，需要替换成你自己要装的包吧？