#数据预处理 data <- read.csv("C:/Users/16215/Desktop/weekly 3-month Treasury bill.csv") x <- data[,2]/100 #选取数据的第二列 n <- length(x) y <- diff(x) #差分 x <- x[1:(n-1)] #做差分后去掉最后一个变量 n <- n-1 #变量个数也减少1个 x_star <- (x-mean(x))/sqrt(var(x)) #标准化 #画时序图 postscript('plot1',horizontal=T,width=6,height=6) t <- data[,1] t <- t[2:n] plot(t,y,pch=20)报错#数据预处理 data <- read.csv("C:/Users/16215/Desktop/weekly 3-month Treasury bill.csv") x <- data[,2]/100 #选取数据的第二列 n <- length(x) y <- diff(x) #差分 x <- x[1:(n-1)] #做差分后去掉最后一个变量 n <- n-1 #变量个数也减少1个 x_star <- (x-mean(x))/sqrt(var(x)) #标准化 #画时序图 postscript('plot1',horizontal=T,width=6,height=6) t <- data[,1] t <- t[2:n] plot(t,y,pch=20)
时间: 2024-03-03 09:52:54 浏览: 110
weekly.me-crx插件
这段代码中的 `postscript('plot1',horizontal=T,width=6,height=6)` 语句是用来设置输出到文件的参数的,但是在这之后没有调用 `dev.off()` 来关闭设备,导致后续的绘图函数出现问题。你可以在代码的最后加上 `dev.off()` 来关闭设备,代码如下所示:
```
#数据预处理
data <- read.csv("C:/Users/16215/Desktop/weekly 3-month Treasury bill.csv")
x <- data[,2]/100 #选取数据的第二列
n <- length(x)
y <- diff(x) #差分
x <- x[1:(n-1)] #做差分后去掉最后一个变量
n <- n-1 #变量个数也减少1个
x_star <- (x-mean(x))/sqrt(var(x)) #标准化
#画时序图
postscript('plot1',horizontal=T,width=6,height=6)
t <- data[,1]
t <- t[2:n]
plot(t,y,pch=20)
dev.off() #关闭设备
```
这样应该就能够正常输出图形了。
阅读全文