请教问题！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

library(MASS,T)
library(splines)
library(chron)

## Function to create circular splines
###############################################################################
bc <- function(x, period = 24., degree = 3., nknots = 6.)
{
if(any(x < 0. | x >= period))
stop("x out of bound")
if(degree < 1.)
stop("degree must be a positive integer")
knots.x <- seq(0., period, length = nknots + 1.)
delta <- diff(knots.x[1.:2.])
knots.left <- seq(from =  - delta, by =  - delta, length = degree)
knots.right <- seq(from = period + delta, by = delta, length = degree)
knots <- c(knots.left, knots.x, knots.right)
X <- spline.des(x = x, knots = knots, ord = degree + 1.)$design
X[, 1.:degree] <- X[, 1.:degree] + X[, ncol(X) - (degree - 1.):0.]
X <- X[, 1.:(ncol(X) - degree)]
return(X)
}

cc <- c("character",rep("numeric",6),"factor","Date","numeric",
        "numeric","factor","numeric","character")
testdata <- read.table(file="C:/Ddrive/a/a.txt",
                       header=TRUE,colClasses=cc)
错误于scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings,  :
  scan()需要'a real', 而不是'--'
这个如何解决？出了什么问题？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：请教问题 function positive Library splines positive library period create

这是读数据是出现的问题。