当前位置：文档库 › lastsave

lastsave

R version 3.0.2 (2013-09-25) -- "Frisbee Sailing"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R是自由软件，不带任何担保。
在某些条件下你可以将其自由散布。
用'license()'或'licence()'来看散布的详细条件。

R是个合作计划，有许多人为之做出了贡献.
用'contributors()'来看合作者的详细情况
用'citation()'会告诉你如何在出版物中正确地引用R或R程序包。

用'demo()'来看一些示范程序，用'help()'来阅读在线帮助文件，或
用'help.start()'通过HTML浏览器来看帮助文件。
用'q()'退出R.

> abc=read.csv("C:\Users\thinkpad\Desktop\abc.csv",na.strings="NA",header=TRUE, sep=",")
错误: 由""C:\U"开头的字符串中有'\U'，它必需同hex数字一起来用
> abc=read.csv("C:\Desktop\abc.csv",na.strings="NA",header=TRUE, sep=",")
错误: 由""C:\D"开头的字符串中存在'\D'，但没有这种逸出号
> abc=read.csv("c:\desktop\abc.csv",na.strings="NA",header=TRUE, sep=",")
错误: 由""c:\d"开头的字符串中存在'\d'，但没有这种逸出号
> abc=read.csv("c:/desktop\abc.csv",na.strings="NA",header=TRUE, sep=",")
错误于file(file, "rt") : 无法打开链结
此外: 警告信息：
In file(file, "rt") : 无法打开文件'c:/desktopbc.csv': Invalid argument
> abc=read.csv("C:/Users/thinkpad/Desktop/abc.csv",na.strings="NA",header=TRUE, sep=",")
> abc
P1 P2 P3 P4 P5 P6 P7 P8
1 5.0 3.5 4.9 5.5 4.5 6.4 5.3 4.5
2 4.9 4.0 6.9 5.5 5.5 4.5 4.1 4.2
3 5.5 4.8 6.5 4.7 5.7 5.4 4.3 5.0
4 4.7 5.0 4.7 5.0 5.4 5.0 5.0 6.8
5 6.0 6.0 4.4 4.3 5.0 6.0 5.5 5.0
6 5.2 4.0 4.5 5.0 5.4 5.8 4.9 4.5
7 4.0 4.1 6.0 6.0 5.5 6.0 5.5 4.8
8 4.8 4.4 4.7 5.8 4.5 5.5 5.2 4.0
9 3.4 5.9 6.4 5.5 5.3 5.5 6.4 7.0
10 5.2 4.6 5.9 6.9 7.0 4.5 3.7 5.0
11 7.0 5.1 6.2 5.3 4.2 5.8 4.5 4.4
12 4.9 5.9 3.5 5.3 4.5 5.0 4.3 5.4
> x1 <- c(1,2,3,4,5,6,7,8)
> y1 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3)
+ x1 <- c(1,2,3,4,5,6,7,8)
错误: 意外的符号 in:
"y1 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3)
x1"
> x1 <- c(1,2,3,4,5,6,7,8)
> x1
[1] 1 2 3 4 5 6 7 8
> y1 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),mean(abc$P4),mean(abc$P5),mean(abc$P6)mean(abc$P7),mean(abc$P8))
错误: 意外的符号 in "y1 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),mean(abc$P4),mean(abc$P5),mean(abc$P6)mean"
> y1 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),mean(abc$P4),mean(abc$P5),mean(abc$P6),mean(abc$P7),mean(abc$P8))
> y1
[1] 5.050000 4.775000 5.383333 5.400000 5.208333 5.450000 4.891667 5.050000
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$B),mean (abc$C)+0.5*sd(abc$C))
警告信息：
In mean.default(abc$C) : 参数不是数值也不是逻辑值：回覆NA
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2))+0.5*sd(abc$P2),mean(abc$P3))+0.5*sd(abc$P3),mean(abc$P4))+0.5*sd(abc$P4),mean(abc$P5))+0.5*sd(abc$P5),mean(abc$P6))+0.5*sd(abc$P6),mean(a

bc$P7))+0.5*sd(abc$P7),mean(abc$P8))+0.5*sd(abc$P8))
错误: 意外的',' in "upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2))+0.5*sd(abc$P2),"
> x1=c(p1,p2,p3,p4,p4,p5,p6,p7,p8)
错误: 找不到对象'p1'
> x1=c(P1,P2,P3,P4,P5,P6,P7,P8)
错误: 找不到对象'P1'
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4))+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6))+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8))+0.5*sd(abc$P8))
错误: 意外的',' in "upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4))+0.5*sd(abc$P4),"
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6))+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8))+0.5*sd(abc$P8))
错误: 意外的',' in "upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6))+0.5*sd(abc$P6),"
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8))+0.5*sd(abc$P8))
错误: 意外的')' in "upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+"
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8))+0.5*sd(abc$P8))
错误: 意外的')' in "upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+"
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8)+0.5*sd(abc$P8))
> lower1<- c(mean(abc$P1)-0.5*sd(abc$P1),mean(abc$P2)-0.5*sd(abc$P2),mean(abc$P3)-0.5*sd(abc$P3),mean(abc$P4)-0.5*sd(abc$P4),mean(abc$P5)-0.5*sd(abc$P5),mean(abc$P6)-0.5*sd(abc$P6),mean(abc$P7)-0.5*sd(abc$P7),mean(abc$P8)-0.5*sd(abc$P8))
>
> x2 <- c(1,2,3,4,5,6,7,8)
> y2 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),mean(abc$P4),mean(abc$P5),mean(abc$P6),mean(abc$P7),mean(abc$P8))
> y2 <- c(mean(abc$p1),mean(abc$p2),mean(abc$p3),mean(abc$p4),mean(abc$p5),mean(abc$p6),mean(abc$p7),mean(abc$p8))
警告信息：
1: In mean.default(abc$p1) : 参数不是数值也不是逻辑值：回覆NA
2: In mean.default(abc$p2) : 参数不是数值也不是逻辑值：回覆NA
3: In mean.default(abc$p3) : 参数不是数

值也不是逻辑值：回覆NA
4: In mean.default(abc$p4) : 参数不是数值也不是逻辑值：回覆NA
5: In mean.default(abc$p5) : 参数不是数值也不是逻辑值：回覆NA
6: In mean.default(abc$p6) : 参数不是数值也不是逻辑值：回覆NA
7: In mean.default(abc$p7) : 参数不是数值也不是逻辑值：回覆NA
8: In mean.default(abc$p8) : 参数不是数值也不是逻辑值：回覆NA
> y2 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),mean(abc$P4),mean(abc$P5),mean(abc$P6),mean(abc$P7),mean(abc$P8))
> x1=c(P1,P2,P3,P4,P5,P6,P7,P8) upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8)+0.5*sd(abc$P8))
错误: 意外的符号 in "x1=c(P1,P2,P3,P4,P5,P6,P7,P8) upper1"
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8)+0.5*sd(abc$P8))
> upper2<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8)+0.5*sd(abc$P8))
> lower1<- c(mean(abc$P1)-0.5*sd(abc$P1),mean(abc$P2)-0.5*sd(abc$P2),mean(abc$P3)-0.5*sd(abc$P3),mean(abc$P4)-0.5*sd(abc$P4),mean(abc$P5)-0.5*sd(abc$P5),mean(abc$P6)-0.5*sd(abc$P6),mean(abc$P7)-0.5*sd(abc$P7),mean(abc$P8)-0.5*sd(abc$P8))
> lower2<- c(mean(abc$P1)-0.5*sd(abc$P1),mean(abc$P2)-0.5*sd(abc$P2),mean(abc$P3)-0.5*sd(abc$P3),mean(abc$P4)-0.5*sd(abc$P4),mean(abc$P5)-0.5*sd(abc$P5),mean(abc$P6)-0.5*sd(abc$P6),mean(abc$P7)-0.5*sd(abc$P7),mean(abc$P8)-0.5*sd(abc$P8))
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 2)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 6)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
> plot(c(x1,x2),c(y1,y2),ylim = range(c(4, 6)),xlab="处理组合",ylab="苗高",xlim=c (1,8))
> arrows(x1, upper1, x1, lower1, length =.05, angle = 90, code = 8,pch=19)
错误于arrows(x1, upper1, x1, lower1, length = 0.05, angle = 90, code = 8, :
plot.new has not been called yet
> ？arrow
>
> ?arrow
No documentation for ‘arrow’ in specified packages and libraries:
you could try ‘??arrow’
> ??arrow
starting httpd help server ... done
> utils:::menuInstallPkgs()
--- 在此連線階段时请选用CRAN的鏡子 ---
错误于contrib.url(repos, type) : 试试在不设定镜像的情况下用CRAN
> arrows(x1, upper1, x1, lower1, length =.05, angle = 90, code = 8,pch=19)
错误于arrows(x1, upper1, x1, lower1, length = 0.05, angle = 90, code = 8, :
plot.new has not been called yet
> arrows(x1, upper1, x1, lower1, length =0.5, angle = 90, code = 8,pch=24)
错误于arrows(x1, upper1, x1, lower1, length = 0.5, angle = 90, code

= 8, :
plot.new has not been called yet
> local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
> ？？arrow
此外: 警告信息：
In file(out, "wt") :
无法打开文件'C:\Users\thinkpad\AppData\Local\Temp\RtmpuIlW15\Rhttpdad6c26d7b05': No such file or directory
> ??arrow
> local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
警告信息：
In file(out, "wt") :
无法打开文件'C:\Users\thinkpad\AppData\Local\Temp\RtmpuIlW15\Rhttpdad6c1bb45d61': No such file or directory
> local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
> setRepositories()
> update.packages(ask='graphics',checkBuilt=TRUE)
--- 在此連線階段时请选用CRAN的鏡子 ---
错误于contrib.url(repos, type) : 试试在不设定镜像的情况下用CRAN
> utils:::menuShowCRAN()
> arrows(x1, upper1, x1, lower1, length =0.5, angle = 90, code = 3,pch=24)
错误于arrows(x1, upper1, x1, lower1, length = 0.5, angle = 90, code = 3, :
plot.new has not been called yet
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 2)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
警告信息：
1: unable to open printer
2: opening device failed
> plot(c(x1,x2),c(y1,y2),ylim = range(c(4, 6)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
> arrows(x1, upper1, x1, lower1, length =0.5, angle = 90, code = 3,pch=24)
> lines(1:8,y1,pch=24,lty=1,type="b",cex=2)
> x1=P1,P2,P3,P4,P5,P6,P7,P8
错误: 意外的',' in "x1=P1,"
> x1=C(P1,P2,P3,P4,P5,P6,P7,P8)
错误于levels(x) : 找不到对象'P1'
> x1=c(P1,P8)
错误: 找不到对象'P1'
> x1=P1,P2,P3,P4,P5,P6,P7,P8
错误: 意外的',' in "x1=P1,"
> x1=(P1,P2,P3,P4,P5,P6,P7,P8)
错误: 意外的',' in "x1=(P1,"
> x1=(P1：P8)
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 2)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
> abc=read.csv("C:/Users/thinkpad/Desktop/abc.csv",na.strings="NA",header=TRUE, sep=",")
> x1=(P1：P8)
> x1=(P1:P8)
错误: 找不到对象'P1'
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 2)),xlab="处理组合",ylab="abcm苗高",xlim=c (p1,p8))
错误于plot.default(c(x1, x2), c(y1, y2), ylim = range(c(0, 2)), xlab = "处理组合", :
找不到对象'p1'
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 2)),xlab="处理组合",ylab="abcm苗高",xlim=p1:p8)
错误于plot.default(c(x1, x2), c(y1, y2), ylim = range(c(0, 2)), xlab = "处理组合", :
找不到对象'p1'
> barplot(c(x1,x2),c(y1,y2),ylim = range(c(0, 2)),xlab="处理组合",ylab="abcm苗高",xlim=p1:p8)
错误于barplot.default(c(x1, x2), c(y1, y2), ylim = range(c(0, 2)), :
找不到对象'p1'
> abc=read.csv("C:/Users/thinkpad/Desktop/abc.csv",na.strings="NA",header=TRUE, sep=",")
> x1 <- c(1,2,3,4,5,6,7,8)
> y1 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),

mean(abc$P4),mean(abc$P5),mean(abc$P6),mean(abc$P7),mean(abc$P8))
> upper1<- c(mean(abc$P1)+0.5*sd(abc$P1),mean(abc$P2)+0.5*sd(abc$P2),mean(abc$P3)+0.5*sd(abc$P3),mean(abc$P4)+0.5*sd(abc$P4),mean(abc$P5)+0.5*sd(abc$P5),mean(abc$P6)+0.5*sd(abc$P6),mean(abc$P7)+0.5*sd(abc$P7),mean(abc$P8)+0.5*sd(abc$P8))
> > lower1<- c(mean(abc$P1)-0.5*sd(abc$P1),mean(abc$P2)-0.5*sd(abc$P2),mean(abc$P3)-0.5*sd(abc$P3),mean(abc$P4)-0.5*sd(abc$P4),mean(abc$P5)-0.5*sd(abc$P5),mean(abc$P6)-0.5*sd(abc$P6),mean(abc$P7)-0.5*sd(abc$P7),mean(abc$P8)-0.5*sd(abc$P8))
错误: 意外的'>' in ">"
> lower1<- c(mean(abc$P1)-0.5*sd(abc$P1),mean(abc$P2)-0.5*sd(abc$P2),mean(abc$P3)-0.5*sd(abc$P3),mean(abc$P4)-0.5*sd(abc$P4),mean(abc$P5)-0.5*sd(abc$P5),mean(abc$P6)-0.5*sd(abc$P6),mean(abc$P7)-0.5*sd(abc$P7),mean(abc$P8)-0.5*sd(abc$P8))
> x2 <- c(1,2,3,4,5,6,7,8)
> y2 <- c(mean(abc$P1),mean(abc$P2),mean(abc$P3),mean(abc$P4),mean(abc$P5),mean(abc$P6),mean(abc$P7),mean(abc$P8))
> plot(c(x1,x2),c(y1,y2),ylim = range(c(0, 6)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
> arrows(x1, upper1, x1, lower1, length =.05, angle = 90, code = 8,pch=19)
错误于arrows(x1, upper1, x1, lower1, length = 0.05, angle = 90, code = 8, :
invalid arrow head specification
> arrows(x1, upper1, x1, lower1, length =.05, angle = 90, code = 3,pch=19)
> barplot(c(x1,x2),c(y1,y2),ylim = range(c(0, 6)),xlab="处理组合",ylab="abcm苗高",xlim=c (1,8))
> q()
>